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: PSJOE

Package: Inpatient Medications

Routine: PSJOE


Information

PSJOE ;BIR/MLM - INPATIENT ORDER ENTRY ; 3/5/18 1:49pm

Source Information

Source file <PSJOE.m>

Call Graph

Call Graph Total: 41

Package Total Call Graph
Inpatient Medications 32 ENQL^PSGLW  ^PSGOD  ($$ENACTION,H)^PSGOE1  ENO^PSGOEC  (ABORT,ACT,ENF)^PSGOEE  ENSFE^PSGOEE0  (FINISH,START)^PSGOEF  ENLM^PSGOEL  
^PSGOER  ^PSGOERI  ORSET^PSGOETO1  (ENASR,ENCHK)^PSGON  ^PSGPER  ^PSGPER1  (ENCV,ENIVKV)^PSGSETU  COPY^PSIVOD  
H^PSIVOPT  VF^PSIVORC2  ^PSIVXU  (,ENIV,WP)^PSJAC  (,RESTORE)^PSJHVARS  EN^PSJLIFN  EN^PSJLIORD  REQDT^PSJLIVMD  
GETUD^PSJLMGUD  INIT^PSJLMUDE  ($$HIDDEN,$$OINAME)^PSJLMUTL  SETOC^PSJNEWOC  (DONE,LOCKERR)^PSJOE  OLDCOM^PSJOE0  SELECT^PSJOEA  ^PSJP  
Kernel 2 HOME^%ZIS  $$PATCH^XPDUTL  
List Manager 2 EN^VALM  (FULL,PAUSE)^VALM1  
Order Entry Results Reporting 1 EN1^ORCFLAG  
Pharmacy Data Management 1 ($$L,$$LS,UL,UNL)^PSSLOCK  
Registration 1 INP^VADPT  
Scheduling 1 $$SDIMO^SDAMA203  
VA FileMan 1 ^DIR  

Caller Graph

Caller Graph Total: 35

Package Total Caller Graph
Inpatient Medications 34 PSGOE  PSGOE1  PSGOE9  PSGOE91  PSGOE92  PSGOEF1  PSGOETO  PSGVBW  
PSGVBW0  PSIVEDRG  PSIVEDT  PSIVEDT1  PSIVORE  PSIVVW1  PSJ LM DC  PSJ LM EDIT NEW  
PSJ LM FLAG  PSJ LM HOLD  PSJ LM NEW ORDER  PSJ LM NEW SELECT ORDER  PSJ LM SELECT ORDER  PSJ OE  PSJCLOR  PSJCLOR4  
PSJLIACT  PSJLIFN  PSJLIFNI  PSJOCDC  PSJOE  PSJOE0  PSJU LM ACTIVITY LOG  PSJU LM COPY  
PSJU LM EDIT  PSJU LM RENEW  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
FLAG(DFN,PSJORD) ;Flag order through CPRS entry point.
EN ; Start Inpatient LM OE
HOLDHDR ; Freeze header text while processing order actions
FINISH ;
RENEW(PSGP,PSGORD) ;
LOCKERR ;
COPY(PSGP,PSGORD)
SETOC ;
UPDATE ; Refresh array, actions, & display.
DC(DFN,PSJORD) ; DC IV, UD, or pending orders.
LOG(DFN,PSGORD)
HK ; Housekeeping (a nice COBOL term)
EDIT(PSGP,PSGORD,PROMPT) ;
GTSTATUS(DFN,ON)
DONE ;
; -- RTC 198753 - correct typo - r PSJALGSV w PSJAGYSV
DISACTIO(DFN,PSJORD,PSJPNV)
HOLD(DFN,PSJORD) ; Change order's status from ACTIVE<->HOLD
COMPLEX(DFN,ON) ;
NEWSEL ;
SELECT ; Select order from list

External References

Name Field # of Occurrence
HOME^%ZIS EN+24
^DIR DISACTIO+18, LOCKERR+1
EN1^ORCFLAG FLAG+4
ENQL^PSGLW HK+3
^PSGOD COPY+14
$$ENACTION^PSGOE1 DISACTIO+19, DISACTIO+37, HOLD+4, COPY+17
H^PSGOE1 HOLD+3
ENO^PSGOEC DC+3
ABORT^PSGOEE EDIT+5
ACT^PSGOEE EDIT+7
ENF^PSGOEE EDIT+6
ENSFE^PSGOEE0 DISACTIO+34, DISACTIO+37
FINISH^PSGOEF FINISH+1
START^PSGOEF DISACTIO+34
ENLM^PSGOEL LOG+1
^PSGOER RENEW+6
^PSGOERI RENEW+7
ORSET^PSGOETO1 DISACTIO+42
ENASR^PSGON SELECT+4
ENCHK^PSGON NEWSEL+5
^PSGPER EN+25
^PSGPER1 DONE+8
ENCV^PSGSETU EN+1, EN+26
ENIVKV^PSGSETU DONE+8
COPY^PSIVOD COPY+7
H^PSIVOPT HOLD+2
VF^PSIVORC2 DISACTIO+25
^PSIVXU EN+1, EN+26
^PSJAC EN+4
ENIV^PSJAC DISACTIO+11
WP^PSJAC HK+3
^PSJHVARS COPY+9
RESTORE^PSJHVARS COPY+19
EN^PSJLIFN DISACTIO+35
EN^PSJLIORD DISACTIO+11
REQDT^PSJLIVMD DISACTIO+32
GETUD^PSJLMGUD DISACTIO+12, DISACTIO+37, HOLD+4, UPDATE+1
INIT^PSJLMUDE HOLD+4, UPDATE+1
$$HIDDEN^PSJLMUTL COPY+8
$$OINAME^PSJLMUTL DISACTIO+14
SETOC^PSJNEWOC SETOC+3, NEWSEL+20
DONE^PSJOE EN+3
LOCKERR^PSJOE EN+3
OLDCOM^PSJOE0 DISACTIO+10
SELECT^PSJOEA SELECT+8, NEWSEL+8
^PSJP EN+4
$$L^PSSLOCK EN+6
$$LS^PSSLOCK SELECT+9, NEWSEL+10
UL^PSSLOCK EN+4
UNL^PSSLOCK SELECT+13, DISACTIO+47, NEWSEL+14, NEWSEL+15
$$SDIMO^SDAMA203 DISACTIO+29
INP^VADPT HK+3
EN^VALM EN+7, EN+12, EN+15, DISACTIO+37
FULL^VALM1 COPY+14, LOG+1
PAUSE^VALM1 DISACTIO+30, DISACTIO+33, EDIT+1, EDIT+2, RENEW+5, DC+2, COPY+2, COPY+3, COPY+5, COPY+10
, FINISH+1, LOG+1, FLAG+5
$$PATCH^XPDUTL DISACTIO+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(PSJLK,U,2)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"This order is being edited by another terminal.",!
  • Line Location: DISACTIO+18
Function Call: WRITE
  • Prompt: !!,"Cannot process an Out-patient Unit Dose order for ",$P($G(^DPT(+PSGP,0)),U)
  • Line Location: DISACTIO+30
Function Call: WRITE
  • Prompt: !!,"Invalid schedule, can't finish this order"
  • Line Location: DISACTIO+33
Function Call: WRITE
  • Prompt: !,"This order may not be edited."
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"This order may not be edited."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!,"This order is already marked for renewal!"
  • Line Location: RENEW+5
Function Call: WRITE
  • Prompt: !,$S(X="R":"This order has a pending renewal and cannot be DISCONTINUED.",1:"This order has already been DISCONTINUED.")
  • Line Location: DC+2
Function Call: WRITE
  • Prompt: !!,"You cannot copy the order at this time"
  • Line Location: COPY+2
Function Call: WRITE
  • Prompt: !!,"You cannot copy this "_$S($G(PSGSTAT)]"":PSGSTAT,1:"PENDING IV")_" order."
  • Line Location: COPY+3
Function Call: WRITE
  • Prompt: !!,"You cannot copy the order at this time"
  • Line Location: COPY+5
Function Call: WRITE
  • Prompt: !!,"Nurse verified orders with a priority of DONE may not be Copied."
  • Line Location: COPY+10
Function Call: WRITE
  • Prompt: IOSC
  • Line Location: HOLDHDR+1
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: HOLDHDR+1
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: HOLDHDR+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You are entering or editing an Inpatient Medication order in another session.",!,"Only one order entry/edit session is allowed for a user at a time.",!!
  • Line Location: LOCKERR+1
Routine Call
  • VALM
  • Line Location:
    • EN+7
    • EN+12
    • EN+15
    • DISACTIO+37
Routine Call
  • %ZIS
  • Line Location:
    • EN+24
Routine Call
  • DIR
  • Line Location:
    • DISACTIO+18
    • LOCKERR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DISACTIO+30
^PS(53.1 - [#53.1] DISACTIO+17, DISACTIO+20, DISACTIO+21, DISACTIO+29, DISACTIO+38, DISACTIO+42, GTSTATUS+1, FLAG+2, COMPLEX+2
^PS(53.45 - [#53.45] EN+3, DONE+3
^PS(55 - [#55] DISACTIO+16, DISACTIO+39, RENEW+5, GTSTATUS+2, GTSTATUS+3, COPY+10, FLAG+2, COMPLEX+2
^TMP("PSJ" EN+5!, EN+14, EN+27!
^TMP("PSJCOM" SELECT+2!, NEWSEL+1!
^TMP("PSJCOM2" SELECT+2!, NEWSEL+1!
^TMP("PSJDAOC" DONE+2!, SELECT+2!, SETOC+4!, NEWSEL+1!, NEWSEL+21!
^TMP("PSJON" EN+27!, SELECT+8, NEWSEL+8
^TMP("PSJPRO" EN+27!, SELECT+4, NEWSEL+4
^TMP("PSODAOC" DONE+2!, SELECT+2!, DISACTIO+46!, SETOC+2*, SETOC+4!, NEWSEL+1!, NEWSEL+19*, NEWSEL+21!
^TMP($J DONE+2!

Label References

Name Line Occurrences
$$GTSTATUS EDIT+1, DC+2
@( DISACTIO+34, EDIT+5
DISACTIO SELECT+12, NEWSEL+13
DONE EN+2
HK EN+4
HOLDHDR EDIT+5, RENEW+4, DC+1, HOLD+1
SETOC DISACTIO+43, DISACTIO+44

Naked Globals

Name Field # of Occurrence
^(4 RENEW+5, COPY+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AC DONE+3!
ACTION DONE+3!
>> APPT DISACTIO+29*
>> CLINIC DISACTIO+29*
COM COMPLEX+1~, COMPLEX+3*
D1 DONE+3!
D2 DONE+3!
DA DONE+4!
DFN EN+4*, EN+21~, EN+25*, HK+2~*, HK+5*, DISACTIO~, DISACTIO+10, DISACTIO+11, DISACTIO+12, DISACTIO+20
, DISACTIO+29, DISACTIO+35, GTSTATUS~, GTSTATUS+2, GTSTATUS+3, DC~, DC+2, DC+3, HOLD~, HOLD+2
, HOLD+3, HOLD+4, UPDATE+1, LOG~, LOG+1, FLAG~, FLAG+2, COMPLEX~, COMPLEX+2
DIR DISACTIO+18!, LOCKERR+1~
DIR(0 DISACTIO+18*, LOCKERR+1*
DIU DONE+6!
DRG DONE+4!
DRGI DONE+6!
FLAG DONE+6!
FQC DONE+6!
>> IOBM HOLDHDR+1*
>> IORC HOLDHDR+1
>> IOS EN+24
>> IOSC HOLDHDR+1
IOSL HOLDHDR+1
>> IOSTBM HOLDHDR+1
>> IOTM HOLDHDR+1*
MI DONE+3!
N DONE+3!
ND2 DONE+6!
ND2P1 DONE+7!, SELECT+3!, DISACTIO+8!, NEWSEL+2!
NDP2 COMPLEX+1~, COMPLEX+2*, COMPLEX+3
NE DONE+4!
NODE0 FLAG+1~, FLAG+2*, FLAG+3
NXTPT EN+8~*, EN+16*, EN+17*, EN+18*
ON DONE+3!, SELECT+12, DISACTIO+25~*, GTSTATUS~, GTSTATUS+1, GTSTATUS+2, GTSTATUS+3, UPDATE+1, NEWSEL+12*, NEWSEL+13
, NEWSEL+15, COMPLEX~, COMPLEX+2
ON55 DISACTIO+7~
ORIFN FLAG+1~, FLAG+3*, FLAG+4
>> P("PON" DISACTIO+24*
>> P(17 HOLD+2
>> P(3 HOLD+2
P3 DONE+3!
PNOW DONE+3!
PRI DONE+6!
PROMPT EDIT~, EDIT+5
>> PSGACT DISACTIO+19*, DISACTIO+37*, EDIT+2, HOLD+4*, COPY+17*
PSGCANFL DONE+4!
PSGCF DONE+4!
PSGCOPY COPY+2, COPY+13*, COPY+16!
PSGDUR DONE+7!, SELECT+3!, DISACTIO+8!, NEWSEL+2!
PSGFDX DISACTIO+7~
PSGLMT SELECT+2~, SELECT+4*, NEWSEL+1~, NEWSEL+4*
PSGNEDFD DONE+4!, EDIT+5*
PSGNEF EN+3*, DONE+4!
PSGNEFD DONE+4!
PSGNEPR DONE+4!
PSGNESD DONE+4!
PSGODDD SELECT+2~, NEWSEL+1~
PSGODDD( SELECT+6, SELECT+8, NEWSEL+6, NEWSEL+8
PSGODDD(0 NEWSEL+5
PSGOE DONE+6!
PSGOEA DONE+4!
PSGOEAV EN+3*, DONE+4!, DISACTIO+13*, DISACTIO+41*, DISACTIO+42, DISACTIO+43, DISACTIO+44, COPY+12*, NEWSEL+17
PSGOEDMR DONE+6!
>> PSGOEEF DISACTIO+37*
PSGOENG DISACTIO+15!, DISACTIO+16*, DISACTIO+17*, DISACTIO+18*
PSGOEORF DONE+5!
PSGOEPR DONE+6!
>> PSGOES DISACTIO+42, DISACTIO+43
PSGOL DONE+4!
PSGON DONE+4!
>> PSGONC SELECT+4*, NEWSEL+4*
PSGOP EN+3*, DONE+4!, HK+1, HK+2, HK+5*
PSGORD DONE+4!, SELECT+11*, DISACTIO+34*, DISACTIO+42, EDIT~, EDIT+1, EDIT+6, RENEW~, RENEW+5, COPY~
, COPY+3, COPY+4, COPY+7, COPY+10, COPY+17, LOG~, LOG+1, NEWSEL+11*
PSGOROE1 NEWSEL+2!
PSGOS DONE+4!
PSGP EN+4, EN+6, EN+20, EN+21~, EN+25*, HK+1, HK+4, HK+5, SELECT+9, SELECT+12
, SELECT+13, DISACTIO+7~, DISACTIO+11*, DISACTIO+16, DISACTIO+19, DISACTIO+20, DISACTIO+30, DISACTIO+34, DISACTIO+35, DISACTIO+37
, DISACTIO+39, DISACTIO+47, EDIT~, EDIT+1, RENEW~, RENEW+5, COPY~, COPY+7, COPY+10, COPY+17
, NEWSEL+10, NEWSEL+13, NEWSEL+14, NEWSEL+15
>> PSGPD DISACTIO+14*
>> PSGPDN DISACTIO+14*
>> PSGPRF DISACTIO+15
PSGPRI DONE+6!
>> PSGPTMP EN+4*
PSGPTS DONE+6!
>> PSGPXN EN+3*, EN+20*, DONE+8, COPY+18, COPY+19*
PSGPXPT EN+20*!, EN+25
PSGRDTX EN+9!, SELECT+2~, NEWSEL+1~
PSGRF DONE+7!, SELECT+3!, DISACTIO+8!, NEWSEL+2!
PSGRFD DISACTIO+31~
PSGRFDN DISACTIO+31~
PSGRMV DONE+7!, SELECT+3!, DISACTIO+8!, NEWSEL+2!
PSGRMVT DONE+7!, SELECT+3!, DISACTIO+8!, NEWSEL+2!
>> PSGRRF RENEW+6
PSGRSD DISACTIO+31~
PSGRSDN DISACTIO+31~
PSGS0XT DONE+4!
PSGS0Y DONE+4!
>> PSGSCH DISACTIO+33
PSGSDN DONE+6!
PSGSDX DISACTIO+7~
>> PSGSTAT COPY+3
PSGTMPXN COPY+18~*, COPY+19
PSGTOL DONE+6!
PSGTOO DONE+6!
PSGUOW DONE+6!
PSGVBY EN+3!
PSIVAT DONE+3!
>> PSIVCOPY COPY+5
PSIVENO DONE+7!, DISACTIO+7~
PSIVFLG DISACTIO+22!, DISACTIO+24*, DISACTIO+36!
PSIVLN DONE+3!
PSIVREA DONE+5!
PSIVSTR DONE+3!
PSJACNWP HK+2~
PSJACOK EN+3*, DONE+4!
PSJACPF HK+2~, HK+3*
PSJAGYSV DONE+2!, SELECT+2~, DISACTIO+44, SETOC+4!, EDIT+4*, NEWSEL+1~, NEWSEL+17, NEWSEL+21!
PSJBACK DISACTIO+7~, DISACTIO+29*
>> PSJCOI DISACTIO+14
>> PSJCOM EN+20
PSJCT DONE+5!
PSJDSVFY DISACTIO+7~
PSJEDITO EDIT+3~*
PSJENHOC DISACTIO+7~
PSJEXCPT DONE+2!
PSJEXCPT("PROSPECTIVE" DISACTIO+9!
PSJIVFLG DISACTIO+7~, DISACTIO+21, DISACTIO+28, DISACTIO+30*, DISACTIO+35*
PSJIVOF DONE+6!
PSJIVORF DONE+4!
PSJIVPCL DONE+4!
PSJLK EN+1~, EN+4, EN+6*
PSJLM DONE+5!, SELECT+6*, SELECT+15!, DISACTIO+34~*, NEWSEL+6*, NEWSEL+23!
PSJLMCON EN+1~, EN+4*, EN+10, EN+12*, EN+14, EN+15*
PSJLMFIN SELECT+2~, NEWSEL+1~
PSJLMPRO EN+7!, EN+12*, EN+14, EN+15*, EN+27!
PSJLMQT SELECT+2~, NEWSEL+1~
PSJLYN DISACTIO+35*!
PSJMAI DISACTIO+35!
PSJNEWOE EN+1~, EN+10, EN+12*, EN+13*, EN+16, EN+18*
PSJNOL NEWSEL+15!
PSJOCDSC SELECT+2~, SELECT+7!, SELECT+15!, NEWSEL+1~, NEWSEL+7!, NEWSEL+23!
PSJOCER DONE+2!
PSJOCFG DISACTIO+34~*!, DISACTIO+35*!, DISACTIO+44, SETOC+4!, RENEW+2~, RENEW+3*, RENEW+6!, RENEW+8!, COPY+1~, COPY+6*
, COPY+7!, COPY+11*, COPY+16!
PSJOCNT DONE+6!
PSJOE DONE+4!
PSJOECNT DONE+4!
PSJOEPF DONE+4!
>> PSJOL EN+3*, EN+11*, EN+19*
PSJON DONE+6!
PSJOPC DONE+5!
PSJORD DONE+4!, SELECT+8*, SELECT+9, SELECT+10, SELECT+12*, SELECT+13, DISACTIO~, DISACTIO+10, DISACTIO+11, DISACTIO+12
, DISACTIO+16, DISACTIO+17, DISACTIO+19, DISACTIO+20, DISACTIO+21, DISACTIO+24, DISACTIO+25, DISACTIO+29, DISACTIO+32, DISACTIO+34
, DISACTIO+35, DISACTIO+37, DISACTIO+38, DISACTIO+39, DISACTIO+44, DISACTIO+47, SETOC+2, SETOC+3, DC~, DC+2
, DC+3, HOLD~, HOLD+2, HOLD+3, HOLD+4, NEWSEL+8*, NEWSEL+9, NEWSEL+10, NEWSEL+12, NEWSEL+13*
, NEWSEL+14, NEWSEL+15, NEWSEL+17, NEWSEL+19, NEWSEL+20, FLAG~, FLAG+2
PSJORL DONE+5!
PSJORPCL DONE+5!
PSJORQF DONE+6!
PSJORTOI DONE+5!
PSJORTOU DONE+6!
PSJORVP DONE+6!
>> PSJPDD DISACTIO+30
PSJPDXP EN+22*, EN+25!
PSJPNV DISACTIO~, NEWSEL+13
PSJPR EN+3!
PSJPROT EN+1~, EN+4*
PSJPWD HK+2~, HK+3*
PSJPXDP EN+21~
>> PSJSEL SELECT+6*, SELECT+8, NEWSEL+6*, NEWSEL+8
>> PSJSEL1 SELECT+6*, SELECT+8, NEWSEL+6*, NEWSEL+8
PSJSTARI SELECT+2!
PSJSYSL HK+2~, HK+3
>> PSJSYSP EN+3, DONE+3
>> PSJSYSP0 DISACTIO+13, DISACTIO+41, COPY+12
>> PSJSYSU DISACTIO+13, DISACTIO+41, RENEW+5, COPY+12
PSJSYSW HK+2~
PSJSYSW0 EN+20, EN+22, EN+24*, EN+25*, HK+2~
>> PSJTUD DISACTIO+14, DISACTIO+27, DISACTIO+34
PSJUDPRF SELECT+2~, NEWSEL+1~
PSJXX1 DISACTIO+7~, DISACTIO+20*, DISACTIO+21*, DISACTIO+22, DISACTIO+23, DISACTIO+26, DISACTIO+27*, DISACTIO+28, DISACTIO+33, DISACTIO+34
, DISACTIO+35
RCT DONE+4!
RF DONE+5!
ST DONE+4!
U EN+6, EN+20, EN+22, EN+24, EN+25, DISACTIO+20, DISACTIO+21, DISACTIO+22, DISACTIO+23, DISACTIO+26
, DISACTIO+27, DISACTIO+28, DISACTIO+30, DISACTIO+33, DISACTIO+34, DISACTIO+35, RENEW+5, GTSTATUS+1, GTSTATUS+2, GTSTATUS+3
, COPY+10, COPY+12
VAERR HK+2~
VAIN HK+2~
VAIN(4 HK+3
VAIP DISACTIO+29~
>> VALM("TM" HOLDHDR+1
>> VALMBCK EN+13, SELECT+14*, RENEW+5*, DC+4*, HOLD+4*, COPY+15*, UPDATE+1*, LOG+1*, NEWSEL+22*
VALMEVL EN+1~
>> VALMQUIT SELECT+5*, NEWSEL+5*
WD DONE+4!
WSCHADM DONE+5!
>> X HK+5*, SELECT+5, DC+2*, NEWSEL+3*
>> XQORNOD(0 NEWSEL+3
XQORS EN+1~
XQUIT EN+2!
XREF DONE+4!
>> Y SELECT+6, SELECT+8, SELECT+13, DISACTIO+21, EDIT+5, NEWSEL+10, NEWSEL+16
Z DONE+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All