Routine: PSGLBA

Package	Total	Call Graph
Inpatient Medications	2	(ENCV,ENKV)^PSGSETU ENTSK^PSGTI
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
Inpatient Medications	4	PSGL PSGL0 PSJ UD ALIGN LABEL PSJU AL

Entry Points

Name	Comments	DBIA/ICR reference
SLAVE	;
DONE	;
H2	;
H1	;
ENAL	; for align option
EN1	; alignment upon entry into package
EN2	;
L2
ALDONE	;
ASK	;
ENLP	; please do NOT place an IF statement in this paragraph
OK	;
E1
DEV	;

External References

Name	Field # of Occurrence
^%ZIS	E1, EN2+1, ENAL+2, ENAL+4, SLAVE+1
^%ZISC	ENAL+2, ENAL+4, ENAL+5, SLAVE+1
YN^DICN	ASK+1, OK+1
ENCV^PSGSETU	ENAL+1
ENKV^PSGSETU	ALDONE+1
ENTSK^PSGTI	DEV+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "\------------- FIRST LINE OF LABEL ------------/" Line Location: ENLP+1
Function Call: WRITE	Prompt: !,"<",?47,">",!,"<------------- LABEL BOUNDARIES --------------->" Line Location: ENLP+2
Function Call: WRITE	Prompt: !,"<",?47,">",!,"/--------------LAST LINE OF LABEL--------------\" Line Location: ENLP+3
Function Call: WRITE	Prompt: !!," XX/XX \| XX/XX \| XX/XX/XX XX:XX (PXXXX) \| A T",?52,"PATIENT NAME",?87,"ROOM-BED" Line Location: L2+0
Function Call: WRITE	Prompt: !," DRUG NAME",?30,"SCHEDULE TYPE\| D I",?52,"XXX-XX-XXXX",?70,"DOB"," (AGE)",?91,"TEAM" Line Location: L2+1
Function Call: WRITE	Prompt: !," DOSAGE ORDERED MED ROUTE SCHEDULE \| M M",?52,"SEX",?65,"DIAGNOSIS" Line Location: L2+2
Function Call: WRITE	Prompt: !," SPECIAL INSTRUCTIONS",?43,"\| I E",?52,"ACTIVITY DATE/TIME",?72,"ACTIVITY" Line Location: L2+3
Function Call: WRITE	Prompt: !," WS HSM NF",?25,"RPH:_____ RN:_____",?43,"\| N S",?52,"WARD GROUP",?91,"WARD",!! Line Location: L2+4
Function Call: READ	Prompt: " DEVICE [BUSY] ... WAIT? " Timeout: DTIME Variable: X Line Location: E1+1
Function Call: WRITE	Prompt: " (WAITING)",! Line Location: E1+1
Function Call: WRITE	Prompt: " (NO)" Line Location: E1+2
Function Call: WRITE	Prompt: ! Line Location: ENAL+2
Function Call: WRITE	Prompt: !!,"No printer selected; labels not aligned." Line Location: ENAL+2
Function Call: WRITE	Prompt: !,"Do you need to align the UNIT DOSE label stock" Line Location: ASK+1
Function Call: WRITE	Prompt: !!?2,"Enter 'Y' to print test labels on the printer just selected to check the",!,"alignment of the label stock. If the test labels are not needed, enter an 'N' (or simply press the RETURN key).",! Line Location: H1+1
Function Call: WRITE	Prompt: !!," Are the labels aligned correctly" Line Location: OK+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: OK+2
Function Call: WRITE	Prompt: !!,"Re-align the labels, and then press the RETURN key for more test labels. " Line Location: OK+2
Function Call: WRITE	Prompt: Y=1 Condition for execution: '$T $C(7) S:X="^"!'$T Line Location: OK+2
Function Call: WRITE	Prompt: !!?2,"Enter 'Y' if the label stock is aligned correctly. Enter an 'N' if you need",!,"to adjust the label stock and print test labels again." Line Location: H2+1
Routine Call	%ZIS Line Location: E1 EN2+1 ENAL+2 ENAL+4 SLAVE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+1, ASK+2, OK+1, OK+2
%ZIS	EN1+2, ENAL+2!, ENAL+4!, SLAVE+1*
%ZIS("A"	ENAL+2*
%ZIS("B"	ENAL+2*
DTIME	E1+1, OK+2
IO	ENLP+1, EN1+1, EN2+1, ENAL+3
IO("Q"	DEV+1, DEV+2
IO(0	EN1+1, EN2+1, ENAL+3, OK+1
ION	ENAL+4, DEV+2, SLAVE+1
IOP	E1, EN2+1, DONE+1!, ENAL+2!, ENAL+4, SLAVE+1
IOST	EN1+1, EN2+1, ENAL+3
POP	E1, DONE+1!, ENAL+2
PSGLBA	EN2+1, DONE+1!, ENAL+4, ALDONE+1!, DEV+2, SLAVE+1*
>> PSGTID	DEV+2*
PSGTINC	DEV+2*, DEV+3!
>> PSGTIR	DEV+2*
>> PSJSYSL	E1, ENAL+2
>> Q	E1*
>> X	E1+1, OK+2
>> XQUIT	ENAL+1
>> Y	EN1+2, EN2+2, ENAL+4, DEV+1, DEV+2, SLAVE+1, ASK+2, OK+2
>> ZTDESC	DEV+2*
ZTSAVE	DEV+2!

Customize PDF page

Package: Inpatient Medications

Routine: PSGLBA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Name	Line Occurrences
ALDONE	ENAL+2, ENAL+3
ASK	EN1+2, EN2+2, SLAVE+1
DEV	E1+3, EN2+2, ENAL+5
DONE	EN1+1, EN1+2, E1+2, E1+3, EN2+1
E1	E1+1
ENLP	ENAL+4, DEV+1, SLAVE+1
H1	ASK+1
H2	OK+1
OK	ENAL+4, DEV+1, DEV+2, SLAVE+1
SLAVE	EN1+1, EN2+1