Routine: PSGPLR0

Information

PSGPLR0 ;BIR/CML3-PRINTS PICK LIST REPORT (CONT.) ;25-Jan-2004 12:17;PLS

Package	Total	Call Graph
Inpatient Medications	3	($$ENDTC,$$ENMRN,$$ENPDN)^PSGMI (DD,EXDD,PAGECK)^PSGPLR $$ENSET^PSGSICHK
IHS Changes To Pharmacy	1	$$HRC^APSPFUNC
VA Fileman	1	^DIR

Package	Total	Caller Graph
Inpatient Medications	1	PSGPLR

Name	Comments	DBIA/ICR reference
P2	;
GTDOSES	; Set # dispense drugs and times to be admined.
P1	;
EXH	;
GTORDER	; Get order number of order in 55.
HEADER	;
B0	;
B1	;
PLN3	;
PLN1
FCL	;
HEADSP	;Screen stops

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?27,"No orders found for this patient." Line Location: B1+4
Function Call: WRITE	Prompt: !!,WL," WARD: ",PW," ",WL,!?1,$S(PRM'["zz":PRM,1:"* N/F *"),?11," ",$S(PPN'=PSGP:PPN,1:"NOT FOUND ("_PSGP_")"),$S(PSSN:" ("_PSSN_")",1:""),":" Line Location: PLN1+0
Function Call: WRITE	Prompt: ! Line Location: P2+2
Function Call: WRITE	Prompt: !?6,OLINE Condition for execution: OCNT>1 Line Location: P2+2
Function Call: WRITE	Prompt: ! Line Location: PLN3+1
Function Call: WRITE	Prompt: !?6,OLINE Condition for execution: OCNT>1 Line Location: PLN3+1
Function Call: WRITE	Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: "_FACL Line Location: FCL+1
Function Call: WRITE	Prompt: !?6,OLINE Line Location: EXH+1
Function Call: WRITE	Prompt: !,?18,"* DC'D OR EXPIRED FROM "_WARD_" "_$G(VAIN(5))_" *" Line Location: EXH+2
Function Call: WRITE	Prompt: !,?18,"* DC'D OR EXPIRED WITHIN LAST 24 HOURS *" Line Location: EXH+3
Routine Call	DIR Line Location: HEADSP+1

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	P1+1
^PS(53.5 - [#53.5]	B0+1, B1+2, B1+4, B1+5, B1+6, B1+7, B1+8, GTORDER+1, GTDOSES+1, P2+1
^PS(55 - [#55]	P2+3, PLN3+2

Name	Field # of Occurrence
>> AT	P2+4*
>> CML	FCL+1
DIR	HEADSP+1!
DIR(0	HEADSP+1*
>> DIS	PLN3+2*
>> DO	P2+3, PLN3+2
>> DR	PLN3+2, PLN3+3
>> DRG	B1+5, B1+7, B1+8*, GTORDER+1, GTDOSES+1, P2+1
>> DTOUT	HEADSP+1
>> DUOUT	HEADSP+1
>> FACL	FCL+1
>> FD	P2+4, PLN3+2
>> FFF	B0+1, P1+1
>> FQC	P2+4*
IOF	HEADER+1
IOSL	P1+1, P2+2, PLN3+1
>> LINE	HEADER+3
>> ND	P1+1*
>> ND0	P2+3*
>> ND1	P2+3*
>> ND2	P2+3*, P2+4
>> ND6	P2+3*
>> NPLF	HEADER+2
>> OCNT	B1+6, PLN1, P2+2, PLN3+1*
>> OLINE	B1+6, P2+2, PLN3+1, EXH+1
>> PDRG	P2+3*
>> PFD	HEADER+2
>> PGN	FCL+1, HEADER+1*, HEADER+2
>> PN	B0+1, B1+1, B1+2, B1+3, B1+4, B1+5, B1+6, B1+7, B1+8
>> PPLD	HEADER+2
>> PPN	B1+2, B1+3, P1+1, PLN1
>> PRM	B0+1, B1+3, PLN1
>> PSD	HEADER+2
>> PSGP	B1+3*, GTORDER+1, GTDOSES+1, P1+1, P1+2, PLN1, P2+1, P2+3, PLN3+2
>> PSGPLG	B0+1, B1+2, B1+4, B1+5, B1+6, B1+7, B1+8, GTORDER+1, GTDOSES+1, P2+1 , HEADER+2
PSGPLSTR	B1+1!
>> PSGPLUPF	HEADER+2
>> PSGPLWGP	FCL+1
>> PSGPLXR	B0+1, B1+4, B1+5, B1+7, B1+8
PSJDLW	HEADSP+1!*
>> PSJJORD	GTORDER+1, P2+1, P2+3, PLN3+2
>> PSJORDN	GTDOSES+1*, P2+2, PLN3+1
>> PSSN	P1+1, P1+2, PLN1
>> PST	B1+4, B1+5, B1+6, B1+7, B1+8, P2+4
>> PW	B0+1, B1+3, P1+1*, PLN1
>> RM	B0+1, B1+1, B1+4, B1+5, B1+6, B1+7, B1+8
>> RTE	P2+3, P2+4, PLN3+2, PLN3+3
>> SCH	P2+4, PLN3+2
>> SD	P2+4, PLN3+2
>> SM	P2+3*
>> STPDT	P2+4, PLN3+2
>> TM	B0+1, B1+1*, B1+4, B1+5, B1+6, B1+7, B1+8, HEADER+2
>> TND	B1+3, HEADER+3
U	B1+2, B1+3, GTORDER+1, GTDOSES+1, P2+1
>> WDN	B0+1, B1+1, B1+4, B1+5, B1+6, B1+7, B1+8
>> WGPN	HEADER+2
>> WL	P1+1*, PLN1
>> WSF	B1+3
>> X	P2+4, PLN3+4
>> Y	P2+3*