Routine: PSGPLF

Information

PSGPLF ;BIR/CML3-FILES AWAY PICK LIST DATA (BACKGROUND JOB) ;29 SEP 97 / 12:40 PM

Package	Total	Call Graph
Inpatient Medications	3	ENPLF^PSGAMSA ^PSGPLFM ($$LOCK,UNLOCK)^PSGPLUTL
Uncategorized	1	^ECXUD1
VA Fileman	1	NOW^%DTC

Name	Comments	DBIA/ICR reference
GD1	; get next (second) level (ward) in 57.6
DONE	;
EN	; action starts here
OS	;
FILE	; add data to cost file and order

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	OS+3
^DIC(42 - [#42]	GD1+1
^PS(53.5 - [#53.5]	OS+4, EN+2!, EN+6, EN+7, EN+8, EN+9, EN+10!
^PS(55 - [#55]	FILE+2, FILE+3, OS+1, OS+2, EN+8
^PS(57.6 - [#57.6]	FILE+7, FILE+8, FILE+10*, FILE+12, FILE+13, GD1+1, GD1+2, EN+4
^PSDRUG - [#50]	FILE+3
^TMP("PSGNCF"	FILE+5, EN+1!, EN+12

Name	Field # of Occurrence
^(	FILE+5, GD1+2, EN+4*
^(0	FILE+8, FILE+12, FILE+13, OS+1, GD1+2, EN+4*

Name	Field # of Occurrence
%	EN+1, DONE+1!
AM	DONE+1!
C	EN+1!, DONE+1!
COST	FILE+2, FILE+3, FILE+5, FILE+6, FILE+10, OS+3, DONE+1!
D0	FILE+7, FILE+8, FILE+10, FILE+12, FILE+13, OS+3, GD1+1, GD1+2, EN+3*, EN+4 , DONE+1!
D1	FILE+7, FILE+8, FILE+10, FILE+12, FILE+13, OS+3, GD1+1*, GD1+2, DONE+1!
D2	FILE+7, FILE+8, FILE+10, FILE+12, FILE+13, OS+3, EN+8*, DONE+1!
D3	FILE+2, FILE+3, FILE+4, FILE+5, FILE+7, FILE+8, FILE+9, FILE+10, FILE+12, OS+3 , DONE+1!
DD	OS+4, EN+1~, EN+7, EN+9
DDRG	EN+1~
DO	FILE+2*, FILE+5, OS+1, DONE+1!
DT	EN+3
ECUD	OS+3*, DONE+1!
G	OS+4, EN+1~, EN+2, EN+6, EN+7, EN+8, EN+9, EN+10
ND	FILE+8, FILE+9, FILE+10, FILE+12, FILE+13, GD1+2, EN+4*, DONE+1!
O	FILE+2, FILE+3, FILE+5, OS+1, OS+2, OS+3, EN+8*, DONE+1!
P	EN+1~, EN+6*, EN+7, EN+8, EN+9
PD	OS+4, EN+1~, EN+7, EN+8, EN+9
PIN	DONE+1!
PLR	FILE+1, FILE+2, OS+4, EN+9*, DONE+1!
PN	FILE+2, FILE+3, FILE+5, OS+1, OS+2, OS+3, OS+4, EN+7*, EN+8, EN+9 , DONE+1!
PS	FILE+6*, FILE+10, OS+1, OS+3, DONE+1!
>> PSGDT	EN+1*
PSGPLFF	FILE+5, EN+5, EN+10, DONE+1!
PSGPLTND	EN+2*, EN+3, EN+10, DONE+1!
PSGSTRT	OS+2~*, OS+3
PSGX	FILE+1*, OS+1, DONE+1!
PSGY	FILE+1, FILE+6, FILE+10, OS+1, OS+3*, DONE+1!
PSGZ	FILE+8, FILE+9, FILE+11, OS+1*, DONE+1!
Q	DONE+1!
R	EN+1~, EN+6*, EN+8, EN+9
S	EN+1~, EN+7, EN+8, EN+9
T	EN+1~, EN+5, EN+6, EN+8, EN+9
W	EN+1~, EN+6*, EN+8, EN+9
WD	GD1+1, EN+6, EN+7, DONE+1!
WH	GD1+1, EN+6, EN+7, DONE+1!
WSF	EN+3*, EN+6, EN+7, DONE+1!
>> X	OS+3*