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 | 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

This file contains detail history of each bill submitted for payment for each authorization on a 1358.

Directly Accessed By Routines, Total: 15

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

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 | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All