Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | 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.

Accessed By FileMan Db Calls, Total: 20

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All