Routine: PSGOE2

Package	Total	Call Graph
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	7	PSGOE1 PSGOEE PSGOER0 PSGOERS PSGOEV PSJCOM PSJHLV

Entry Points

Name	Comments	DBIA/ICR reference
CHK	; check for valid reply and questions
CHKDD(F)	;*** Check inactive dispense drug within the order.
DDOK(PSJF,OI)	;Check to be sure all dispense drugs that are active in the
CHKDRG	;*** Check inactive Orderable Item/disp drug and also if marked for UD
OIOK(X)	; Check to be sure orderable item is valid ; input: X - IEN of orderable item ; Output: 0 - invalid ; 1 - valid
STUFFDD()	;*** Stuff DD in ^PS(53.1 only if a valid DD is 1 to 1 link to OI.

Name	Field # of Occurrence
NOW^%DTC	STUFFDD+4

Name	Line Occurrences
Function Call: WRITE	Prompt: $S(PSGOEA="P":"RINT",1:"HOW") Line Location: CHK+1
Function Call: WRITE	Prompt: "OPY" Line Location: CHK+2
Function Call: WRITE	Prompt: " (DISCONTINUE)" Line Location: CHK+3
Function Call: WRITE	Prompt: $S(PSGOEA="R"&PSGRRF:"EINSTATE",1:$P("^YPASS^ISCONTINUE^DIT^INISH^OLD^NCOMPLETE^OG DISPLAY^ENEW^ERIFY","^",$F("BDEFHILRV",PSGOEA))) Line Location: CHK+4
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: CHK+5

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	OIOK+4, OIOK+5
^PS(53.1 - [#53.1]	STUFFDD+6
^PSDRUG - [#50]	CHKDD+16, STUFFDD+6, DDOK+12
^PSDRUG("ASP"	STUFFDD+6

Name	Line Occurrences
$$DDOK	CHKDRG+3
$$OIOK	CHKDRG+5

Name	Field # of Occurrence
>> %	STUFFDD+4
>> C	CHK+1, CHK+5
DDCNT	DDOK+7~, DDOK+11, DDOK+13
DRG	CHKDRG+1~, CHKDD+13~, CHKDD+15, STUFFDD+5~, STUFFDD+6
DRGPT	CHKDRG+1~, CHKDD+13~, CHKDD+15*, CHKDD+16
DT	CHKDD+15, CHKDD+16, OIOK+6
F	CHKDD~, CHKDD+14, CHKDD+15
INACTDT	CHKDRG+1~, CHKDD+15*
ND	DDOK+7~, DDOK+9*, DDOK+10, DDOK+12
OI	DDOK~, DDOK+12
>> PSGACT	CHK+3, CHK+4
PSGDFLG	CHKDRG+1!, CHKDRG+3, CHKDD+13~, CHKDD+14, CHKDD+15, CHKDD+16*, CHKDD+17
PSGDI	CHKDRG+1!, CHK+2
>> PSGDT	STUFFDD+4*, STUFFDD+6, DDOK+10, DDOK+12
>> PSGE	CHKDRG+5*
PSGINDT	CHKDD+13~, CHKDD+14, CHKDD+15, CHKDD+17
>> PSGODF	CHK+2
>> PSGOEA	CHK+1, CHK+2, CHK+3*, CHK+4, CHK+5
>> PSGOENG	CHK+2
>> PSGORD	CHKDRG+3, STUFFDD+6
>> PSGP	CHKDRG+3
>> PSGPD	CHKDRG+3, CHKDRG+5
PSGPFLG	CHKDRG+1!, CHKDRG+5*, CHK+2
>> PSGPI	CHK+2
>> PSGR	CHKDRG+5*
>> PSGRRF	CHK+4
PSJ	DDOK+7~, DDOK+9*
PSJF	DDOK~, DDOK+8, DDOK+9
>> PSJPCAF	CHK+2
>> PSJSYSU	DDOK+8
Q	STUFFDD+5~, STUFFDD+6, STUFFDD+7
QPT	STUFFDD+5~, STUFFDD+6, STUFFDD+7
U	CHKDD+15, CHKDD+16, STUFFDD+6, DDOK+10, DDOK+12, OIOK+5
X	CHKDRG+1~, STUFFDD+5~, STUFFDD+6, DDOK+7~, DDOK+9, DDOK+12, DDOK+13, OIOK~, OIOK+4, OIOK+5* , OIOK+6