Routine: PSGOE

Package	Total	Call Graph
Inpatient Medications	9	ENQL^PSGLW ^PSGOEPO ENDPT^PSGP ^PSGPER ^PSGPER1 (ENCV,ENKV)^PSGSETU WP^PSJAC LOCKERR^PSJOE $$ENORL^PSJUTL
VA Fileman	3	NOW^%DTC YN^DICN ^DIK
Kernel	2	^%ZIS ^%ZISC
Registration	2	INP^VADPT EN^VALM
Pharmacy Data Management	1	($$L,UL)^PSSLOCK

Package

Total

Call Graph

Inpatient Medications

ENQL^PSGLW ^PSGOEPO ENDPT^PSGP ^PSGPER ^PSGPER1 (ENCV,ENKV)^PSGSETU WP^PSJAC LOCKERR^PSJOE
$$ENORL^PSJUTL

VA Fileman

NOW^%DTC YN^DICN ^DIK

Kernel

^%ZIS ^%ZISC

Registration

INP^VADPT EN^VALM

Pharmacy Data Management

($$L,UL)^PSSLOCK

Package	Total	Caller Graph
Inpatient Medications	1	PSJU NE

Package

Total

Caller Graph

Inpatient Medications

PSJU NE

Name	Comments	DBIA/ICR reference
EN	;
DDEV	;
CHUCK	;
HK	; Housekeeping (a nice COBOL term)
DDH	;
DONE	;
ORSU	; Oe/Rr Set-Up ;Not used anymore

External References

Name	Field # of Occurrence
NOW^%DTC	HK+1
^%ZIS	DDEV+1
^%ZISC	EN+2
YN^DICN	DDEV+6
^DIK	DDEV+8
ENQL^PSGLW	DONE+1, HK+4
^PSGOEPO	DONE+2, HK+5, DDEV+7
ENDPT^PSGP	EN+4
^PSGPER	EN+22
^PSGPER1	DONE+5
ENCV^PSGSETU	EN+1, EN+23, CHUCK+1
ENKV^PSGSETU	DONE+5
WP^PSJAC	HK+4
LOCKERR^PSJOE	EN+3
$$ENORL^PSJUTL	HK+6
$$L^PSSLOCK	EN+6
UL^PSSLOCK	EN+4
INP^VADPT	HK+4
EN^VALM	EN+9, EN+14, EN+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(PSJLK,U,2) Line Location: EN+6
Function Call: READ	Prompt: "Select Device to print ORDERS (10-1158): " Formatting: !! Timeout: DTIME Variable: DDEV Line Location: DDEV+1
Function Call: WRITE	Prompt: $C(7),!!?2,"The device you have selected is not a printer. You must select a printer." Line Location: DDEV+2
Function Call: WRITE	Prompt: !,"You cannot print the orders to your terminal." Condition for execution: PSGION=ION Line Location: DDEV+2
Function Call: WRITE	Prompt: !!?2,"You have unprinted orders. If you do not print them now, you will not be",!,"able to print them from here later." Line Location: DDEV+5
Function Call: WRITE	Prompt: !!,"Do you want to print them now" Line Location: DDEV+6
Function Call: WRITE	Prompt: !!?2,"Enter 'YES' to print the orders now. If you enter 'NO', you will not be",!,"able to print them from here later. (Enter '^' to exit this option.)" Line Location: DDEV+6
Function Call: WRITE	Prompt: !!?2,"Select a device to print each patient's orders (VA Form 10-1158) after you",!,"have entered them. If you do not select a device, no orders will print." Line Location: DDH+1
Function Call: READ	Prompt: "PSJSYSU: " Formatting: !! Timeout: DTIME Variable: PSJSYSU Line Location: CHUCK+1
Routine Call	VALM Line Location: EN+9 EN+14 EN+17
Routine Call	%ZIS Line Location: DDEV+1

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.44 - [#53.44]	DONE+2, DDEV+4
^PS(53.45 - [#53.45]	EN+3, DONE+3
^PS(55 - [#55]	HK+1
^TMP("PSJ"	EN+5!, EN+16, EN+24!
^TMP("PSJON"	EN+24!
^TMP("PSJPRO"	EN+24!

Name	Line Occurrences
DDEV	EN+2, DDEV+2
DDH	DDEV+1
DONE	EN+2, EN+3
EN	CHUCK+1
HK	EN+4

Name	Field # of Occurrence
^(	DDEV+4
^(4	HK+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HK+1, DDEV+2, DDEV+6, DDEV+7, DDEV+8
%ZIS	DDEV+1!*
D0	DONE+3!
>> DA	DDEV+8*
DDEV	EN+2, DONE+3!, DDEV+1*, DDEV+2, DDEV+3
DDH	DONE+4!
DDN	DONE+4!, DONE+5!
DFN	EN+9, EN+22~, HK+3~*
>> DIK	DDEV+8*
DRGI	DONE+4!
DTIME	DDEV+1, CHUCK+1
DUZ	DONE+2, DDEV+4, DDEV+8
FQ	DONE+4!
FQC	DONE+3!
HF	DONE+4!
I1	DONE+4!
I2	DONE+5!
IO	DDEV+3
IO("Q"	DDEV+1!
ION	EN+2, DDEV+2, DDEV+3
>> IOP	DDEV+1*
IOST	DDEV+2
J	DONE+3!
MRN	DONE+3!
ND	DONE+3!
ND1	DONE+4!, DONE+5!
ND2	DONE+3!
NF	DONE+4!
NXTPT	EN+7~, EN+10, EN+18, EN+19, EN+20
ORETURN	DONE+4!
ORIFN	DONE+4!
PDRG	DONE+4!
>> POP	DDEV+1*, DDEV+2
PRI	DONE+3!
PSBEBN	DONE+5!
PSG25	DONE+5!
PSG26	DONE+5!
PSGACTO	DONE+4!
PSGAL	DONE+4!
PSGCANFL	DONE+4!
PSGDA	DONE+4!
PSGEB	DONE+5!
>> PSGION	EN+2*, DDEV+2
PSGNEF	EN+2*, DONE+3!
PSGNEFDO	DONE+3!
PSGNESDO	DONE+3!
PSGNODE	DONE+5!
PSGOAT	DONE+5!
PSGOE	DONE+3!
PSGOEA	DONE+3!
PSGOEAV	EN+2*, DONE+3!
PSGOEDMR	DONE+3!
PSGOENOF	DONE+3!, HK+1*
PSGOEORF	DONE+4!
PSGOEPOF	DONE+2, DONE+3!, HK+5, DDEV+7*
PSGOL	EN+2*, DONE+3!
PSGOP	EN+2, DONE+1, DONE+2, DONE+3!, HK+2, HK+3, HK+5, HK+6
PSGP	EN+4, EN+6, EN+9, EN+21, EN+22~*, HK+1, HK+2, HK+5, HK+6
PSGPEN	DONE+4!
PSGPENWS	DONE+4!
>> PSGPTMP	EN+4*
PSGPX	DONE+3!
>> PSGPXN	EN+2, EN+21, DONE+5
PSGPXPT	EN+21*!, EN+22
PSGRDTX	EN+11!
PSGSTAT	DONE+5!
PSGTOL	DONE+3!
PSGTOO	DONE+3!
PSGUOW	DONE+3!
PSGVBY	EN+3!
PSGY	DONE+4!
PSJACNWP	HK+3~
PSJACPF	HK+3~, HK+4*
PSJLK	EN+1~, EN+4, EN+6*
>> PSJLMCON	EN+4, EN+8, EN+12, EN+14, EN+16, EN+17
PSJLMPRO	EN+8!, EN+14, EN+16, EN+17, EN+24!
>> PSJNEWOE	EN+12, EN+14, EN+15, EN+18, EN+20*
PSJNOO	DONE+4!
>> PSJOL	EN+13*
PSJOPC	DONE+3!
PSJORL	DONE+4!, HK+6*
PSJORPCL	DONE+4!
PSJORPV	DONE+4!
PSJORTOU	DONE+3!
PSJORVP	DONE+3!, HK+6*
PSJPROT	EN+1~, EN+9*
PSJPWD	HK+3~, HK+4*, HK+6
PSJSYSL	DONE+1, HK+3~, HK+4
PSJSYSO	EN+1~, DONE+2, HK+5, DDEV+3*
>> PSJSYSP	EN+3, DONE+3
>> PSJSYSU	EN+2, HK+1, CHUCK+1*
PSJSYSW	HK+3~
PSJSYSW0	EN+21, HK+3~
PX	DONE+3!
>> Q	HK+1, DDEV+4, DDEV+5
>> QQ	HK+1*
U	EN+6, EN+21
VAERR	HK+3~
VAIN	HK+3~
VAIN(4	HK+4
>> VALMBCK	EN+15
VALMEVL	EN+1~
>> X	HK+6*
XQORS	EN+1~
>> XQUIT	EN+1, CHUCK+1
XX	DONE+3!

Customize PDF page

Package: Inpatient Medications

Routine: PSGOE

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: