Routine: LRACF

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC YN^DICN
Lab Service	1	IO^LRWU

Package

Total

Call Graph

^%DT C^%DTC YN^DICN

IO^LRWU

Package	Total	Caller Graph
Lab Service	1	LRAC FORCE

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option will identify patients who have been inactive for the specified",!,"period of time defined in the GRACE PERIOD FOR INACTIVITY field of the" Line Location: WARN+0
Function Call: WRITE	Prompt: !,"Laboratory Site file and force their lab data onto a permanent cumulative page,",!,"making the data eligible for archiving.",! Line Location: WARN+1
Function Call: WRITE	Prompt: !,"The parameter is set for ( ",+$P(^LAB(69.9,1,0),U,13)," ) days ",! Line Location: WARN+2
Function Call: WRITE	Prompt: !,"Are you sure you want to continue" Line Location: WARN1+0
Function Call: WRITE	Prompt: !!,LRDFN,?10,LRNM Line Location: KILL+2
Function Call: WRITE	Prompt: @IOF,!,?20,"*** INACTIVE PATIENTS FOR ARCHIVE***",!! Line Location: HDR+0
Function Call: WRITE	Prompt: "LRDFN"_" "_"PATIENT NAME"_" "_"PAGE FORCED TO PERMANENT" Line Location: HDR+1
Function Call: WRITE	Prompt: ?57,LRTXT,! Line Location: TEXT+0
Function Call: WRITE	Prompt: !!,"Enter 'Yes' to continue, 'No' or '^' to exit" Line Location: HELP+0
Function Call: WRITE	Prompt: ! Line Location: HELP+0

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	IDT
^LAB(64.5 - [#64.5]	FIND+3, SPCM
^LAB(69.9 - [#69.9]	WARN+2, ENT+2
^LAC("LGOT"	KILL!
^LAC("LRAC" - [#64.7]	KILL!
^LAC("LRKILL"	KILL!
^LR - [#63]	ENT+2, IDT, KILL+2, CHECK, CHECK+1, PAGE, FIND+2, FIND+4, SPCM
^LRO(68 - [#68]	MORE!
^TMP($J	KILL+2, KILL+3!, CHECK+1*

Name	Field # of Occurrence
^(0	ENT+2, IDT, CHECK+1

Name	Field # of Occurrence
>> %	WARN1*
>> %DT	ENT+1*
>> DFN	IDT*
DT	ENT+2
>> I	KILL+2*
IO	ENT+1
IOF	HDR
IOSL	KILL+1
LRDAYS	ENT+2*, END!, IDT
LRDFN	ENT+2*, END!, IDT, MORE, KILL, KILL+2, CHECK, CHECK+1, PAGE, FIND+2 , FIND+4, SPCM
LRDPF	END!, IDT*
LRFG	WARN1+1, ENT, END!, KILL, KILL+3, CHECK+1
LRIDT	END!, MORE*, CHECK, CHECK+1, PAGE, FIND+2
LRINO	END!
>> LRMH	FIND+3*, SPCM, SPCM+1
LRNM	END!, IDT*, KILL+2
LROPG	END!, MORE!, CHECK+1, PAGE
LRPG	END!, MORE!, CHECK+1, PAGE, FIND+4, SPCM, SPCM+1
LRPGE	END!, MORE!, CHECK+1, PAGE*
LRPL	END!, PAGE*
>> LRSH	FIND+3*, SPCM
LRSPCM	END!, FIND+2*, SPCM
>> LRSPM1	SPCM*
LRSUB	END!, MORE*, CHECK, FIND+3, SPCM
>> LRTSTS	FIND+3*, SPCM
LRTXT	END!, KILL+2*, TEXT
U	QUEUE, WARN+2, ENT, ENT+2, IDT, CHECK+1, PAGE
>> X	ENT+1*, ENT+2
>> X1	ENT+2*
>> X2	ENT+2*
>> ZTDESC	WARN1+1*
>> ZTQUEUED	ENT+1
>> ZTREQ	ENT+1*
>> ZTRTN	WARN1+1*

Information

Name	Comments	DBIA/ICR reference
FIND	;Since Major Header and Page number is unknown this subroutine
WARN
END
HDR
SPCM
WARN1
TEXT
IDT
HELP
PAGE
QUEUE
ENT
KILL
CHECK
MORE