Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PRC(424.1

Package: IFCAP

Global: ^PRC(424.1


Information

FileMan FileNo FileMan Filename Package
424.1 1358 AUTHORIZATION DETAIL IFCAP

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
IFCAP 14 PRCE58P1    PRCE58P3    PRCEAU0    PRCECAL    PRCECALL    PRCEDRE    PRCEDRE1    PRCET
PRCGF424    PRCGPPC1    PRCHLO6    PRCINAR    PRCUPPC1    ^PRC(424.1    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
IFCAP 10 PRCEAU0    PRCEDRE    PRCEDRE0    PRCEDRE1    PRCGF424    PRCGPPC1    PRCHLO6    PRCINAR
PRCS58CC    PRCUPPC1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IFCAP 1 1358 DAILY RECORD(#424)[.02]    
Kernel 1 NEW PERSON(#200)[.05.1]    

Fields, Total: 12

Field # Name Loc Type Details
.01 BILL NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<14)!'(X?3N1"-"6AN.1"-"1.4N1"-"1.4N) X
  • LAST EDITED:  FEB 27, 1992
  • HELP-PROMPT:  Answer must be 14-20 characters in length.
  • DESCRIPTION:  
    This field contains the sequence number of each bill on a 1358.  the format is station PO number - 424 sequence number - sequence number.  ie 503-C10001-1-1.
  • CROSS-REFERENCE:  424.1^B
    1)= S ^PRC(424.1,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(424.1,"B",$E(X,1,30),DA)
    This is corss-reference on BILL number.
.011 RECORD TYPE 0;11 SET
************************REQUIRED FIELD************************
  • 'AU' FOR AUTHORIZATION;
  • 'A' FOR ADJUSTMENT;
  • 'P' FOR PAYMENT TO AUTHORIZATION;

  • LAST EDITED:  MAR 10, 1992
  • DESCRIPTION:  
    This field is used to store the type of transaction for recalculating the authorization.
  • CROSS-REFERENCE:  424.1^AR^MUMPS
    1)= S:$P(^PRC(424.1,DA,0),U,2)&(X="P") ^PRC(424.1,"AR",$P(^(0),U,2),DA)=""
    2)= K:$P(^PRC(424.1,DA,0),U,2)&(X="P") ^PRC(424.1,"AR",$P(^(0),U,2),DA)
    This cross-reference is used to find payments against the authorization.
.02 AUTHORIZATION POINTER 0;2 POINTER TO 1358 DAILY RECORD FILE (#424)
************************REQUIRED FIELD************************
1358 DAILY RECORD(#424)

  • LAST EDITED:  FEB 27, 1992
  • DESCRIPTION:  
    pointer to file 424
  • CROSS-REFERENCE:  424.1^C
    1)= S ^PRC(424.1,"C",$E(X,1,30),DA)=""
    2)= K ^PRC(424.1,"C",$E(X,1,30),DA)
    This is cross-reference on the POINTER which points to 1358 DAILY RECORD FILE.  (#424)
.03 AUTHORIZATION AMOUNT 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X
  • LAST EDITED:  MAR 09, 1992
  • HELP-PROMPT:  Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Dollar amount of bill.
.04 DATE/TIME 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 09, 1991
  • DESCRIPTION:  
    Date/time bill entered.
.05 USER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 09, 1991
  • DESCRIPTION:  
    User number of person entering bill.
.06 VENDOR INVOICE NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    Vendor invoice number found on bill.
.07 FINAL BILL 0;7 SET
  • '1' FOR FINAL;

  • LAST EDITED:  FEB 25, 1992
  • DESCRIPTION:  
    When flagged as a final bill against an authorization, posting of additional bills will be prohibited.
  • CROSS-REFERENCE:  ^^TRIGGER^424^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(424.1,.07,1,1,89.2) S Y(101)=$S($D(^PRC(424,D0,0)):^(0),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,9)_":",2),$C(59),1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=1 X ^DD(424.1,.07,1,1,1.4)
    1.4)= S DIH=$S($D(^PRC(424,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,9)=DIV,DIH=424,DIG=.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(424.1,.07,1,1,89.2) S Y(101)=$S($D(^PRC(424,D0,0)):^(0),1:"") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,9)_":",2),$C(59),1) S D0=I(0,0) S DIU=X K Y S X="" X ^DD(424.1,.07,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(424,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,9)=DIV,DIH=424,DIG=.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^PRC(424.1,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^PRC(424,+D0,0)) D0=-1 S DIV(0)=D0 S Y(102)=$C(59)_$S($D(^DD(424,.09,0)):$P(^(0),U,3),1:"")
    CREATE VALUE)= S X=1
    DELETE VALUE)= @
    FIELD)= .02:.09
    This trigger will update the entry in file 424 - 1358 DAILY RECORD File. A final detailed daily record will cause the corresponding authorization to be marked as completed.
.08 REFERENCE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  OCT 24, 1991
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    An optional field to further identify why payment is authorized.  e.g.  If authorization is set for an ambulance, this field could be used to identify the patient transported.
  • CROSS-REFERENCE:  424.1^D
    1)= S ^PRC(424.1,"D",$E(X,1,30),DA)=""
    2)= K ^PRC(424.1,"D",$E(X,1,30),DA)
    This is cross-reference on the REFERENCE field which is a free text.
.09 CERTIFY FOR LIQUIDATION 0;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 24, 1991
  • HELP-PROMPT:  If you have received and certified a bill for this entry and Fiscal can pay this bill enter yes
  • DESCRIPTION:  
    When set to YES this field will flag Fiscal that a bill is ready to be paid for this entry.
  • CROSS-REFERENCE:  424.1^AC
    1)= S ^PRC(424.1,"AC",$E(X,1,30),DA)=""
    2)= K ^PRC(424.1,"AC",$E(X,1,30),DA)
    This is cross-reference on CERTIFY FOR LIQUIDATION field.  The cross-reference based on a set of codes. ('Y' for YES. 'N' for NO.)
.1 LAST EDITED BY 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 13, 1992
  • DESCRIPTION:  
    This field is used to store the last user who edited this record.
1.1 DESCRIPTION 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<3) X
  • LAST EDITED:  SEP 09, 1991
  • HELP-PROMPT:  Answer must be 3-245 characters in length.
  • DESCRIPTION:  
    Used for comments/remarks for each authorization

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #377
  • PROSTHETICS
  • AUTHORIZATION AMOUNT (.03).
    Access: Write w/Fileman

    DATE/TIME (.04).
    Access: Write w/Fileman

    USER (.05).
    Access: Write w/Fileman

    REFERENCE (.08).
    Access: Write w/Fileman

    LAST EDITED BY (.1).
    Access: Write w/Fileman

    ICR #3688
  • M DATA EXTRACTOR
  • External References

    Name Field # of Occurrence
    ^%DT .04+1
    ^DICR .07(XREF 1n1.4), .07(XREF 1n2.4)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .07(XREF 1n1.4), .07(XREF 1n2.4)
    ^DD(424 .07(XREF 1n89.2)
    ^DD(424.1 .07(XREF 1S), .07(XREF 1K)
    ^PRC(424 - [#424] .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .07(XREF 1n89.2)
    ^PRC(424.1 - [#424.1] .01(XREF 1S), .01(XREF 1K), .011(XREF 1S), .011(XREF 1K), .02(XREF 1S), .02(XREF 1K), .07(XREF 1n89.2), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S)
    .09(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.08+1, .011(XREF 1S), .011(XREF 1K), .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .07(XREF 1n89.2)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .04+1*
    >> D0 .07(XREF 1S), .07(XREF 1K), .07(XREF 1n89.2)
    >> DA .01(XREF 1S), .01(XREF 1K), .011(XREF 1S), .011(XREF 1K), .02(XREF 1S), .02(XREF 1K), .07(XREF 1S), .07(XREF 1K), .08(XREF 1S), .08(XREF 1K)
    .09(XREF 1S), .09(XREF 1K)
    >> DIG .07(XREF 1n1.4), .07(XREF 1n2.4)
    >> DIH .07(XREF 1n1.4), .07(XREF 1n2.4)
    >> DIU .07(XREF 1S), .07(XREF 1K)
    DIV .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4)
    DIV(0 .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .07(XREF 1n89.2)
    >> I(0 .07(XREF 1S), .07(XREF 1K), .07(XREF 1n89.2)
    U ID.08+1, .011(XREF 1S), .011(XREF 1K), .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .07(XREF 1n89.2)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .011(XREF 1S), .011(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03+1*!, .04+1*!, .06+1!
    .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .08+1!, .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), 1.1+1!
    Y .04+1, .07(XREF 1S), .07(XREF 1K)
    Y(1 .07(XREF 1n89.2)
    Y(101 .07(XREF 1S), .07(XREF 1K)
    Y(102 .07(XREF 1S), .07(XREF 1K), .07(XREF 1n89.2)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All