Routine: PSGOE82

Information

PSGOE82 ;BIR/CML - NON-VERIFIED ORDER EDIT (CONT.) ;Oct 14, 2020@16:44:24

Package	Total	Call Graph
Inpatient Medications	8	$$ACTPRO^PSGOE1 ENHLP^PSGOEM $$CODES2^PSIVUTL ($$ISCLOZ,PROVCHK)^PSJCLOZ (DOSECHK,DSPWARN)^PSJDOSE $$LASTREN^PSJLMPRI ALLERGY^PSJOC ($$PADECL,$$PADEWD,READDD)^PSJPAD50
VA FileMan	6	^%DT (,LIST)^DIC YN^DICN ^DIE $$GET1^DIQ ^DIR
Kernel	1	$$SDEA^XUSER
List Manager	1	PAUSE^VALM1
Pharmacy Data Management	1	$$OIDEA^PSSOPKI
Registration	1	INP^VADPT
Toolkit	1	$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Inpatient Medications	6	PSGOE8 PSGOE81 PSGOE92 PSGOER0 PSIVEDT PSJCLOR4

Entry Points

Name	Comments	DBIA/ICR reference
1	; provider
A1
A01	;
A2
5	; self med
A5
6	; hospital supplied self med
A6
2	; dispense drug multiple
40	; comments
66	; provider comments
DONE	;
ENFF	; up-arrow to another field
DEL	; delete entry
CLOZPRV	;; START NCC T4 MODS >> 327*RJS
YN	; yes/no as a set of codes
DDOC(PSGX)	; Order check on additional dispense drug for allergy and adv. reactions.
50
51
F101	;;101^PSGOE8
F109	;;109^PSGOE8
F3	;;3^PSGOE8
F7	;;7^PSGOE8
PSGF26	;;26^PSGOE8
F39	;;39^PSGOE81
F8	;;8^PSGOE81
F10	;;10^PSGOE81
PSGF25	;;25^PSGOE81
F1	;;1^PSGOE82
F5	;;5^PSGOE82
PSGF2	;;2^PSGOE82

External References

Name	Field # of Occurrence
^%DT	51+7
^DIC	A01+8, ENFF+3
LIST^DIC	2+4, 2+17
YN^DICN	DEL+1
^DIE	2+29, 40+1
$$GET1^DIQ	A01+4, 2+5, 2+12, 2+15, 2+18, 2+19, 2+20, 2+21, CLOZPRV+1, CLOZPRV+2
^DIR	50+4
$$ACTPRO^PSGOE1	A1+3
ENHLP^PSGOEM	A01+3, A01+6, A5+5, A5+7, A6+4, A6+6
$$CODES2^PSIVUTL	ENFF+2
$$ISCLOZ^PSJCLOZ	CLOZPRV+1, CLOZPRV+2, CLOZPRV+3
PROVCHK^PSJCLOZ	CLOZPRV+6
DOSECHK^PSJDOSE	2+33
DSPWARN^PSJDOSE	2+34
$$LASTREN^PSJLMPRI	A1
ALLERGY^PSJOC	DDOC+5
$$PADECL^PSJPAD50	2+13
$$PADEWD^PSJPAD50	2+14
READDD^PSJPAD50	2+27
$$OIDEA^PSSOPKI	A2+8
INP^VADPT	2+25
PAUSE^VALM1	A1+1, 2+2
$$GET^XPAR	2+9
$$SDEA^XUSER	A2+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"This order has been renewed. Provider may not be edited at this point. " Line Location: A1+1
Function Call: WRITE	Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"") Line Location: A01+1
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A01+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: A5+0
Function Call: WRITE	Prompt: !,"SELF MED: " Line Location: A5+0
Function Call: WRITE	Prompt: $P("NO^YES","^",PSGSM+1),"// " Line Location: A5+0
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A5+3
Function Call: WRITE	Prompt: $C(7) Line Location: A5+7
Function Call: READ	Variable: X Timeout: DTIME Line Location: A6+0
Function Call: WRITE	Prompt: !,"HOSPITAL SUPPLIED SELF MED: " Line Location: A6+0
Function Call: WRITE	Prompt: $P("NO^YES","^",PSGHSM+1),"// " Condition for execution: PSGHSM]"" Line Location: A6+0
Function Call: WRITE	Prompt: " (",$P("NO^YES","^",PSGHSM+1),")" Line Location: A6+1
Function Call: WRITE	Prompt: $C(7)," (Required)" Line Location: A6+2
Function Call: WRITE	Prompt: $C(7) Line Location: A6+6
Function Call: WRITE	Prompt: !,"You are not authorized to edit Dispense Drugs." Line Location: 2+2
Function Call: WRITE	Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!",! Line Location: 2+30
Function Call: WRITE	Prompt: ! Line Location: 40+1
Function Call: WRITE	Prompt: ! Line Location: 66+1
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: ENFF+1
Function Call: WRITE	Prompt: $C(7)," <NOTHING DELETED>" Line Location: DEL+1
Function Call: WRITE	Prompt: $P(Y,X,2) Line Location: YN+2
Routine Call	DIC Line Location: A01+8 ENFF+3
Routine Call	DIC Line Location: 2+4 2+17
Routine Call	DIE Line Location: 2+29 40+1
Routine Call	DIR Line Location: 50+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls, GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PS(50.7 - [#50.7]	GET1^DIQ
^PS(53.1 - [#53.1]	GET1^DIQ
^PS(53.45 - [#53.45]	Classic Fileman Calls
53.4502	GET1^DIQ, LIST^DIC
55.06	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	51+5, 51+6
^PS(53.45 - [#53.45]	2+30, DDOC+2, DDOC+8!
^SC - [#44]	50+3

Label References

Name	Line Occurrences
6	A5+2, A5+6
@(	A01+7, A5+4, A6+3, DONE+1
A01	A2+9
A1	A01+3, A01+7, A01+8, A2+1
A2	A01+5
A5	A5+3, A5+4, A5+5, A5+7
A6	A6+2, A6+3, A6+4, A6+6
CLOZPRV	A2
DDOC	2+31
DONE	A01+2, A01+4, A2+12, A5, A5+2, A5+6, A6, A6+1, A6+5, 2+35 , 40+1, 50+5, 50+8, 51+8, 51+12
ENFF	A01+7, A5+4, A6+3
YN	A5+6, A6+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEL+1*
%DT	51~, 51+2!, 51+3*, 51+10!
%DT("A"	51+3*
%DT("B"	51+5*
ANQX	A01+4, A01+5, A2, A2+1!, CLOZPRV+6, CLOZPRV+7
ARRAY	2+4~, 2+17~
ARRAY("DILIST"	2+4, 2+18
>> BACK	1+1, 5+1, 6+1, 2+3, 40+1, DONE+1, 50+1, 51+1*
BKP	A1+3~, A1+4*, A01+2
BKPN	A1+3~, A1+4*, A01+2
>> BKUP	A01+2
CLN	50~, 50+3*
CLNDT	51~
CLOZFLG	CLOZPRV+1~, CLOZPRV+2, CLOZPRV+3*, CLOZPRV+4
DA	2+10~, 2+29~, 40+1
DFN	2+10~, 2+16*, 2+21
DIC	A01+8!, 2+10~, 2+29~, ENFF+3!
DIC("S"	A01+8, ENFF+3
DIC(0	A01+8, ENFF+3
DIE	2+10~, 2+29~, 40+1
DIR	2+10~, 2+29~, 50~
DIR("A"	50+2*
DIR("B"	50+3*
DIR("S"	50+2*
DIR(0	50+2*
>> DIRUT	50+5
DR	2+10~, 2+29~, 40+1
DR(2	2+29*
DTIME	A01+1, A5, A6
>> DTOUT	51+8
F	DONE+2!
F0	DONE+2!
F3	DONE+2!
>> I	2+18*
INTERVEN	DDOC+3~, DDOC+4*
>> MSG	1+1, 5+1, 6+1, A6+1, A6+5, 2+3, 2+30, 40+1, 50+1, 51+1
>> P("APPT"	51+4, 51+9*
>> P("CLIN"	50+3, 50+6*
PDEA	A2+5~, A2+8*, A2+9
PSDEA	A2+5~, A2+8*, A2+10
PSG	DONE+2!
>> PSGDRG	CLOZPRV+3
PSGF2	1+1, 5+1, 6+1, A6+1, A6+5, 2+3, 40+1, DONE+1, DONE+2!, 50+1 , 50+7, 51+1*, 51+11
>> PSGHSM	A6, A6+1, A6+5
PSGND1	DDOC+1~
PSGND3	DDOC+1~
>> PSGOEE	A01+2, A5, A6, DONE+1, 50+5, 50+7, 51+8, 51+11
>> PSGOEEF	ENFF+1
>> PSGOEEF(	1+1, 5+1, 6+1, DONE+1, ENFF+2, 50+1, 50+7, 51+1, 51+11
>> PSGOEEF(109	2+34*
>> PSGOEEF(6	5+1!, A5+2, A5+6!*
PSGOEEND	2+3!
>> PSGOPR	A1+4
>> PSGOPRN	A1+4
>> PSGORD	A1, 2+5, 2+12, 2+15, 2+16, 2+21, 2+27, CLOZPRV+1, CLOZPRV+2
PSGORQF	DDOC+3~, DDOC+7
>> PSGP	A1, 2+16, CLOZPRV+2
>> PSGPD	2+20, 2+27
>> PSGPDRG	A2+6, A2+8
>> PSGPR	A1+3, A1+4, A1+6, A01+1, A01+2, A01+3, A01+4, A2+1, A2+3, A2+8 , A2+11, CLOZPRV+5, CLOZPRV+6
>> PSGPRN	A1+4, A1+6, A01+1, A01+2, A01+4, A2+1, A2+3, A2+11, CLOZPRV+5
>> PSGSM	5+1, A5, A5+2, A5+6
PSGX	2+4~, 2+31, DDOC~, DDOC+2, DDOC+8
PSGY	DDOC+1~, DDOC+2*, DDOC+3, DDOC+8
PSJACT	A1+3~, A1+4, A01+2, A2+9*
>> PSJALGY1	DDOC+5
PSJALLGY	DDOC+1~
PSJALLGY(	DDOC+5*
>> PSJCLAPP	50+3, 50+6, 51+4, 51+9
PSJCLND	2+10~, 2+21*, 2+22
PSJCLNK	2+10~, 2+13*, 2+14
PSJDD	DDOC+3~*, DDOC+5
PSJDDC	2+10~, 2+18*, 2+19
PSJDDI	DDOC+3~
PSJDEA	A2+5~, A2+8*
PSJDOSE	2+32~
PSJDRG	2+10~, 2+27
PSJDRG(	2+18*, 2+19
>> PSJDSFLG	2+34
PSJIREQ	DDOC+3~, DDOC+4*
PSJLOC	2+10~, 2+22, 2+24, 2+25*, 2+27
PSJORCL	2+10~, 2+12*, 2+13
PSJORD	2+10~, 2+16*, 2+21, 2+27
PSJPADLK	2+8~, 2+26, 2+29
PSJPDRG	DDOC+3~
PSJPNDRN	2+5~, 2+6, 2+29
PSJPOI	2+10~, 2+15, 2+18, 2+19, 2+20*, 2+27
>> PSJPROT	A2+7
PSJRXREQ	DDOC+3~, DDOC+4*
>> PSJSYSP	2+4, 2+17, 2+18, 2+29, 2+30, 40+1, DDOC+2, DDOC+8
>> PSJSYSU	2+2
PSPPKG	A2+5~, A2+7*, A2+8
PSTMPI	A1+6*, A01+2, A2+1!, A2+11, CLOZPRV+7!
PSTMPN	A1+6*, A01+2, A2+1!, A2+11, CLOZPRV+7!
SDT	DONE+2!
U	50+3
VAIN	2+25~
VAIN(4	2+14, 2+24, 2+25
X	A01+1, A01+2, A01+3, A01+4, A01+6, A01+7, A5, A5+2, A5+3, A5+4 , A5+5, A5+6, A6, A6+1, A6+2, A6+3, A6+4, A6+5, ENFF+1, ENFF+2 , YN+1, YN+2, DDOC+4, 50~, 51~
Y	A01+7, A01+8, A2+3, A5+4, A6+3, ENFF+1, ENFF+2, ENFF+3, CLOZPRV+5, YN+1 , YN+2, DDOC+4, 50~, 50+6, 51~, 51+4*, 51+5, 51+8, 51+9
Y(0	A2+3, CLOZPRV+5

Marked Items

Name	Field # of Occurrence
$T(@(3)	ENFF+3

Customize PDF page

Package: Inpatient Medications