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

Print Page as PDF

Global: ^IBE(350.6

Package: Integrated Billing

Global: ^IBE(350.6

Information

FileMan FileNo	FileMan Filename	Package
350.6	IB ARCHIVE/PURGE LOG	Integrated Billing

Description

This file will be used to track the archiving and purging operations of the following three data files used in billing: #350 INTEGRATED BILLING ACTION #351 CATEGORY C BILLING CLOCK #399 BILL/CLAIMS A log entry will be filed when an archival "search" is initiated for one of these files. Once the search end date is logged, archiving will be permitted, and subsequently purging will be allowed when the archive end date is logged. The log entry is thus used to assure that all the necessary steps for archiving and purging are performed in their entirety in the correct order. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 10

Package	Total	Routines
Integrated Billing	10	IBPA IBPFU IBPO IBPP IBPU IBPU1 IBPUBUL IBPUDEL ^IBE(350.6 ^IBE(399.6

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Integrated Billing	3	IBPFU IBPO IBPU1

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[1.03, 2.03, 3.03]
VA FileMan	1	FILE(#1)[.03]

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	ARCHIVE LOG #	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 08, 1992` HELP-PROMPT: `Type a Number between 1 and 999999999999999, 0 Decimal Digits` DESCRIPTION: `The Log # number is used to identify a unique archive/purge operation for a single file. The number will be equal to the internal entry number of the Log entry.` CROSS-REFERENCE: `350.6^B` `1)= S ^IBE(350.6,"B",$E(X,1,30),DA)=""` `2)= K ^IBE(350.6,"B",$E(X,1,30),DA)`
.02	SEARCH TEMPLATE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>33!($L(X)<6) X` LAST EDITED: `APR 08, 1992` HELP-PROMPT: `Answer must be 6-33 characters in length.` DESCRIPTION: `This field contains the name of the Search Template used to contain the list of entries to be archived/purged. This name is the .01 field for the template entry in the SORT TEMPLATE file (#.401). The name of the template` `is stored instead of a hard pointer to the SORT TEMPLATE file because the template is deleted from the file after the entries have been purged. The name of the template is the string "IB ARCHIVE/PURGE #" concatenated with` `the Archive Log # (field .01).` CROSS-REFERENCE: `350.6^C` `1)= S ^IBE(350.6,"C",$E(X,1,30),DA)=""` `2)= K ^IBE(350.6,"C",$E(X,1,30),DA)`
.03	ARCHIVE FILE	0;3	POINTER TO FILE FILE (#1)	FILE(#1) LAST EDITED: `APR 08, 1992` DESCRIPTION: `This field points to the FILE file (#1) and represents the file to be archived/purged. The Billing data files subject to archiving/purging currently are:` `350 INTEGRATED BILLING ACTION` `351 CATEGORY C BILLING CLOCK` `399 BILL/CLAIMS` CROSS-REFERENCE: `350.6^D` `1)= S ^IBE(350.6,"D",$E(X,1,30),DA)=""` `2)= K ^IBE(350.6,"D",$E(X,1,30),DA)` CROSS-REFERENCE: `350.6^AF^MUMPS` `1)= I $D(^IBE(350.6,DA,1)),^(1) S ^IBE(350.6,"AF",X,-^(1),DA)=""` `2)= I $D(^IBE(350.6,DA,1)),^(1) K ^IBE(350.6,"AF",X,-^(1),DA)` `Cross-reference of all ARCHIVE/PURGE LOG entries (by Archive file [#.03] and the inverse Search Begin Date/Time [#1.01]) for which a search has been initiated. The cross-reference will be used to find the most recent log` `entry for a file. The "AF1" cross-reference on the Search Begin Date/Time field (#1.01) is the companion to this cross-reference.`
.04	# RECORDS ARCHIVED	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 08, 1992` HELP-PROMPT: `Type a Number between 1 and 999999999999999, 0 Decimal Digits` DESCRIPTION: `This field will contain the number of entries which have been processed in each sequential archive/purge operation. The 'Search' option will update the field with the number of entries which have met the search criteria.` `The 'Archive' option will update this field with the number of entries archived. The 'Purge' option will update the field with the number of entries purged. Also, the 'Delete Entry From Search Template' option will` `update the field when entries from the template are deleted.`
.05	LOG STATUS	0;5	SET	'1' FOR OPEN; '2' FOR CLOSED; '3' FOR CANCELLED; LAST EDITED: `APR 08, 1992` DESCRIPTION: `This field contains the current status of the archive/purge operation. The status will be OPEN when the log entry is created, and CLOSED after successfully purging archived entries. The entry will be CANCELLED if an` `error is detected during processing which invalidates the operation.` CROSS-REFERENCE: `350.6^E` `1)= S ^IBE(350.6,"E",$E(X,1,30),DA)=""` `2)= K ^IBE(350.6,"E",$E(X,1,30),DA)`
1.01	SEARCH BEGIN DATE/TIME	1;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2004` DESCRIPTION: `The date/time at which the search was initiated is automatically stuffed into this field by the 'Search' option.` CROSS-REFERENCE: `^^TRIGGER^350.6^1.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.6,DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBE(350.6,DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= @` `FIELD)= SEARCH INITIATOR` CROSS-REFERENCE: `350.6^AF1^MUMPS` `1)= I $D(^IBE(350.6,DA,0)),$P(^(0),"^",3) S ^IBE(350.6,"AF",$P(^(0),"^",3),-X,DA)=""` `2)= I $D(^IBE(350.6,DA,0)),$P(^(0),"^",3) K ^IBE(350.6,"AF",$P(^(0),"^",3),-X,DA)` `Cross-reference of all ARCHIVE/PURGE LOG entries (by Archive file [#.03] and the inverse Search Begin Date/Time [#1.01]) for which a search has been initiated. The cross-reference will be used to find the most recent log` `entry for a file. The "AF" cross-reference on the Archive File field (#.03) is the companion to this cross-reference.`
1.02	SEARCH END DATE/TIME	1;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `The date/time at which the search was completed is automatically stuffed into this field by the 'Search' option. The existence of this field in the log entry assures that the search on the file was successful, and thus` `the field is used as the flag to allow archiving.`
1.03	SEARCH INITIATOR	1;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 08, 1992` DESCRIPTION: `This field conatins the individual who queued the search on the file. The field is updated by a trigger when the SEARCH BEGIN DATE/TIME field is updated.` NOTES: `TRIGGERED by the SEARCH BEGIN DATE/TIME field of the IB ARCHIVE/PURGE LOG File`
2.01	ARCHIVE BEGIN DATE/TIME	2;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2004` DESCRIPTION: `The date/time that the archiving of data is initiated is automatically stuffed into this field by the 'Archive' option.` CROSS-REFERENCE: `^^TRIGGER^350.6^2.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.6,DIV(0),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBE(350.6,DIV(0),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= @` `FIELD)= #2.03`
2.02	ARCHIVE END DATE/TIME	2;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `The date/time that the archiving of data was completed is automatically stuffed into this field by the 'Archive' option. The existence of this field in the log entry assures that archiving was successful, and thus the` `field is used as a flag to allow purging.`
2.03	ARCHIVE INITIATOR	2;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 08, 1992` DESCRIPTION: `This field contains the individual who archived the file. The field is updated by a trigger when the ARCHIVE BEGIN DATE/TIME field is updated.` NOTES: `TRIGGERED by the ARCHIVE BEGIN DATE/TIME field of the IB ARCHIVE/PURGE LOG File`
3.01	PURGE BEGIN DATE/TIME	3;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2004` DESCRIPTION: `The date/time that purging is initiated is automatically stuffed into this field by the 'Purge' option.` CROSS-REFERENCE: `^^TRIGGER^350.6^3.03` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.6,DIV(0),3)),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^IBE(350.6,DIV(0),3)),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= @` `FIELD)= #3.03`
3.02	PURGE END DATE/TIME	3;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: `The date/time that the purging of data was completed is automatically stuffed into this field by the 'Purge' option. When this field is updated the status of the log entry is updated to CLOSED.`
3.03	PURGE INITIATOR	3;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 08, 1992` DESCRIPTION: `This field contains the individual who purged the file. The field is updated by a trigger when the PURGE BEGIN DATE/TIME field is updated.` NOTES: `TRIGGERED by the PURGE BEGIN DATE/TIME field of the IB ARCHIVE/PURGE LOG File`

External References

Name	Field # of Occurrence
^%DT	1.01+1, 1.02+1, 2.01+1, 2.02+1, 3.01+1, 3.02+1
^DICR	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
Y^DIQ	ID.03+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(1	ID.03+1
^DIC - [#1]	ID.03+1
^IBE(350.6 - [#350.6]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K) , 1.01(XREF 1S), 1.01(XREF 1K), 1.01(XREF 2S), 1.01(XREF 2K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.03+1, 1.01(XREF 2S), 1.01(XREF 2K)
^(1	ID1.01+1, .03(XREF 2S), .03(XREF 2K), 1.01(XREF 1S), 1.01(XREF 1K)
^(2	2.01(XREF 1S), 2.01(XREF 1K)
^(3	3.01(XREF 1S), 3.01(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1.01+1, 1.02+1, 2.01+1, 2.02+1, 3.01+1, 3.02+1
%I	ID.03+1*!
>> C	ID.03+1*
>> D0	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K) , 1.01(XREF 1S), 1.01(XREF 1K), 1.01(XREF 2S), 1.01(XREF 2K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
>> DIC	ID.03+1, ID.05+1
>> DIG	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
>> DIH	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
>> DIU	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
DIV	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
DIV(0	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
DUZ	1.01(XREF 1S), 2.01(XREF 1S), 3.01(XREF 1S)
U	ID.03+1, ID1.01+1, 1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K) , .04+1!, .05(XREF 1S), .05(XREF 1K), 1.01+1!, 1.01(XREF 1S), 1.01(XREF 1K), 1.01(XREF 2S), 1.01(XREF 2K), 1.02+1!, 2.01+1! , 2.01(XREF 1S), 2.01(XREF 1K), 2.02+1!, 3.01+1!, 3.01(XREF 1S), 3.01(XREF 1K), 3.02+1!
Y	ID.03+1*, 1.01+1, 1.01(XREF 1S), 1.01(XREF 1K), 1.02+1, 2.01+1, 2.01(XREF 1S), 2.01(XREF 1K), 2.02+1, 3.01+1 , 3.01(XREF 1S), 3.01(XREF 1K), 3.02+1
Y(1	1.01(XREF 1S), 1.01(XREF 1K), 2.01(XREF 1S), 2.01(XREF 1K), 3.01(XREF 1S), 3.01(XREF 1K)

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