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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^PRC(424

Package: IFCAP

Global: ^PRC(424

Information

FileMan FileNo	FileMan Filename	Package
424	1358 DAILY RECORD	IFCAP

Description

This file contains a summary record of each authorization, obligation, and liquidation against a 1358 established in file 442.

Directly Accessed By Routines, Total: 50

Package	Total	Routines
IFCAP	37	ITEM SPECIFIC INFORMATION PRCE58P1 PRCE58P3 PRCEAU PRCEAU0 PRCEAU1 PRCEBAL PRCEBL PRCEC OPN1358 PRCECAL PRCECALL PRCEDRE PRCEDRE0 PRCEDRE1 PRCEFIS5 PRCELIQ PRCEOB1 PRCET PRCF58A1 PRCGA PRCGARP1 PRCGF424 PRCGPPC1 PRCHLO6 PRCINAR PRCS1358 OPEN DAILY RECORDS PRCS58 PRCS58CC PRCSD111 PRCSEB2 PRCSP111 PRCSP1D PRCSUT3 PRCSUT31 PRCUPPC1 ^PRC(424 ^PRC(424.1
Fee Basis	6	FB1358 FBAARD3 FBAASCB0 FBAAUTL1 FBCHC78 FBNHPC1
Prosthetics	3	RMPOPST3 RMPR21B RMPRDP

Accessed By FileMan Db Calls, Total: 20

Package	Total	Routines
IFCAP	20	PRCEADJ2 PRCEAU PRCEAU0 PRCEAU1 PRCEDRE PRCEDRE0 PRCELIQ PRCEOB1 PRCEOPN PRCESOM PRCF58A1 PRCFDA PRCGF424 PRCGPPC1 PRCHLO6 PRCS58 PRCS58CC PRCSEB2 PRCSP1F PRCUPPC1

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
IFCAP	1	1358 AUTHORIZATION DETAIL(#424.1)[.02]

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
IFCAP	2	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[.02] CONTROL POINT ACTIVITY(#410)[.15]
Kernel	1	NEW PERSON(#200)[.08, .14]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	AUTHORIZATION #	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<12)!'(X?3N1"-"6AN.1"-"1.4N) X` LAST EDITED: `MAR 04, 1992` HELP-PROMPT: `Enter sequential number of each authorization` DESCRIPTION: `This is the entry number of the 1358 daily record. Format: sta-obligation-seq number. e.g., 503-C10001-1` CROSS-REFERENCE: `424^B` `1)= S ^PRC(424,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(424,"B",$E(X,1,30),DA)` `This cross-reference will allow look-up on Station-Obligation-Sequence of each authorization number.` CROSS-REFERENCE: `424^AD^MUMPS` `1)= S ^PRC(424,"AD",$P(X,"-",1,2),DA)=""` `2)= K ^PRC(424,"AD",$P(X,"-",1,2),DA)` `This cross-reference will allow look-up on Station-Obligation of each authorization number.` CROSS-REFERENCE: `424^B1^MUMPS` `1)= S ^PRC(424,"B1",$P(X,"-",3),DA)=""` `2)= K ^PRC(424,"B1",$P(X,"-",3),DA)` `This cross-reference will allow look-up on the sequence number of the authorization within the obligation.`
.02	OBLIGATION #	0;2	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `JAN 13, 1992` DESCRIPTION: `This is the pointer to the obligation number in file 442.` CROSS-REFERENCE: `424^C` `1)= S ^PRC(424,"C",$E(X,1,30),DA)=""` `2)= K ^PRC(424,"C",$E(X,1,30),DA)` `This is cross-reference on the pointer to the obligation number in file 442. The pointer points to the corresponding obligation number in file 442.`
.03	TRANSACTION TYPE	0;3	SET	'O' FOR OBLIGATION; 'L' FOR LIQUIDATION; 'A' FOR ADJUSTMENT; 'AU' FOR AUTHORIZATION; LAST EDITED: `JUN 05, 1992` DESCRIPTION: `Type of transaction.` CROSS-REFERENCE: `424^AF^MUMPS` `1)= S:"OA"[X ^PRC(424,"AF",$P(^PRC(424,DA,0),"-",1,2),DA)=""` `2)= K:"OA"[X ^PRC(424,"AF",$P(^PRC(424,DA,0),"-",1,2),DA)` `This cross-reference will only have obligations and adjustments set into it.` CROSS-REFERENCE: `424^AG^MUMPS` `1)= S:X="L" ^PRC(424,"AG",$P(^PRC(424,DA,0),"-",1,2),DA)=""` `2)= K:X="L" ^PRC(424,"AG",$P(^PRC(424,DA,0),"-",1,2),DA)` `This cross-reference is set for all liquidations of the obligation.` CROSS-REFERENCE: `424^AT` `1)= S ^PRC(424,"AT",$E(X,1,30),DA)=""` `2)= K ^PRC(424,"AT",$E(X,1,30),DA)` `This cross-reference is used for finding a specific transaction type.`
.04	LIQUIDATION AMOUNT	0;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `SEP 09, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `The amount liquidated by fiscal on this authorization. You can have multiple liquidations against a single authorization. A liquidation is the amount Fiscal pays on a bill.`
.05	AUTHORIZATION BALANCE	0;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `SEP 09, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This is the amount the service establishes for an authorization. A detail of each bill received against this authorization is maintained in file 424.1.`
.06	OBLIGATION AMOUNT	0;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X` LAST EDITED: `JAN 28, 1992` HELP-PROMPT: `Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This is the amount obligated by fiscal. each obligation is recorded here and balances maintained in file 442. This field will also contain` `corresponding adjustment data`
.07	DATE/TIME	0;7	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 09, 1991` DESCRIPTION: `Date and time that the authorization is entered into the system.`
.08	USER	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 09, 1991` DESCRIPTION: `User entering authorization.`
.09	COMPLETED FLAG	0;9	SET	'1' FOR COMPLETED; LAST EDITED: `SEP 13, 1991` DESCRIPTION: `When set to one, additional posting of bills to this authorization will be prohibited. This field is triggered by the final field in file 424.1.` NOTES: `TRIGGERED by the FINAL BILL field of the 1358 AUTHORIZATION DETAIL File` CROSS-REFERENCE: `424^AC` `1)= S ^PRC(424,"AC",$E(X,1,30),DA)=""` `2)= K ^PRC(424,"AC",$E(X,1,30),DA)` `This cross-reference is used for open 1358s.`
.1	REFERENCE	0;10	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X` LAST EDITED: `OCT 16, 1991` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: `This optional field is a short description to cross-reference a liquidation with a patient, vendor or some other item to identify the liquidation against a bill.` CROSS-REFERENCE: `424^D` `1)= S ^PRC(424,"D",$E(X,1,30),DA)=""` `2)= K ^PRC(424,"D",$E(X,1,30),DA)` `This is the cross-reference on REFERENCE field of 1358 DAILY RECORD file. The cross-reference based on a free-text.`
.11	LAST SEQUENCE USED	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 24, 1991` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This is the last sequence used for the authorizations for the obligation.`
.12	AUTHORIZATION AMOUNT	0;12	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `JAN 09, 1992` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This field is used to store the authorization amount with increases.`
.13	ORIGINAL AUTHORIZATION AMOUNT	0;13	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999.99)!(X<0) X` LAST EDITED: `JAN 30, 1992` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999999.99, 2 Decimal Digits` DESCRIPTION: `This field is used to store the original authorization amount.`
.14	LAST EDITED BY	0;14	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 13, 1992` DESCRIPTION: `This field is used to store the user who last edited this authorization.`
.15	CPA POINTER	0;15	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	CONTROL POINT ACTIVITY(#410) LAST EDITED: `FEB 18, 1992` DESCRIPTION: `This field contains the pointer value of the corresponding entry in file 410. This field will only be set on obligation, and adjustments.` CROSS-REFERENCE: `424^AE` `1)= S ^PRC(424,"AE",$E(X,1,30),DA)=""` `2)= K ^PRC(424,"AE",$E(X,1,30),DA)` `This is cross-reference on the CPA POINTER. The pointer points to the corresponding entry in CONTROL POINT ACTIVITY file.`
1.1	COMMENTS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `FEB 19, 1992` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `This field is used to store comments about this authorization.`
2	CONVERTED	2;1	SET	'1' FOR CONVERTED; LAST EDITED: `AUG 06, 1992` DESCRIPTION: `This field is used to mark the entry as having been converted during the installation of v4 of IFCAP.` `UNEDITABLE` CROSS-REFERENCE: `424^ACONV^MUMPS` `1)= Q:'$D(PRCECONV) S:(+$P(^PRC(424,DA,0),U,15)>1) ^PRC(424,"ACONV",(99999999-$P(^PRC(424,DA,0),U,15)),DA)=""` `2)= K:(+$P(^PRC(424,DA,0),U,15)>1) ^PRC(424,"ACONV",(99999999-$P(^PRC(424,DA,0),U,15)),DA)` `This cross-reference will mark the last entry that was converted. It will be deleted in a version following v4 of IFCAP.`
3	STOP	STOP;1	SET	'1' FOR STOP CONVERSION; LAST EDITED: `MAR 18, 1992` DESCRIPTION: `This field is used to flag the conversion of 1358's in the installation of v4 of IFCAP as having been stopped.` `UNEDITABLE`
4	INTERFACE ID	2;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 29, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `INTERFACE ID` TECHNICAL DESCR: `INTERFACE ID` CROSS-REFERENCE: `424^E` `1)= S ^PRC(424,"E",$E(X,1,30),DA)=""` `2)= K ^PRC(424,"E",$E(X,1,30),DA)` `This cross-reference is used by other applications for interfacing to IFCAP. Use this cross-reference to find the internal record id of this file.`

ICR, Total: 4

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #375	Prosthetics	AUTHORIZATION # (.01). Access: Read w/Fileman OBLICATION # (.02). Access: Read w/Fileman TRANSACTION TYPE (.03). Access: Write w/Fileman AUTHORIZATION BALANCE (.05). Access: Write w/Fileman DATE/TIME (.07). Access: Write w/Fileman USER (.08). Access: Write w/Fileman REFERENCE (.1). Access: Write w/Fileman AUTHORIZATION AMOUNT (.12). Access: Write w/Fileman ORIGINAL OBLIGATION AMOUNT (.13). Access: Write w/Fileman COMMENTS (1.1). Access: Write w/Fileman INTERFACE ID (4). Access: Write w/Fileman	Read access to check for an established obligationnumber.
ICR #3687	M DATA EXTRACTOR
ICR #4348	Fee Basis
ICR #5300	Fee Basis

External References

Name	Field # of Occurrence
^%DT	.07+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(424 - [#424]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .15(XREF 1S), .15(XREF 1K) , 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.07+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .15(XREF 1S), .15(XREF 1K) , 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> PRCECONV	2(XREF 1S)
U	ID.1+1, 2(XREF 1S), 2(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S) , .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04+1!, .05+1!, .06+1!, .07+1!, .09(XREF 1S) , .09(XREF 1K), .1+1!, .1(XREF 1S), .1(XREF 1K), .11+1!, .12+1!, .13+1!, .15(XREF 1S), .15(XREF 1K), 1.1+1! , 4+1!, 4(XREF 1S), 4(XREF 1K)
>> Y	.07+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All