STANDARD DATA DICTIONARY #424.1 -- 1358 AUTHORIZATION DETAIL FILE 3/24/25 PAGE 1
STORED IN ^PRC(424.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains detail history of each bill submitted for payment for each authorization on a 1358.
IDENTIFIED BY: REFERENCE (#.08)
CROSS
REFERENCED BY: CERTIFY FOR LIQUIDATION(AC), RECORD TYPE(AR), BILL NUMBER(B), AUTHORIZATION POINTER(C), REFERENCE(D)
424.1,.01 BILL NUMBER 0;1 FREE TEXT (Required)
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.
424.1,.011 RECORD TYPE 0;11 SET (Required)
'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.
424.1,.02 AUTHORIZATION POINTER 0;2 POINTER TO 1358 DAILY RECORD FILE (#424) (Required)
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)
424.1,.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.
424.1,.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.
424.1,.05 USER 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 09, 1991
DESCRIPTION:
User number of person entering bill.
424.1,.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.
424.1,.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=.0
9 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=.0
9 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(^P
RC(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.
424.1,.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.
424.1,.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.)
424.1,.1 LAST EDITED BY 0;10 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 13, 1992
DESCRIPTION:
This field is used to store the last user who edited this record.
424.1,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
FILES POINTED TO FIELDS
1358 DAILY RECORD (#424) AUTHORIZATION POINTER (#.02)
FINAL BILL (#.07)
NEW PERSON (#200) USER (#.05)
LAST EDITED BY (#.1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
PRCE DAILY RECORD EDIT FEB 26, 1996@11:25 USER #0 ^PRCET @
PRCHLO424-1_VALIDATE APR 26, 2009@23:38 USER #0 1358 AUTHORIZATION DETAIL DATA
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):