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

Package: Inpatient Medications

Routine: PSJOE


Information

PSJOE ;BIR/MLM-INPATIENT ORDER ENTRY ;29-May-2012 14:38;PLS

Source Information

Source file <PSJOE.m>

Call Graph

Call Graph Total: 42

Package Total Call Graph
Inpatient Medications 31 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  (DONE,LOCKERR)^PSJOE  OLDCOM^PSJOE0  SELECT^PSJOEA  ^PSJP  
Registration 3 INP^VADPT  EN^VALM  (FULL,PAUSE)^VALM1  
IHS Changes To Pharmacy 2 SETPTCX^APSPFUNC  ($$OI,OI)^APSPMULT  
Kernel 2 HOME^%ZIS  $$PATCH^XPDUTL  
Order Entry Results Reporting 1 EN1^ORCFLAG  
Pharmacy Data Management 1 ($$L,$$LS,UL,UNL)^PSSLOCK  
Scheduling 1 $$SDIMO^SDAMA203  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Inpatient Medications 20 PSGOE  PSGOE1  PSGOE9  PSGOE91  PSGOE92  PSGOEF1  PSGOETO  PSGVBW  
PSGVBW0  PSIVEDRG  PSIVEDT  PSIVEDT1  PSIVORE  PSIVVW1  PSJ OE  PSJLIACT  
PSJLIFN  PSJLIFNI  PSJOE  PSJOE0  

Entry Points

Name Comments DBIA/ICR reference
EN ; Start Inpatient LM OE
; Modified - IHS/MSC/JDS - 11/20/2010 - Line RENEW+3
HOLDHDR ; Freeze header text while processing order actions
FINISH ;
RENEW(PSGP,PSGORD) ;
LOCKERR ;
COPY(PSGP,PSGORD) ; Copy an order (does not discontinue original order)
FLAG(DFN,PSJORD) ;Flag order through CPRS entry point.
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 ;
DISACTIO(DFN,PSJORD,PSJPNV) ; Display UD order and allow actions.
; DFN - Patient IEN
; PSJORD - Order #_location Code (P:53.1,V:55.01,U:55.06)
; PSJPNV - Invoked from Pending/NV option; (gets different hidden menu)
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+25
SETPTCX^APSPFUNC EN+6
$$OI^APSPMULT RENEW+3, COPY+7
OI^APSPMULT COPY+7
^DIR DISACTIO+13, LOCKERR+1
EN1^ORCFLAG FLAG+4
ENQL^PSGLW HK+3
^PSGOD COPY+12
$$ENACTION^PSGOE1 DISACTIO+14, DISACTIO+31, HOLD+4, COPY+15
H^PSGOE1 HOLD+3
ENO^PSGOEC DC+3
ABORT^PSGOEE EDIT+3
ACT^PSGOEE EDIT+5
ENF^PSGOEE EDIT+4
ENSFE^PSGOEE0 DISACTIO+28, DISACTIO+31
FINISH^PSGOEF FINISH+1
START^PSGOEF DISACTIO+28
ENLM^PSGOEL LOG+1
^PSGOER RENEW+4
^PSGOERI RENEW+5
ORSET^PSGOETO1 DISACTIO+36
ENASR^PSGON SELECT+2
ENCHK^PSGON NEWSEL+4
^PSGPER EN+26
^PSGPER1 DONE+5
ENCV^PSGSETU EN+2, EN+27
ENIVKV^PSGSETU DONE+5
COPY^PSIVOD COPY+5
H^PSIVOPT HOLD+2
VF^PSIVORC2 DISACTIO+19
^PSIVXU EN+2, EN+27
^PSJAC EN+5
ENIV^PSJAC DISACTIO+6
WP^PSJAC HK+3
^PSJHVARS COPY+8
RESTORE^PSJHVARS COPY+17
EN^PSJLIFN DISACTIO+29
EN^PSJLIORD DISACTIO+6
REQDT^PSJLIVMD DISACTIO+26
GETUD^PSJLMGUD DISACTIO+7, DISACTIO+31, HOLD+4, UPDATE+1
INIT^PSJLMUDE HOLD+4, UPDATE+1
$$HIDDEN^PSJLMUTL COPY+6
$$OINAME^PSJLMUTL DISACTIO+9
DONE^PSJOE EN+4
LOCKERR^PSJOE EN+4
OLDCOM^PSJOE0 DISACTIO+5
SELECT^PSJOEA SELECT+5, NEWSEL+6
^PSJP EN+5
$$L^PSSLOCK EN+8
$$LS^PSSLOCK SELECT+6, NEWSEL+8
UL^PSSLOCK EN+5
UNL^PSSLOCK SELECT+10, DISACTIO+37, NEWSEL+12, NEWSEL+13
$$SDIMO^SDAMA203 DISACTIO+23
INP^VADPT HK+3
EN^VALM EN+9, EN+14, EN+17, DISACTIO+31
FULL^VALM1 COPY+12, LOG+1
PAUSE^VALM1 DISACTIO+24, DISACTIO+27, EDIT+1, EDIT+2, RENEW+2, RENEW+3, DC+2, COPY+1, COPY+2, COPY+4
, COPY+7, COPY+9, FINISH+1, LOG+1, FLAG+5
$$PATCH^XPDUTL DISACTIO+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(PSJLK,U,2)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"This order is being edited by another terminal.",!
  • Line Location: DISACTIO+13
Function Call: WRITE
  • Prompt: !!,"Cannot process an Out-patient Unit Dose order for ",$P($G(^DPT(+PSGP,0)),U)
  • Line Location: DISACTIO+24
Function Call: WRITE
  • Prompt: !!,"Invalid schedule, can't finish this order"
  • Line Location: DISACTIO+27
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+2
Function Call: WRITE
  • Prompt: !!,"Sorry, this drug is not currently available in this facility"
  • Line Location: RENEW+3
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+1
Function Call: WRITE
  • Prompt: !!,"You cannot copy this "_$S($G(PSGSTAT)]"":PSGSTAT,1:"PENDING IV")_" order."
  • Line Location: COPY+2
Function Call: WRITE
  • Prompt: !!,"You cannot copy the order at this time"
  • Line Location: COPY+4
Function Call: WRITE
  • Prompt: !!,"Sorry, this drug is not currently available in this facility"
  • Line Location: COPY+7
Function Call: WRITE
  • Prompt: !!,"Nurse verified orders with a priority of DONE may not be Copied."
  • Line Location: COPY+9
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+9
    • EN+14
    • EN+17
    • DISACTIO+31
Routine Call
  • %ZIS
  • Line Location:
    • EN+25
Routine Call
  • DIR
  • Line Location:
    • DISACTIO+13
    • LOCKERR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DISACTIO+24
^PS(53.1 - [#53.1] DISACTIO+12, DISACTIO+15, DISACTIO+16, DISACTIO+23, DISACTIO+32, DISACTIO+36, GTSTATUS+1, FLAG+2, COMPLEX+2
^PS(53.45 - [#53.45] EN+4, DONE+1
^PS(55 - [#55] DISACTIO+11, DISACTIO+33, RENEW+2, RENEW+3, GTSTATUS+2, GTSTATUS+3, COPY+7, COPY+9, FLAG+2, COMPLEX+2
^TMP("PSJ" EN+7!, EN+16, EN+28!
^TMP("PSJCOM" SELECT+1!, NEWSEL+1!
^TMP("PSJCOM2" SELECT+1!, NEWSEL+1!
^TMP("PSJON" EN+28!, SELECT+5, NEWSEL+6
^TMP("PSJPRO" EN+28!, SELECT+2, NEWSEL+3

Label References

Name Line Occurrences
$$GTSTATUS EDIT+1, DC+2
@( DISACTIO+28, EDIT+3
DISACTIO SELECT+9, NEWSEL+11
DONE EN+3
HK EN+5
HOLDHDR EDIT+3, RENEW+1, DC+1, HOLD+1

Naked Globals

Name Field # of Occurrence
^(4 RENEW+2, COPY+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

Name Field # of Occurrence
$T(OI^APSPMULT COPY+7
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