Routine: PSGOERS

Information

PSGOERS ;BIR/CML3-RENEW SELECTED ORDERS ;29-May-2012 14:30;PLS

Source Information

Source file <PSGOERS.m>

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Inpatient Medications	12	^PSGAL5 ($$ENMRN,$$ENPDN)^PSGMI $$CHKDD^PSGOE2 $$GTNEDFD^PSGOE7 ENDRG^PSGOEF1 (OC55,SPEED)^PSGOER DATE^PSGOER0 ENWO^PSGON $$ENRNAT^PSGOU ENPOS^PSGVDS INIT^PSJLMHED ($$DRUGNAME,$$HIDDEN)^PSJLMUTL
IHS Changes To Pharmacy	1	($$OI,OI)^APSPMULT
IHS Omnicell Pyxis Interface	1	RENEW^BOPCAP
Kernel	1	$$PATCH^XPDUTL
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK
Registration	1	FULL^VALM1
VA Fileman	1	NOW^%DTC

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Inpatient Medications	2	PSGOE0 PSGOESF

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
CHKCOM()	; Check if this order is a complex order
CHKDD()	;
HMSG	; hold/'not to be given' message
WO	;
MARK	; only mark order, not actually renew
RENEW	; mark or renew order
DONE	;
CALLBOP	;
GRI	; get renewal info

External References

Name	Field # of Occurrence
NOW^%DTC	RENEW+1
$$OI^APSPMULT	HMSG+9
OI^APSPMULT	HMSG+9
RENEW^BOPCAP	CALLBOP+1
^PSGAL5	MARK+1
$$ENMRN^PSGMI	RENEW+14
$$ENPDN^PSGMI	RENEW+9
$$CHKDD^PSGOE2	CHKDD+1
$$GTNEDFD^PSGOE7	RENEW+10
ENDRG^PSGOEF1	CHKDD+4
OC55^PSGOER	RENEW+5
SPEED^PSGOER	RENEW+21
DATE^PSGOER0	EN+10
ENWO^PSGON	EN+6
$$ENRNAT^PSGOU	RENEW+16
ENPOS^PSGVDS	MARK+2
INIT^PSJLMHED	DONE+1
$$DRUGNAME^PSJLMUTL	RENEW+6, EN+22
$$HIDDEN^PSJLMUTL	EN+1
$$LS^PSSLOCK	EN+22
UNL^PSSLOCK	EN+25, EN+26
FULL^VALM1	EN+2
$$PATCH^XPDUTL	CALLBOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"...marking ",PSGPDRGN," ",PSGDO,"..." Line Location: MARK+1
Function Call: WRITE	Prompt: "." Line Location: MARK+1
Function Call: WRITE	Prompt: !!," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P(^PS(55,PSGP,5,+PSGORD,.2),"^",2),!,"...No action taken on this order...",! Line Location: RENEW+6
Function Call: WRITE	Prompt: "." Line Location: RENEW+11
Function Call: WRITE	Prompt: !!,"...",PSGPDRGN," ",PSGDO," order NOT renewed..." Line Location: RENEW+12
Function Call: WRITE	Prompt: !!,"...renewing ",PSGOERS2,". ",PSGPDRGN," ",PSGDO,"..." Line Location: RENEW+13
Function Call: WRITE	Prompt: !!,"This order's dispense drug is invalid, a pharmacist must renew this order." Line Location: CHKDD+2
Function Call: WRITE	Prompt: !!,"THE DISPENSE DRUG IS MISSING FROM THIS ORDER." Line Location: CHKDD+3
Function Call: WRITE	Prompt: !,"ORDER NOT RENEW." Line Location: CHKDD+5
Function Call: WRITE	Prompt: ! Line Location: EN+10
Function Call: WRITE	Prompt: $C(7),!,"...order",$E("s",$L(PSGODDD(1),",")>2)," NOT renewed..." Line Location: EN+11
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),"^",1),!,"NO ACTION WAS TAKEN",!,$C(7) Line Location: EN+22
Function Call: WRITE	Prompt: $C(7)," ??",! Line Location: WO+1
Function Call: WRITE	Prompt: !,X Condition for execution: X]"" Line Location: WO+1
Function Call: WRITE	Prompt: ! Line Location: WO+1
Function Call: WRITE	Prompt: ! Condition for execution: $L(H3)+$X>78 Line Location: WO+1
Function Call: WRITE	Prompt: H3," " Line Location: WO+1
Function Call: WRITE	Prompt: !," Order ",PSGOERS2," is part of a complex order series, and cannot be renewed.",! Line Location: CHKCOM+2
Function Call: WRITE	Prompt: !," Order ",PSGOERS2," is part of a complex order series, and cannot be renewed.",! Line Location: CHKCOM+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	HMSG+1, HMSG+5
^PS(53.1 - [#53.1]	CHKCOM+3
^PS(53.45 - [#53.45]	RENEW+11!, RENEW+18, RENEW+19, RENEW+20
^PS(55 - [#55]	MARK+1, RENEW+6, RENEW+9, RENEW+10, RENEW+18, RENEW+20, CHKDD+4, EN+7, EN+10, EN+12 , HMSG+10, CHKCOM+3
^PSDRUG - [#50]	HMSG+7
^PSDRUG("ASP"	HMSG+7
^TMP("PSJ"	EN+3, EN+4, EN+5
^TMP("PSJON"	EN+7, EN+10, EN+20

Name	Line Occurrences
$$CHKCOM	EN+21
$$CHKDD	RENEW+12
CALLBOP	RENEW+28
DONE	EN+6, EN+8
EN	EN+7
HMSG	EN+7
MARK	RENEW+9
RENEW	EN+23
WO	HMSG+2, HMSG+3, HMSG+4, HMSG+5, HMSG+8, HMSG+9

Name	Field # of Occurrence
^(	RENEW+18, RENEW+20, EN+7
^("I"	HMSG+7
^(0	RENEW+18, HMSG+5
^(2	RENEW+10, RENEW+11!
^(4	RENEW+10
^(6	RENEW+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RENEW+1
CODE	EN+2~, EN+3*, EN+4, EN+5
>> D	EN+7*, HMSG+1, HMSG+5, HMSG+7, HMSG+9
DA	RENEW+1!, EN+10, DONE+2!
DA(1	RENEW+1, EN+10
>> DFN	EN+22, EN+25, EN+26
DIE	DONE+2!
DR	DONE+2!
DRG	CHKDD+6, EN+2~, EN+5, HMSG+6~, HMSG+7
DRGPT	HMSG+6~
DT	RENEW+20, HMSG+5, HMSG+7
>> DUOUT	CHKDD+5, CHKDD+6
DUZ	MARK+1
>> EXITLOOP	EN+15, EN+17, EN+19
>> F	EN+7, HMSG+2, HMSG+3, HMSG+4, HMSG+10, WO+2*
FDSD	DONE+2!
H	HMSG+2, HMSG+3, HMSG+4, HMSG+5, HMSG+8, HMSG+9, WO+1, WO+2!
H1	WO+1*, WO+2!
H2	WO+1*, WO+2!
H3	WO+1*, WO+2!
>> ND	RENEW+20*
ON	EN+2~, EN+5*
PSGAL	DONE+2!
PSGAL("C"	MARK+1*
PSGALR	DONE+2!
PSGDFLG	HMSG+6~, HMSG+7*, HMSG+8
>> PSGDO	MARK+1, RENEW+9, RENEW+12, RENEW+13, RENEW+14
PSGDRG	RENEW+3~
>> PSGDT	MARK+1, MARK+2, RENEW+1*, EN+10
PSGFD	RENEW+15, EN+12, DONE+2!
PSGFOK	EN+8, EN+11!, DONE+2!
PSGFOK(106	EN+11
>> PSGHSM	RENEW+14*
PSGLMT	EN+6*, DONE+2!
>> PSGMR	RENEW+14*
>> PSGMRN	RENEW+14*
PSGND4	RENEW+10*, DONE+2!
>> PSGNEDFD	RENEW+10*, EN+12
>> PSGNEFD	RENEW+15*
>> PSGNESD	RENEW+15*
PSGODDD	EN+7, EN+16, DONE+2!
PSGODDD(	EN+7, EN+18
PSGODDD(1	EN+10, EN+11
PSGOEAV	RENEW+11~*
>> PSGOEE	EN+10*
>> PSGOEORF	EN+2*
>> PSGOER0	RENEW+10*, RENEW+14
>> PSGOER1	RENEW+9*, RENEW+14
>> PSGOER2	RENEW+10*, RENEW+15, RENEW+16
PSGOERS	EN+7, EN+16, EN+18, DONE+2!
PSGOERS1	EN+7, EN+17, EN+18, DONE+2!
PSGOERS2	RENEW+6, RENEW+13, EN+7, EN+18, EN+19, EN+20, DONE+2!, WO+1, CHKCOM+2, CHKCOM+4
>> PSGOFD	RENEW+10*
PSGONR	EN+2~, EN+3, EN+5, EN+6
PSGONW	EN+6*, DONE+2!
>> PSGOORD	RENEW+11*, EN+26
PSGOPR	DONE+2!
PSGORD	MARK+1, MARK+2, RENEW+1, RENEW+6, RENEW+9, RENEW+10, RENEW+11, RENEW+18, RENEW+20, CHKDD+1 , CHKDD+4, EN+10, EN+20*, EN+22, EN+25, DONE+2!, CHKCOM+2, CHKCOM+3
>> PSGORQF	RENEW+6
PSGOSD	RENEW+10, EN+7, DONE+2!, HMSG+10*
>> PSGP	MARK+1, RENEW+1, RENEW+6, RENEW+9, RENEW+10, RENEW+18, RENEW+20, CHKDD+1, CHKDD+4, EN+7 , EN+10, EN+12, HMSG+10, CHKCOM+3
>> PSGPDRG	RENEW+9, RENEW+10, RENEW+14
>> PSGPDRGN	MARK+1, RENEW+9*, RENEW+12, RENEW+13
PSGPOSA	MARK+2*, DONE+2!
PSGPOSD	MARK+2*, DONE+2!
PSGPR	DONE+2!
PSGPX	DONE+2!
PSGRENEW	EN+9~*
>> PSGS0XT	RENEW+15*
>> PSGS0Y	RENEW+15, RENEW+16
>> PSGSCH	RENEW+15*, RENEW+16
PSGSD	RENEW+15, DONE+2!
>> PSGSI	RENEW+10*
>> PSGSM	RENEW+14*
PSGST	RENEW+10*, RENEW+15, DONE+2!
PSGTOL	DONE+2!
PSGTOO	DONE+2!
PSGUOW	DONE+2!
PSGWLL	EN+10*, EN+12, DONE+2!
PSJABT	RENEW+3~
>> PSJCOM	CHKCOM+1, CHKCOM+2, CHKCOM+3*, CHKCOM+4, CHKCOM+5
>> PSJPWD	RENEW+16
PSJSPEED	EN+1*, DONE+2!
>> PSJSYSO	MARK+2
>> PSJSYSP	RENEW+11, RENEW+18, RENEW+19, RENEW+20
>> PSJSYSP0	RENEW+9, CHKDD+2, EN+8
>> PSJSYSU	CHKDD+2
>> PSJSYSW0	EN+10, EN+12
>> Q	RENEW+18, RENEW+20
>> Q1	RENEW+20*
ST	EN+2~, EN+4*, EN+5
U	RENEW+10, RENEW+16, CHKDD+2, HMSG+7, CHKCOM+3
X	RENEW+20, EN+6!, EN+8, EN+27, HMSG+1, HMSG+10*, WO+1
>> Y	EN+7*, HMSG+10

Customize PDF page

Package: Inpatient Medications

Routine: PSGOERS

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items