Routine: PSGOEM

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN FIELD^DID
Inpatient Medications	1	$$CODES2^PSIVUTL

Package	Total	Caller Graph
Inpatient Medications	16	PSGOE3 PSGOE31 PSGOE4 PSGOE41 PSGOE42 PSGOE6 PSGOE8 PSGOE81 PSGOE82 PSGOE9 PSGOE91 PSGOE92 PSGOEC PSGOER0 PSJDOSE PSJLIACT

Entry Points

Name	Comments	DBIA/ICR reference
ENUMK	;
ENCOM	;
ENAH	; help text for "ACTION" prompt
ENCAM	;
ENFF	; up-arrow to another field
ENVM	;
SC	;
ENHLP(F1,F2)	; order entry fields' help ; Input: F1 - File # ; F2 - Field #

External References

Name	Field # of Occurrence
^DIC	ENFF+4
YN^DICN	ENUMK+2
FIELD^DID	ENHLP+6, ENHLP+10, ENHLP+13
$$CODES2^PSIVUTL	ENFF+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter a 'Y' (or press the RETURN key) to ",$S(PSJSYSU:"",1:"mark for "),"discontinu",$S(PSJSYSU:"e",1:"ation")," all of this" Line Location: ENCAM+1
Function Call: WRITE	Prompt: "orders. Enter an 'N' (or '^') to leave this option now." Line Location: ENCAM+2
Function Call: WRITE	Prompt: !!,"Enter a 'Y' to ",$S(CF:"discontinue this order",1:"mark this order for discontinuation"),". Press the RETURN key (or" Line Location: ENCOM+1
Function Call: WRITE	Prompt: " " Condition for execution: 'CF ! W:CF " " W "enter an 'N'" W:CF ! W:'CF Line Location: ENCOM+1
Function Call: WRITE	Prompt: "or '^') to leave this option now." Line Location: ENCOM+1
Function Call: WRITE	Prompt: " BEEN 'MARKED FOR DISCONTINUATION'." Line Location: ENUMK+1
Function Call: WRITE	Prompt: !,"DO YOU WANT TO 'UNMARK' ",$S($D(PSGORD):"IT",1:"THEM") Line Location: ENUMK+2
Function Call: WRITE	Prompt: !!?2,"Enter 'Y' to UNMARK "_$S($D(PSGORD):"this order",1:"these orders")_". Enter 'N' to leave the order"_$E("s",$D(PSGORD)[0)_" MARKED AS IS.",! Line Location: ENUMK+2
Function Call: WRITE	Prompt: !?5 Line Location: ENHLP+4
Function Call: WRITE	Prompt: !?5 Condition for execution: $L(F3)+$X>78 Line Location: ENHLP+4
Function Call: WRITE	Prompt: F3_" " Line Location: ENHLP+4
Function Call: WRITE	Prompt: !?5 Line Location: ENHLP+7
Function Call: WRITE	Prompt: !?5 Condition for execution: $L(F3)+$X>78 Line Location: ENHLP+7
Function Call: WRITE	Prompt: F3_" " Line Location: ENHLP+7
Function Call: WRITE	Prompt: !?2,PSJD("DESCRIPTION",F) Line Location: ENHLP+14
Function Call: WRITE	Prompt: !?2,^(0) Line Location: ENHLP+15
Function Call: WRITE	Prompt: !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",! Line Location: ENHLP+16
Function Call: WRITE	Prompt: !?2,^(0) Line Location: ENHLP+18
Function Call: WRITE	Prompt: !?2,^(0),"RB.." Line Location: ENHLP+19
Function Call: WRITE	Prompt: !?5,"CHOOSE FROM:",!?7,"W",?16,"WRITTEN",!?7,"P",?16,"TELEPHONE",!?7,"V",?16,"VERBAL",! Line Location: ENHLP+20
Function Call: WRITE	Prompt: !,"CHOOSE FROM:",!?8,0,?16,"NO",!?8,1,?16,"YES" Line Location: SC+1
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: ENFF+1
Function Call: WRITE	Prompt: " " Condition for execution: X="^301" Line Location: ENFF+2
Function Call: WRITE	Prompt: $P("^DOSAGE ORDERED",X,2) Line Location: ENFF+2
Function Call: WRITE	Prompt: !!,"YOU MAY SELECT:" Line Location: ENAH+1
Function Call: WRITE	Prompt: !?5,"H to ",$S(HF:"place this order on",1:"take this order off of")," hold." Line Location: ENAH+6
Function Call: WRITE	Prompt: !!,"You may also select:" Line Location: ENAH+12
Function Call: WRITE	Prompt: !?5,"C to copy (duplicate) this order into a new, non-verified order." Line Location: ENAH+12
Function Call: WRITE	Prompt: !?5,"P to print this order to a device.",!?5,"S to show this order again." Line Location: ENAH+13
Function Call: WRITE	Prompt: !!,"PLEASE NOTE: This order is automatically verified, and unless discontinued",!?13,"now, will show as active." Line Location: ENAH+14
Routine Call	DIC Line Location: ENFF+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENUMK+2*
>> CF	ENCOM+1
DIC	ENFF+4!*
DIC("S"	ENFF+4*
DIC(0	ENFF+4*
F	ENHLP+3~, ENHLP+7, ENHLP+14
F0	ENHLP+3~, ENHLP+7*
F1	ENHLP~, ENHLP+6, ENHLP+10, ENHLP+13
F2	ENHLP~, ENHLP+6, ENHLP+10, ENHLP+13, ENHLP+16, SC+1
F3	ENHLP+3~, ENHLP+7*
>> HF	ENAH+6*
>> PSGACT	ENAH+2, ENAH+3, ENAH+4, ENAH+5, ENAH+6, ENAH+7, ENAH+8, ENAH+9, ENAH+10, ENAH+11
>> PSGDI	ENAH+12
>> PSGFOK	ENFF+1
>> PSGFOK(	ENFF+3
>> PSGODF	ENAH+12
>> PSGOEA	ENAH+12, ENAH+13
>> PSGOEAV	ENAH+14
>> PSGOENG	ENAH+12
>> PSGOETOF	ENAH+15
>> PSGORD	ENUMK+2, ENAH+6
>> PSGP	ENAH+6
>> PSGPI	ENAH+12
>> PSGRRF	ENAH+10
PSJD	ENHLP+3~
PSJD("DESCRIPTION"	ENHLP+14
PSJHP	ENHLP+3~
PSJHP("HELP-PROMPT"	ENHLP+7
>> PSJON	ENVM+1
>> PSJPCAF	ENAH+12
>> PSJPRF	ENVM+1
>> PSJSYSU	ENCAM+1, ENCAM+2, ENAH+9
PSJX	ENHLP+3~
PSJX("XECUTAB	LE HELP" , ENHLP+10
>> X	ENHLP+7, ENHLP+14, ENFF+3*
>> Y	ENFF+1, ENFF+3, ENFF+4*

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEM

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ENHLP+10
^PS(55 - [#55]	ENAH+6