Routine: PSGPLPRG

Information

PSGPLPRG ;BIR/CML3-PURGE PICK LISTS ;20 JUL 94 / 5:46 PM

Package	Total	Call Graph
VA Fileman	4	^%DT NOW^%DTC YN^DICN ^DIK
Inpatient Medications	3	$$ENDTC^PSGMI (ENCV,ENKV)^PSGSETU ENNOIO^PSGTI

Package	Total	Caller Graph
Inpatient Medications	2	PSJU PLAPS PSJU PLPRG

Name	Comments	DBIA/ICR reference
ENQ	;
ENASK	; sets, resets, or deletes auto purge (# of days)
DA	;
AP	;
QUES	;
DONE	;
DAM	;
KILL	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ", AS OF ",PSGOD Condition for execution: $P(ND,"^",2) Line Location: AP+3
Function Call: WRITE	Prompt: " **",! Line Location: AP+3
Function Call: READ	Prompt: "Enter PURGE STOP DATE: " Formatting: !! Timeout: DTIME Variable: X Line Location: DA+1
Function Call: WRITE	Prompt: !!," If a date is entered here, all of the FILED AWAY PICK LISTS that started ",!,"before the entered date will be deleted." Line Location: DAM+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ENASK+3
Function Call: WRITE	Prompt: !!," If a number is found in this field by the daily background job, the job will completely delete all PICK LISTS that have been FILED AWAY and have been around longer than the number of days specified in this field." Line Location: QUES+1
Function Call: WRITE	Prompt: " Entering a number into",!,"this field will effectively start the AUTO PURGE. DELETING this field will",!,"effectively STOP the AUTO PURGE." Line Location: QUES+2
Function Call: WRITE	Prompt: !?3,"ENTER THE NUMBER (1-90) OF DAYS THAT PICK LISTS THAT ARE FILED AWAY MAY STAY IN THE COMPUTER." Line Location: QUES+3
Function Call: WRITE	Prompt: " NOTHING TO DELETE!" Line Location: KILL+1
Function Call: WRITE	Prompt: !?5,"OK TO DELETE" Line Location: KILL+2
Function Call: WRITE	Prompt: " DELETED! (AUTO PURGE STOPPED.)" Line Location: KILL+2
Function Call: WRITE	Prompt: $C(7)," <NOTHING DELETED>" Line Location: KILL+3

FileNo	Call Tags
^PS(53.5 - [#53.5]	Classic Fileman Calls
^PS(53.55 - [#53.55]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.5 - [#53.5]	ENQ+1, ENQ+2, ENQ+3, ENQ+4!
^PS(53.55 - [#53.55]	ENQ+5!
^PS(59.7 - [#59.7]	AP+2, ENASK+2, ENASK+4, KILL+2

Name	Field # of Occurrence
>> %	ENASK+2, KILL+2*
%DT	DA+1*, DA+2!
AM	DONE+1!
DA	ENQ+4!, ENQ+5!
DIK	ENQ+4!, ENQ+5!
DTIME	DA+1, ENASK+3
DUZ	ENASK+4, KILL+2
ND	AP+2, AP+3, DONE+1!, ENASK+2, ENASK+3, ENASK+4, KILL+1
PLN	ENQ+3*, ENQ+4, ENQ+5, DONE+1!
>> PSGDT	ENASK+2*, ENASK+4, KILL+2
>> PSGOD	AP+2*, AP+3
PSGPLPD	DA+2*, ENQ+2, DONE+1!
>> PSGTID	DA+2*
>> PSGTIR	DA+2*
>> Q	ENQ+1*, ENQ+2, ENQ+3
>> QQ	ENQ+2*, ENQ+3
ST	DONE+1!
>> X	DA+1, ENASK+3, ENASK+4, KILL+1, KILL+3
>> XQUIT	AP+1, ENASK+1
>> Y	DA+1*, DA+2
>> ZTDESC	DA+2*
>> ZTIO	DA+2*
ZTSAVE	DA+2!
ZTSAVE("PSGPLPD"	DA+2*
>> ZTSK	DA+2