Routine: PSGPO

Package	Total	Call Graph
Inpatient Medications	4	$$ENDTC^PSGMI (ENCV,ENKV)^PSGSETU ENTSK^PSGTI EN1^PSJHL2
VA Fileman	4	^%DT (C,NOW)^%DTC YN^DICN ^DIK
Kernel	1	^%ZIS

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI (ENCV,ENKV)^PSGSETU ENTSK^PSGTI EN1^PSJHL2

VA Fileman

^%DT (C,NOW)^%DTC YN^DICN ^DIK

Kernel

^%ZIS

Package	Total	Caller Graph
Inpatient Medications	1	PSGOE1

Package

Total

Caller Graph

Inpatient Medications

PSGOE1

Name	Comments	DBIA/ICR reference
ENDS	; delete single order
DTM	;
DIK	;
ENRX	; re-index 55 to be able to purge UD orders (AUDDD x-ref)
ENQ	;
DONE	;
RX1	;
EDATE	;

Name	Field # of Occurrence
^%DT	PSGPO+5
C^%DTC	PSGPO+3
NOW^%DTC	ENRX+1, RX1+5
^%ZIS	PSGPO+6, PSGPO+7, ENQ+5
YN^DICN	ENDS+1
^DIK	DIK+1, ENDS+5
$$ENDTC^PSGMI	PSGPO+4
ENCV^PSGSETU	PSGPO+2
ENKV^PSGSETU	DONE+1
ENTSK^PSGTI	PSGPO+8, ENQ+5
EN1^PSJHL2	ENDS+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THERE ARE NO ORDERS TO PURGE AT THIS TIME." Line Location: PSGPO+2
Function Call: WRITE	Prompt: !!,"THERE ARE PICK LISTS THAT NEED TO BE FILED AWAY THAT MAY CONTAIN THESE ORDERS.",! Line Location: PSGPO+3
Function Call: READ	Prompt: "PURGE ORDERS FOR PATIENTS DISCHARGED BEFORE WHAT DATE: " Formatting: !! Timeout: DTIME Variable: X Line Location: PSGPO+5
Function Call: WRITE	Prompt: !!,"This purge will automatically be queued." Line Location: PSGPO+6
Function Call: WRITE	Prompt: !?3,"No device selected for purge run." Line Location: PSGPO+7
Function Call: WRITE	Prompt: !!," If a date is entered here, all orders for patients discharged before the date entered will be purged (deleted) from the computer. Please note that any orders for any patients admitted after the date entered will NOT be affected." Line Location: DTM+1
Function Call: WRITE	Prompt: !," The earliest discharge date found is ",PSGOD,! Line Location: DTM+2
Function Call: READ	Prompt: !! Timeout: % Variable: "DO YOU WANT TO DISCONTINUE THIS ORDER" S %=1 D YN^DICN Q Line Location: ENDS+1
Function Call: WRITE	Prompt: !!?2,"Answer 'Y' to d/c this order now. (It will be deleted immediately.)",!,"Answer 'N' (or '^') to not d/c the order." Line Location: ENDS+1
Function Call: WRITE	Prompt: !?3,"...one moment, please..." Line Location: ENDS+3
Function Call: WRITE	Prompt: !?3,"...one moment, please..." Line Location: ENDS+4
Function Call: WRITE	Prompt: ".DONE!" Line Location: ENDS+5
Routine Call	%ZIS Line Location: PSGPO+6 PSGPO+7 ENQ+5

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.43 - [#53.43]	ENQ+1, ENQ+2*, ENQ+3, DIK+1
^PS(53.5 - [#53.5]	PSGPO+3, EDATE+1, EDATE+2
^PS(55 - [#55]	PSGPO+2, ENQ+4, DIK+1!, ENRX+1!, RX1+1, RX1+5, RX1+6, ENDS+4

Name	Line Occurrences
DIK	ENQ+4
DONE	PSGPO+3, PSGPO+6, PSGPO+7, PSGPO+8
DTM	PSGPO+5
EDATE	PSGPO+3
RX1	ENRX+1

Name	Field # of Occurrence
^(	EDATE+1, ENRX+1, RX1+1, RX1+6*
^("AF"	PSGPO+3
^(0	DIK+1*, EDATE+2, RX1+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RX1+5, ENDS+1*, ENDS+2, ENDS+6!
%DT	PSGPO+5!*
%DT(0	PSGPO+5*
%Y	ENDS+6!
%ZIS	PSGPO+6!, ENQ+5!
%ZIS("A"	PSGPO+6*
%ZIS("B"	PSGPO+6*
A	ENRX+2!
AM	DONE+1!
>> D1	RX1+5, RX1+6
DA	ENQ+4, DIK+1, ENDS+4~, ENDS+5
DA(1	ENQ+4, DIK+1, ENDS+5
DIK	DIK+1, ENDS+4~, ENDS+5
>> DL	RX1+5*
DTIME	PSGPO+5
EDATE	PSGPO+3, PSGPO+5, DONE+1!, EDATE+1, EDATE+2*
H	ENQ+5*, DONE+1!
IO("Q"	PSGPO+6!
ION	PSGPO+6, PSGPO+8
IOP	PSGPO+6!, PSGPO+7, ENQ+5
>> ND	ENQ+1, ENQ+2
>> ON	RX1+1*
>> P	ENRX+1*, RX1+1, RX1+5, RX1+6
POD	PSGPO+2*!, PSGPO+3, PSGPO+4, DONE+1!
>> POP	PSGPO+7
>> PSGCANFL	ENDS+5*
>> PSGION	PSGPO+6*, PSGPO+7
PSGJ	ENQ+5*, DONE+1!
>> PSGOD	PSGPO+4*, DTM+2
>> PSGORD	ENDS+4, ENDS+5
>> PSGP	ENDS+4, ENDS+5
PSGPO	ENQ+4, DONE+1!, DIK+1, ENDS+4~, ENDS+5
PSGPOD	PSGPO+8*, ENQ+4, DONE+1!
PSGPOIO	PSGPO+8*, ENQ+5, DONE+1!
>> PSGTID	ENQ+5*
>> PSGTIR	PSGPO+8, ENQ+5
>> Q	RX1+5*
>> QQ	RX1+5*
>> RDA	ENQ+2*, ENQ+5, DIK+1
ST	DONE+1!
TRTN	DONE+1!
U	RX1+1, ENDS+4
>> X	PSGPO+3, PSGPO+5, EDATE+1, EDATE+2*
>> X1	PSGPO+3*
>> X2	PSGPO+3*
>> XQUIT	PSGPO+2
>> Y	PSGPO+4, PSGPO+5, PSGPO+6, PSGPO+8, EDATE+1, EDATE+2*
>> ZTDESC	PSGPO+8, ENQ+5
>> ZTIO	PSGPO+8*
ZTOUT	DONE+1!
ZTSAVE	PSGPO+8!, ENQ+5!
ZTSAVE("PSGJ"	ENQ+5*
ZTSAVE("PSGPOD"	PSGPO+8, ENQ+5
ZTSAVE("PSGPOIO"	PSGPO+8*
>> ZTSK	PSGPO+8, ENQ+5*

Customize PDF page

Package: Inpatient Medications

Routine: PSGPO

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: