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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGOEC

Package: Inpatient Medications

Routine: PSGOEC


Information

PSGOEC ;BIR/CML3-CANCEL ORDERS ;02 Mar 99 / 9:29 AM

Source Information

Source file <PSGOEC.m>

Call Graph

Call Graph

Call Graph Total: 30

Package Total Call Graph
Inpatient Medications 20 ^PSGAL5  $$ENPDN^PSGMI  (AC,ASET)^PSGOEC  DCOR^PSGOECS  ABORT^PSGOEE  (ENCAM,ENCOM,ENDC,ENUMK)^PSGOEM  ENCTM^PSGOEM1  ENCV^PSGSETU  
(ENL,ENPOS)^PSGVDS  ENLBL^PSIVOPT  D1^PSIVOPT2  HL^PSIVORA  LOG^PSIVORAL  ORPARM^PSIVOREN  ENHE^PSJADT0  $$ISCLOZ^PSJCLOZ  
CMPLX^PSJCOM1  KILL531^PSJIMO1  $$LOCK^PSJOEA  $$ENNOO^PSJUTL5  
VA FileMan 7 NOW^%DTC  ^DIC  YN^DICN  ^DIE  ^DIK  EN^DIQ1  ^DIR  
Kernel 1 $$FMTE^XLFDT  
List Manager 1 PAUSE^VALM1  
Pharmacy Data Management 1 $$LS^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: 9

Package Total Caller Graph
Inpatient Medications 9 PSGOE1  PSGOEC  PSGOECA  PSGOECS  PSIVOPT2  PSIVORC  PSIVSPDC  PSJOCDC  
PSJOE  

Entry Points

Name Comments DBIA/ICR reference
ENA ; all orders
ENCA ;
ENO(PSGP,PSGORD) ; single order
SOC ;
D1
OUT ;
DONE ;
ASET ;
NSET ;
AC ;
NC ;
T ;
RS ;
; naked ref below is from variable ND1, ^PS(53.1,PSGDA,4)
REQPROV()
PNDRNA(ORDER) ; Ask Discontinue Pending Renewal only, or both Pending Renew and Renewed Order
; Perform this action only for pending renewals
PNDRN(PSJDCTYP,ORDER) ; Perform Discontinue action for Pending order only or both Pending and Renewed
; Perform this action only for pending renewals
PNDRNOK(ORDER) ; Execute DC Pending Renew enhancement only if
; 1) Renewal order is pending/non-verified, and
; 2) Original order is not DC'd or Expired
TST4DC ; Test for DC at prompt

External References

Name Field # of Occurrence
NOW^%DTC ENCA+1, SOC+5, D1+1
^DIC REQPROV+14
YN^DICN ENA+2, ENO+10, ENO+11, ENO+13, T+1
^DIE D1+2, AC+3, NC+5
^DIK NC+6
EN^DIQ1 REQPROV+6, REQPROV+9
^DIR PNDRNA+16
^PSGAL5 ENA+8, ENO+15, AC+1, AC+3
$$ENPDN^PSGMI PNDRNA+7
AC^PSGOEC SOC+17
ASET^PSGOEC SOC+17
DCOR^PSGOECS AC+6, NC+7
ABORT^PSGOEE SOC+2, SOC+4
ENCAM^PSGOEM ENA+2
ENCOM^PSGOEM ENO+10, ENO+11, ENO+13
ENDC^PSGOEM ENO+12
ENUMK^PSGOEM ENA+6, ENO+15
ENCTM^PSGOEM1 T+1
ENCV^PSGSETU ENA+1
ENL^PSGVDS AC+5, NC+5
ENPOS^PSGVDS AC+2, NC+3
ENLBL^PSIVOPT D1+3
D1^PSIVOPT2 SOC+15
HL^PSIVORA SOC+16
LOG^PSIVORAL SOC+16
ORPARM^PSIVOREN D1+4
ENHE^PSJADT0 ENCA+5
$$ISCLOZ^PSJCLOZ SOC+18
CMPLX^PSJCOM1 ENO+9
KILL531^PSJIMO1 NC+1
$$LOCK^PSJOEA SOC+10
$$ENNOO^PSJUTL5 ENCA+3, SOC+2
$$LS^PSSLOCK SOC+13
PAUSE^VALM1 ENCA+4, ENO+1
$$FMTE^XLFDT PNDRNA+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you want to ",$S(CF:"discontinue",1:"mark for discontinuation")," all of this patient's orders"
  • Line Location: ENA+2
Function Call: WRITE
  • Prompt: !!,"...a few moments, please..."
  • Line Location: ENA+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: ENA+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: ENA+9
Function Call: WRITE
  • Prompt: " . . . DONE!"
  • Line Location: ENA+10
Function Call: WRITE
  • Prompt: " . . . DONE!"
  • Line Location: ENCA+8
Function Call: WRITE
  • Prompt: !,"This order has already been DISCONTINUED."
  • Line Location: ENO+1
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order and CANNOT be marked for discontinuation."
  • Line Location: ENO+4
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order. If you discontinue this order the",!,"following orders will be discontinued too (unless the stop date has already",!,"been reached)."
  • Line Location: ENO+6
Function Call: WRITE
  • Prompt: !!,"Do you want to ",$S(PSJCOM:"discontinue this series of complex orders",CF:"discontinue this order",1:"mark this order for discontinuation")
  • Line Location: ENO+7
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order. If you discontinue this order the",!,"following orders will be discontinued too (unless the stop date has already",!,"been reached)."
  • Line Location: ENO+9
Function Call: WRITE
  • Prompt: !!,"Do you want to discontinue this series of complex orders"
  • Line Location: ENO+10
Function Call: WRITE
  • Prompt: !!,"Do you want to discontinue this order"
  • Line Location: ENO+11
Function Call: WRITE
  • Prompt: !!,"Enter DC to discontinue the above order or press <RETURN> to continue:"
  • Line Location: ENO+12
Function Call: WRITE
  • Prompt: !,"No action taken!"
  • Condition for execution: %=2
  • Line Location: ENO+12
Function Call: WRITE
  • Prompt: !!,"Do you want mark this order for discontinuation"
  • Line Location: ENO+13
Function Call: WRITE
  • Prompt: !!,"THIS ORDER HAS"
  • Line Location: ENO+14
Function Call: WRITE
  • Prompt: "..."
  • Line Location: ENO+15
Function Call: WRITE
  • Prompt: " . . . DONE!"
  • Line Location: ENO+15
Function Call: WRITE
  • Prompt: !!,"...one moment, please..."
  • Line Location: SOC+1
Function Call: WRITE
  • Prompt: $S(PSJCOM:"...ORDER ",1:"...ORDERS "),$S(CF:"DISCONTINUED!",1:"MARKED!")
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !!,"Is this due to the patient being transferred"
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !!?5,DRG_" "_DO
  • Line Location: PNDRNA+9
Function Call: WRITE
  • Prompt: !?5,"This order has a pending status. If this pending order"
  • Line Location: PNDRNA+10
Function Call: WRITE
  • Prompt: !?5,"is discontinued, the original order may still be active."
  • Line Location: PNDRNA+11
Function Call: READ
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: TST4DC+1
Routine Call
  • DIC
  • Line Location:
    • REQPROV+14
Routine Call
  • DIE
  • Line Location:
    • D1+2
    • AC+3
    • NC+5
Routine Call
  • DIR
  • Line Location:
    • PNDRNA+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.1 - [#53.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] ENA+4, ENA+9, ENCA+2, ENCA+7, ENO+2, ENO+3, ENO+14, SOC+1, SOC+11, NSET+1
, NC+2*, NC+4, NC+5*, PNDRNA+4, PNDRNA+7, PNDRNA+8, PNDRN+7, PNDRNOK+4, PNDRNOK+6
^PS(55 - [#55] ENA+3, ENA+8, ENCA+1, ENCA+6, ENO+3, ENO+14, SOC+1, SOC+12, SOC+14, SOC+15
, SOC+16, D1+1, D1+2, ASET+1, AC+1*, AC+3*, AC+5*, AC+6, REQPROV+4, PNDRNA+5
, PNDRNOK+5
^XTMP("PSJ4D-" SOC+18!

Label References

Name Line Occurrences
$$PNDRNA ENO+5
$$PNDRNOK ENO+5
$$REQPROV ENCA+3, SOC+4
AC ENCA+6, SOC+7
ASET ENCA+5, SOC+7
DONE ENA+5, ENA+10, ENCA+3, ENCA+8, ENO+5, ENO+16, SOC+2, SOC+4
ENCA ENA+3
NC ENCA+7, SOC+8, SOC+11
NSET ENCA+7, SOC+8, SOC+11
PNDRN ENO+5
RS ENA+8, ENA+9, ENO+15
SOC ENO+14, PNDRN+4, PNDRN+5, PNDRN+8
TST4DC ENO+12

Naked Globals

Name Field # of Occurrence
^(0 NC+4
^(2 AC+3*
^(4 ENO+2, ENO+14, RS+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENA+2*, ENA+3, ENA+6, ENCA+1, ENO+10*, ENO+11*, ENO+12*, ENO+13*, ENO+14, ENO+15
, SOC+5, D1~, D1+1, T+1*, T+2, TST4DC+1*, TST4DC+2*
CF ENA+1*, ENA+2, ENCA+7*, ENO+2*, ENO+4, ENO+11, ENO+12, ENO+13, SOC+1, SOC+2
, SOC+4, SOC+7, SOC+8, OUT+1, DONE+1!, AC+1, AC+2, AC+3, NC+2, NC+3
, NC+4
COMFLG SOC+9~*, SOC+12, SOC+13*, SOC+14
DA ENO+15!*, SOC+5!*, D1~, D1+2*, DONE+1!, AC+1!*, AC+3!*, AC+5!*, NC+5!*, NC+6!*
, REQPROV+6*, REQPROV+7!, REQPROV+9*, REQPROV+10!
DA(1 ENO+15*, SOC+5*, D1+2*, AC+1*, AC+3*, AC+5*
>> DFN SOC+13, SOC+15, SOC+16, SOC+18, D1+1, D1+2, D1+3, REQPROV+4
DIC REQPROV+2!, REQPROV+6*, REQPROV+7!, REQPROV+9*, REQPROV+11!*, REQPROV+14!
DIC("A" REQPROV+13*
DIC("B" REQPROV+12*
DIC("S" REQPROV+14*
DIC(0 REQPROV+11*
DIE D1~, D1+2*, DONE+1!, ASET+1*, NSET+1*
>> DIK NC+6*
DIQ REQPROV+6*, REQPROV+7!, REQPROV+9*, REQPROV+10!
DIQ(0 REQPROV+6*, REQPROV+9*
>> DIR("A" PNDRNA+12*
>> DIR("L" PNDRNA+14*, PNDRNA+15*, PNDRNA+16*
>> DIR(0 PNDRNA+13*
DIU D1~
>> DO PNDRNA+7*, PNDRNA+9
DP DONE+1!
DR D1+2*, DONE+1!, ASET+1*, NSET+1*, REQPROV+6*, REQPROV+7!, REQPROV+9*, REQPROV+10!
>> DRG PNDRNA+7*, PNDRNA+9
DT REQPROV+8
DTIME TST4DC+1
DTOUT REQPROV+2!, REQPROV+15
DUOUT REQPROV+2!, REQPROV+15
DUZ ENO+2, D1+3, AC+1, AC+5, NC+2, NC+5
ND ENA+1~*, ENA+3, ENA+8
ND1 ENA+1~*, ENA+4, ENA+9
>> ND2 PNDRNA+8*
ND5310 PNDRN+7~*, PNDRN+8
NDP2 PNDRNA+6~, PNDRNA+7*
NSTOP D1~, D1+1*, D1+2
O SOC+11~*, SOC+12~*, SOC+14~*
>> ON SOC+15*
>> ON55 SOC+15*, SOC+16, D1+1, D1+2, D1+3
OO SOC+12~*, SOC+13, SOC+14~*, SOC+15, SOC+17
ORDER PNDRNA~, PNDRNA+2, PNDRNA+4, PNDRNA+7, PNDRNA+8, PNDRN~, PNDRN+2, PNDRNOK~, PNDRNOK+4
ORETURN DONE+1!
ORIFN DONE+1!, AC+3!, AC+6*, NC+5!, NC+7*
ORIGORD PNDRNA+4~*, PNDRNA+5, PNDRNOK+4~*, PNDRNOK+5
ORIGSTOP PNDRNA+4~, PNDRNA+5*, PNDRNOK+4~, PNDRNOK+5*
>> P("NAT" SOC+16*
>> P(17 D1+1*
>> P(3 SOC+15*, SOC+16*
PROVIDER REQPROV+3~, REQPROV+4*, REQPROV+5, REQPROV+6, REQPROV+8, REQPROV+9, REQPROV+10
PROVNAME REQPROV+3~, REQPROV+4*, REQPROV+10*, REQPROV+12
PSGAL DONE+1!
PSGAL("C" ENA+7*, ENO+15*, AC+1*, AC+3*
>> PSGALO ENCA+5, D1+3
PSGALR ENCA+5*, SOC+5*, DONE+1!
>> PSGCANFL OUT+1*
>> PSGCF ENA+3*
PSGDA ENA+3*, ENA+4*, ENA+8*, ENA+9*, DONE+1!
>> PSGDN SOC+18
>> PSGDT ENA+8, ENCA+1*, ENCA+6, SOC+5*, ASET+1, NSET+1, AC+1, AC+2, AC+5, NC+2
, NC+3, NC+5, PNDRNA+4, PNDRNOK+4
>> PSGEDIT ASET+1, NSET+1, AC+5, NC+5
>> PSGOP ENCA+5*
PSGORD ENCA+6*, ENCA+7*, ENCA+8!, ENO~, ENO+2, ENO+3, ENO+5, ENO+9, ENO+14, ENO+15
, SOC+1, SOC+5, SOC+7, SOC+8, SOC+10, SOC+11*, SOC+12, SOC+13, SOC+17~*, AC+1
, AC+2*, AC+3, AC+5, AC+6, NC+1, NC+2, NC+3*, NC+4, NC+5, NC+6
, PNDRN+2~*, PNDRN+3, PNDRN+7, PNDRN+8~*, PNDRNOK+3, PNDRNOK+6
>> PSGORIFN NC+4*, NC+7
PSGP ENA+3, ENA+4, ENA+8, ENA+9, ENCA+1, ENCA+2, ENCA+5, ENCA+6, ENCA+7, ENO~
, ENO+3, ENO+9, ENO+14, ENO+15, SOC+1, SOC+5, SOC+10, ASET+1, AC+1, AC+3
, AC+5, AC+6, NC+1, PNDRNA+5, PNDRNOK+5
>> PSGPOSA AC+2*, NC+3*
>> PSGPOSD AC+2*, NC+3*
>> PSGSTAT ENO+1, NC+4*, NC+5, NC+6
>> PSGTOL AC+5*, NC+5*
>> PSGTOO AC+5*, NC+5*
>> PSGUOW D1+3, AC+5*, NC+5*
>> PSIVAC D1+3
>> PSIVACT D1+2*
>> PSIVALCK SOC+15*
>> PSIVALT SOC+15*
>> PSIVREA SOC+15*
>> PSJCOM ENO+3*, ENO+4, ENO+9, ENO+10, ENO+11, ENO+12, ENO+13, SOC+6, SOC+9, SOC+10
, SOC+11, SOC+12, SOC+14, OUT+1
>> PSJDCDTF ENO+11, ENO+12, ENO+13
PSJDCPRV REQPROV+2!, REQPROV+15*
PSJDCTYP ENO+5~*, SOC+2, SOC+4, DONE+1!, REQPROV+1, PNDRN~, PNDRN+4, PNDRN+5*, PNDRN+8*!
>> PSJIVORF D1+4
>> PSJNOO ENCA+3*, SOC+2*, SOC+16, PNDRN+6
>> PSJOCFLG ENO+10, ENO+11, ENO+12, ENO+13
PSJORD SOC+11*, SOC+16~*, SOC+17~*, ASET+1, NSET+1
>> PSJSYSL AC+4*, AC+5, NC+5
>> PSJSYSO AC+2, NC+3
>> PSJSYSP0 ENA+1, ENCA+5, ENCA+7, ENO+2
>> PSJSYSU ENA+3, ENA+7, ENO+15, SOC+5, AC+3
>> PSJSYSW0 D1+3
>> Q1 ENCA+1*
>> Q2 ENCA+1*, ENCA+2*
RESULT REQPROV+3~*, REQPROV+15*, REQPROV+16
RSB REQPROV+3~
RSB(200 REQPROV+8, REQPROV+10
>> SCH PNDRNA+8*
SD ENCA+6*, DONE+1!
ST DONE+1!
>> START PNDRNA+8*
STP D1~, D1+1*, D1+2
T ENA+3*, ENA+8*, SOC+5*, DONE+1!, ASET+1, NSET+1, T+2*
U ENA+1, ENCA+2, ENCA+5, ENCA+7, ENO+2, ENO+14, SOC+1, SOC+15, SOC+16, D1+1
, D1+2, D1+3, ASET+1, NSET+1, AC+1, AC+3, AC+5, AC+6, NC+2, NC+4
, NC+5, RS+2, PNDRNOK+6
UCF DONE+1!
>> VALMBCK ENO+11*, ENO+12*, ENO+13*
>> X D1+3*, TST4DC+1*, TST4DC+2
>> XQUIT ENA+1
Y DONE+1!, REQPROV+2!, REQPROV+15, PNDRNA+18*, PNDRNA+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All