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  | All
Print Page as PDF
Routine: PSGOERS

Package: Inpatient Medications

Routine: PSGOERS


Information

PSGOERS ;BIR/CML3 - RENEW SELECTED ORDERS ; 10/23/14 9:30pm

Source Information

Source file <PSGOERS.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 13 ^PSGAL5  ($$ENMRN,$$ENPDN)^PSGMI  $$CHKDD^PSGOE2  $$GTNEDFD^PSGOE7  ENDRG^PSGOEF1  (NEWOC55,SPEED)^PSGOER  DATE^PSGOER0  ENWO^PSGON  
$$ENRNAT^PSGOU  ENPOS^PSGVDS  $$ISCLOZ^PSJCLOZ  INIT^PSJLMHED  ($$DRUGNAME,$$HIDDEN)^PSJLMUTL  
VA FileMan 2 ^%DT  NOW^%DTC  
List Manager 1 FULL^VALM1  
Pharmacy Data Management 1 ($$LS,UNL)^PSSLOCK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGOE0  PSGOESF  PSJU LM SPEED RENEW  

Entry Points

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

External References

Name Field # of Occurrence
^%DT RENEW+2
NOW^%DTC RENEW+1
^PSGAL5 MARK+1
$$ENMRN^PSGMI RENEW+20
$$ENPDN^PSGMI RENEW+11
$$CHKDD^PSGOE2 CHKDD+1
$$GTNEDFD^PSGOE7 RENEW+12
ENDRG^PSGOEF1 CHKDD+4
NEWOC55^PSGOER RENEW+27
SPEED^PSGOER RENEW+29
DATE^PSGOER0 EN+11
ENWO^PSGON EN+7
$$ENRNAT^PSGOU RENEW+22
ENPOS^PSGVDS MARK+2
$$ISCLOZ^PSJCLOZ RENEW+16
INIT^PSJLMHED DONE+1
$$DRUGNAME^PSJLMUTL EN+23
$$HIDDEN^PSJLMUTL EN+2
$$LS^PSSLOCK EN+23
UNL^PSSLOCK EN+26, EN+27
FULL^VALM1 EN+3

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+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: RENEW+13
Function Call: WRITE
  • Prompt: !!,"...",PSGPDRGN," ",PSGDO," order NOT renewed..."
  • Line Location: RENEW+14
Function Call: WRITE
  • Prompt: !!,"...order NOT renewed..."
  • Line Location: RENEW+27
Function Call: WRITE
  • Prompt: !!,"...renewing ",PSGOERS2,". ",PSGPDRGN," ",PSGDO,"..."
  • Line Location: RENEW+28
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+11
Function Call: WRITE
  • Prompt: $C(7),!,"...order",$E("s",$L(PSGODDD(1),",")>2)," NOT renewed..."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,$P($$DRUGNAME^PSJLMUTL(DFN,PSGORD),"^",1),!,"NO ACTION WAS TAKEN",!,$C(7)
  • Line Location: EN+23
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+13!, RENEW+24*, RENEW+25, RENEW+26*
^PS(55 - [#55] MARK+1*, RENEW+11, RENEW+12, RENEW+24, RENEW+26, CHKDD+4, EN+8, EN+11, EN+13*, HMSG+9
, CHKCOM+3
^PSDRUG - [#50] HMSG+7
^PSDRUG("ASP" HMSG+7
^TMP("PSJ" EN+4, EN+5, EN+6
^TMP("PSJON" EN+8, EN+11, EN+21

Label References

Name Line Occurrences
$$CHKCOM EN+22
$$CHKDD RENEW+14
DONE EN+7, EN+9
EN EN+8
HMSG EN+8
MARK RENEW+11
RENEW EN+24
WO HMSG+2, HMSG+3, HMSG+4, HMSG+5, HMSG+8

Naked Globals

Name Field # of Occurrence
^( RENEW+24, RENEW+26, EN+8
^("I" HMSG+7
^(0 RENEW+24, HMSG+5
^(2 RENEW+12, RENEW+13!
^(4 RENEW+12
^(6 RENEW+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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