Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSGOERS

Package: Inpatient Medications

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

Label References

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

Naked Globals

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

Marked Items

Name Field # of Occurrence
$T(OI^APSPMULT HMSG+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All