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 ;Jan 14, 2021@10:49:31

Source Information

Source file <PSJOE.m>

Call Graph

Call Graph Total: 43

Package Total Call Graph
Inpatient Medications 33 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  ($$ISCLOZ,PSJFILE)^PSJCLOZ  (,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  
Mental Health 1 INPSND^YSCLTST5  
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: 38

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

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS EN+25
^DIR DISACTIO+18, LOCKERR+1
EN1^ORCFLAG FLAG+4
ENQL^PSGLW HK+3
^PSGOD COPY+16
$$ENACTION^PSGOE1 DISACTIO+19, DISACTIO+37, HOLD+4, COPY+22
H^PSGOE1 HOLD+3
ENO^PSGOEC DC+3
ABORT^PSGOEE EDIT+10
ACT^PSGOEE EDIT+12
ENF^PSGOEE EDIT+11
ENSFE^PSGOEE0 DISACTIO+34, DISACTIO+37
FINISH^PSGOEF FINISH+1
START^PSGOEF DISACTIO+34
ENLM^PSGOEL LOG+1
^PSGOER RENEW+12
^PSGOERI RENEW+13
ORSET^PSGOETO1 DISACTIO+42
ENASR^PSGON SELECT+4
ENCHK^PSGON NEWSEL+9
^PSGPER EN+26
^PSGPER1 DONE+8
ENCV^PSGSETU EN+1, EN+27
ENIVKV^PSGSETU DONE+8
COPY^PSIVOD COPY+9
H^PSIVOPT HOLD+2
VF^PSIVORC2 DISACTIO+25
^PSIVXU EN+1, EN+27
^PSJAC EN+5
ENIV^PSJAC DISACTIO+11
WP^PSJAC HK+3
$$ISCLOZ^PSJCLOZ RENEW+3
PSJFILE^PSJCLOZ CLOZSND+2
^PSJHVARS COPY+11
RESTORE^PSJHVARS COPY+24
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+10
$$OINAME^PSJLMUTL DISACTIO+14
SETOC^PSJNEWOC SETOC+3, NEWSEL+24
DONE^PSJOE EN+4
LOCKERR^PSJOE EN+4
OLDCOM^PSJOE0 DISACTIO+10
SELECT^PSJOEA SELECT+8, NEWSEL+12
^PSJP EN+5
$$L^PSSLOCK EN+7
$$LS^PSSLOCK SELECT+9, NEWSEL+14
UL^PSSLOCK EN+5
UNL^PSSLOCK SELECT+13, DISACTIO+47, NEWSEL+18, NEWSEL+19
$$SDIMO^SDAMA203 DISACTIO+29
INP^VADPT HK+3
EN^VALM EN+8, EN+13, EN+16, DISACTIO+37
FULL^VALM1 COPY+16, LOG+1
PAUSE^VALM1 DISACTIO+30, DISACTIO+33, EDIT+6, EDIT+7, RENEW+6, RENEW+11, DC+2, COPY+3, COPY+4, COPY+5
, COPY+7, COPY+12, FINISH+1, LOG+1, FLAG+5
$$PATCH^XPDUTL DISACTIO+29
INPSND^YSCLTST5 CLOZSND+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$P(PSJLK,U,2)
  • Line Location: EN+7
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+6
Function Call: WRITE
  • Prompt: !,"This order may not be edited."
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,"This order is already marked for renewal!"
  • Line Location: RENEW+11
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 a clozapine order."
  • Line Location: COPY+3
Function Call: WRITE
  • Prompt: !!,"You cannot copy the order at this time"
  • Line Location: COPY+4
Function Call: WRITE
  • Prompt: !!,"You cannot copy this "_$S($G(PSGSTAT)]"":PSGSTAT,1:"PENDING IV")_" order."
  • Line Location: COPY+5
Function Call: WRITE
  • Prompt: !!,"You cannot copy the order at this time"
  • Line Location: COPY+7
Function Call: WRITE
  • Prompt: !!,"Nurse verified orders with a priority of DONE may not be Copied."
  • Line Location: COPY+12
Function Call: WRITE
  • Prompt: IOSC
  • Line Location: NEWSEL+5
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: NEWSEL+5
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: NEWSEL+5
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
  • %ZIS
  • Line Location:
    • EN+25
Routine Call
  • DIR
  • Line Location:
    • DISACTIO+18
    • LOCKERR+1
Routine Call
  • VALM
  • Line Location:
    • EN+8
    • EN+13
    • EN+16
    • DISACTIO+37

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+4, DONE+3
^PS(55 - [#55] DISACTIO+16, DISACTIO+39, RENEW+11, GTSTATUS+2, GTSTATUS+3, COPY+3, COPY+12, FLAG+2, COMPLEX+2
^TMP("PSJ" EN+6!, EN+15, EN+28!
^TMP("PSJCOM" SELECT+2!, NEWSEL+1!
^TMP("PSJCOM2" SELECT+2!, NEWSEL+1!
^TMP("PSJDAOC" DONE+2!, SELECT+2!, SETOC+4!, NEWSEL+1!, NEWSEL+25!
^TMP("PSJON" EN+28!, SELECT+8, NEWSEL+12
^TMP("PSJPRO" EN+28!, SELECT+4, NEWSEL+8
^TMP("PSODAOC" DONE+2!, SELECT+2!, DISACTIO+46!, SETOC+2*, SETOC+4!, NEWSEL+1!, NEWSEL+23*, NEWSEL+25!
^TMP($J DONE+2!

Label References

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

Naked Globals

Name Field # of Occurrence
^(4 RENEW+11, COPY+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AC DONE+3!
ACTION DONE+3!
ANQX EDIT+1~, EDIT+2*, COPY+15*, COPY+18
>> APPT DISACTIO+29*
>> CLINIC DISACTIO+29*
COM COMPLEX+1~, COMPLEX+3*
D1 DONE+3!
D2 DONE+3!
DA DONE+4!
DFN EN+5*, EN+22~, EN+26*, 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, CLOZSND+2
DIR DISACTIO+18!, LOCKERR+1~
DIR(0 DISACTIO+18*, LOCKERR+1*
DIU DONE+6!
>> DONE EN+3
DRG DONE+4!
DRGI DONE+6!
FLAG DONE+6!
FQC DONE+6!
>> IOBM NEWSEL+5*, HOLDHDR+1*
>> IORC NEWSEL+5, HOLDHDR+1
>> IOS EN+25
>> IOSC NEWSEL+5, HOLDHDR+1
IOSL NEWSEL+5, HOLDHDR+1
>> IOSTBM NEWSEL+5, HOLDHDR+1
>> IOTM NEWSEL+5*, 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+9~*, EN+17*, EN+18*, EN+19*
ON DONE+3!, SELECT+12, DISACTIO+25~*, GTSTATUS~, GTSTATUS+1, GTSTATUS+2, GTSTATUS+3, UPDATE+1, NEWSEL+16*, NEWSEL+17
, NEWSEL+19, COMPLEX~, COMPLEX+2
ON55 DISACTIO+7~
ORIFN FLAG+1~, FLAG+3*, FLAG+4
>> P("APPT" NEWSEL+29!
>> P("CLIN" NEWSEL+29!
>> P("PON" DISACTIO+24*, NEWSEL+29!
>> P(17 HOLD+2
>> P(3 HOLD+2
P3 DONE+3!
PNOW DONE+3!
PRI DONE+6!
PROMPT EDIT~, EDIT+10
>> PSGACT DISACTIO+19*, DISACTIO+37*, EDIT+7, HOLD+4*, COPY+22*
PSGCANFL DONE+4!
PSGCF DONE+4!
PSGCOPY COPY+4, COPY+15*, COPY+18!, COPY+21!
PSGDRG NEWSEL+3!, NEWSEL+11!
PSGDRGN NEWSEL+3!
PSGDUR DONE+7!, SELECT+3!, DISACTIO+8!, NEWSEL+2!
PSGEDT EDIT+1~, EDIT+2*
PSGFDX DISACTIO+7~
PSGIND NEWSEL+11~
PSGLMT SELECT+2~, SELECT+4*, NEWSEL+1~, NEWSEL+8*
PSGNEDFD DONE+4!, EDIT+10*
PSGNEF EN+4*, DONE+4!
PSGNEFD DONE+4!
PSGNEPR DONE+4!
PSGNESD DONE+4!
PSGODDD SELECT+2~, NEWSEL+1~
PSGODDD( SELECT+6, SELECT+8, NEWSEL+10, NEWSEL+12
PSGODDD(0 NEWSEL+9
PSGOE DONE+6!
PSGOEA DONE+4!
PSGOEAV EN+4*, DONE+4!, DISACTIO+13*, DISACTIO+41*, DISACTIO+42, DISACTIO+43, DISACTIO+44, COPY+14*, NEWSEL+21
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
PSGOIND NEWSEL+11~
PSGOL DONE+4!
PSGON DONE+4!
>> PSGONC SELECT+4*, NEWSEL+8*
PSGOP EN+4*, DONE+4!, HK+1, HK+2, HK+5*
PSGORD DONE+4!, SELECT+11*, DISACTIO+34*, DISACTIO+42, EDIT~, EDIT+6, EDIT+11, RENEW~, RENEW+3, RENEW+11
, COPY~, COPY+3, COPY+5, COPY+6, COPY+9, COPY+12, COPY+22, LOG~, LOG+1, NEWSEL+15*
PSGOROE1 NEWSEL+2!
PSGOS DONE+4!
PSGP EN+5, EN+7, EN+21, EN+22~, EN+26*, 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+6, RENEW~, RENEW+3, RENEW+11, COPY~, COPY+3, COPY+9
, COPY+12, COPY+22, NEWSEL+14, NEWSEL+17, NEWSEL+18, NEWSEL+19
>> PSGPD DISACTIO+14*
>> PSGPDN DISACTIO+14*
>> PSGPRF DISACTIO+15
PSGPRI DONE+6!
>> PSGPTMP EN+5*
PSGPTS DONE+6!
>> PSGPXN EN+4*, EN+21*, DONE+8, COPY+23, COPY+24*
PSGPXPT EN+21*!, EN+26
PSGRDTX EN+10!, 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+12
PSGRSD DISACTIO+31~
PSGRSDN DISACTIO+31~
PSGS0XT DONE+4!
PSGS0Y DONE+4!
>> PSGSCH DISACTIO+33
PSGSDN DONE+6!
PSGSDX DISACTIO+7~
>> PSGSTAT COPY+5
PSGTMPXN COPY+23~*, COPY+24
PSGTOL DONE+6!
PSGTOO DONE+6!
PSGUOW DONE+6!
PSGVBY EN+4!
PSIVAT DONE+3!
>> PSIVCOPY COPY+7
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+4*, DONE+4!
PSJACPF HK+2~, HK+3*
PSJAGYSV DONE+2!, SELECT+2~, DISACTIO+44, SETOC+4!, EDIT+9*, NEWSEL+1~, NEWSEL+21, NEWSEL+25!
PSJBACK DISACTIO+7~, DISACTIO+29*
PSJCLAPP NEWSEL+29!
PSJCM01 NEWSEL+29!
PSJCMO NEWSEL+29!
>> PSJCOI DISACTIO+14
>> PSJCOM EN+21
PSJCT DONE+5!
PSJDSVFY DISACTIO+7~
PSJEDITO EDIT+8~*
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+5, EN+7*
PSJLM DONE+5!, SELECT+6*, SELECT+15!, DISACTIO+34~*, NEWSEL+10*, NEWSEL+27!
PSJLMCON EN+1~, EN+5*, EN+11, EN+13*, EN+15, EN+16*
PSJLMFIN SELECT+2~, NEWSEL+1~
PSJLMPRO EN+8!, EN+13*, EN+15, EN+16*, EN+28!
PSJLMQT SELECT+2~, NEWSEL+1~
PSJLYN DISACTIO+35*!
PSJMAI DISACTIO+35!
PSJNEWOE EN+1~, EN+11, EN+13*, EN+14*, EN+17, EN+19*
PSJNOL NEWSEL+19!
PSJOCDSC SELECT+2~, SELECT+7!, SELECT+15!, NEWSEL+1~, NEWSEL+11!, NEWSEL+27!
PSJOCER DONE+2!
PSJOCFG DISACTIO+34~*!, DISACTIO+35*!, DISACTIO+44, SETOC+4!, RENEW+8~, RENEW+9*, RENEW+12!, RENEW+14!, COPY+1~, COPY+8*
, COPY+9!, COPY+13*, COPY+21!
PSJOCNT DONE+6!
PSJOE DONE+4!
PSJOECNT DONE+4!
PSJOEPF DONE+4!
>> PSJOL EN+4*, EN+12*, EN+20*
PSJON DONE+6!
PSJOP EDIT+1~, EDIT+2*, EDIT+3*, EDIT+4*
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+12*, NEWSEL+13, NEWSEL+14, NEWSEL+16, NEWSEL+17*
, NEWSEL+18, NEWSEL+19, NEWSEL+21, NEWSEL+23, NEWSEL+24, 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+23*, EN+26!
PSJPNV DISACTIO~, NEWSEL+17
PSJPR EN+4!
PSJPROT EN+1~, EN+5*
PSJPWD HK+2~, HK+3*
PSJPXDP EN+22~
>> PSJSEL SELECT+6*, SELECT+8, NEWSEL+10*, NEWSEL+12
>> PSJSEL1 SELECT+6*, SELECT+8, NEWSEL+10*, NEWSEL+12
PSJSTARI SELECT+2!
PSJSYSL HK+2~, HK+3
>> PSJSYSP EN+4, DONE+3
>> PSJSYSP0 DISACTIO+13, DISACTIO+41, COPY+14
>> PSJSYSU DISACTIO+13, DISACTIO+41, RENEW+11, COPY+14
PSJSYSW HK+2~
PSJSYSW0 EN+21, EN+23, EN+25*, EN+26*, 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+7, EN+21, EN+23, EN+25, EN+26, DISACTIO+20, DISACTIO+21, DISACTIO+22, DISACTIO+23, DISACTIO+26
, DISACTIO+27, DISACTIO+28, DISACTIO+30, DISACTIO+33, DISACTIO+34, DISACTIO+35, RENEW+11, GTSTATUS+1, GTSTATUS+2, GTSTATUS+3
, COPY+12, COPY+14
VAERR HK+2~
VAIN HK+2~
VAIN(4 HK+3
VAIP DISACTIO+29~
>> VALM("TM" NEWSEL+5, HOLDHDR+1
>> VALMBCK EN+14, SELECT+14*, RENEW+11*, DC+4*, HOLD+4*, COPY+20*, UPDATE+1*, LOG+1*, NEWSEL+26*
VALMEVL EN+1~
>> VALMQUIT SELECT+5*, NEWSEL+9*
WD DONE+4!
WSCHADM DONE+5!
>> X HK+5*, SELECT+5, DC+2*, NEWSEL+7*
>> XQORNOD(0 NEWSEL+7
XQORS EN+1~
XQUIT EN+3!
XREF DONE+4!
>> Y SELECT+6, SELECT+8, SELECT+13, DISACTIO+21, EDIT+10, NEWSEL+14, NEWSEL+20
>> Y(1 EDIT+3
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