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 |  Marked Items  | All
Print Page as PDF
Routine: PSGOEE

Package: Inpatient Medications

Routine: PSGOEE


Information

PSGOEE ;BIR/CML3 - EDIT ACTIVE OR NON-VERIFIED ORDERS ;Jul 16, 2019@14:51:41

Source Information

Source file <PSGOEE.m>

Call Graph

Call Graph Total: 40

Package Total Call Graph
Inpatient Medications 31 (NEWNVAL,NEWUDAL)^PSGAL5  ($$ENDD,$$ENDTC2,$$ENNPN)^PSGMI  ^PSGNE3  $$ENACTION^PSGOE1  ($$DDOK,$$OIOK,CHKDRG)^PSGOE2  ENOR^PSGOECS  (ENF,ENNOU,ENSFE)^PSGOEE0  EN2^PSGOEEW  
^PSGOETO  CHK^PSGOEV  EN^PSGPEN  $$ASKDISP^PSGSICH1  OVRDISP^PSGSICH2  ENDDC^PSGSICHK  ENL^PSGVDS  EDIT^PSJADM  
($$DIFFSI,$$GETSI,FILESI)^PSJBCMA5  ($$ISCLOZ,CLOZ,PROVCHK,PSJFILE,TDD)^PSJCLOZ  UPD^PSJCOM  NEW^PSJCOM1  EN1^PSJHL2  $$GETDUR^PSJLIVMD  GETUD^PSJLMGUD  INIT^PSJLMUDE  
$$DD53P45^PSJMISC  SETOC^PSJNEWOC  IN^PSJOCDS  ($$CHKPDCL,$$PDACT)^PSJPDCLA  PDORD^PSJPDCLU  EFDACT^PSJUTL  $$ENNOO^PSJUTL5  
VA FileMan 4 NOW^%DTC  %XY^%RCR  ^DIE  $$GET1^DIQ  
List Manager 2 EN^VALM  (FULL,PAUSE)^VALM1  
Pharmacy Data Management 2 CHKSI^PSSDDUT3  UNL^PSSLOCK  
Mental Health 1 INPSND^YSCLTST5  

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

Package Total Caller Graph
Inpatient Medications 12 PSGOE1  PSGOEC  PSGOEE0  PSGOEF  PSGOER  PSJ LM IV AC/EDIT  PSJCLOR2  PSJCOMR  
PSJI LM EDIT  PSJLMGUD  PSJOE  PSJOE1  

Entry Points

Name Comments DBIA/ICR reference
531 ; edit orders in 53.1
ENF ; Entry point
ACT ; Perform Edit
ACT1 ; Continue editing
EDIT ; Edit
EDLOOP ; Continue prompting for fields to edit.
OC ;Perform OC (only when OI or Dosage was edited) & dosing check
CHKDD ;*** Check inactive Dispense drug within the order.
CKDT ; Check if new start/stop dates should be calculated.
NEW3 ;
NEW ;
UPD ;
OUT ;
DONE ;
DONE1 ;
K1 ;
ABORT ; Display no change message and pause.
GTSTATUS ; Determine status of new order and set LM title.
ASKOVR(Y,PSJOVRON,PSJSTARI)
FIELDS ;
31 ;;101^PSGOE8;PSGOPD;PSGPD;101;1
32 ;;109^PSGOE8;PSGODO;PSGDO;109;PSGODO]""
33 ;;10^PSGOE81;PSGOSD;PSGSD;10;0
34 ;;3^PSGOE8;PSGOMR;PSGMR;3;1
35 ;;25^PSGOE81;PSGOFD;PSGFD;25;0
36 ;;7^PSGOE8;PSGOST;PSGST;7;0
37 ;;5^PSGOE82;PSGOSM;PSGSM;5;0
38 ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
39 ;;39^PSGOE81;PSGOAT;PSGAT;39;0
310 ;;1^PSGOE82;PSGOPR;PSGPR;1;1
311 ;;8^PSGOE81;PSGOSI;PSGSI;8;0
312 ;;2^PSGOE82;;;2;0
313 ;;40^PSGOE82;;;40;0
315 ;;50^PSGOE82;P("CLINO");P("CLIN");113;0
316 ;;51^PSGOE82;P("APPTO");P("APPT");126;0
51 ;;101^PSGOE9;PSGOPD;PSGPD;101;1
52 ;;109^PSGOE9;PSGODO;PSGDO;109;PSGODO]""
53 ;;10^PSGOE91;PSGOSD;PSGSD;10;1
54 ;;3^PSGOE9;PSGOMR;PSGMR;3;1
55 ;;34^PSGOE91;PSGOFD;PSGFD;34;1
56 ;;7^PSGOE9;PSGOST;PSGST;7;0
57 ;;5^PSGOE92;PSGOSM;PSGSM;5;0
58 ;;26^PSGOE9;PSGOSCH;PSGSCH;26;1
59 ;;41^PSGOE91;PSGOAT;PSGAT;41;0
510 ;;1^PSGOE92;PSGOPR;PSGPR;1;1
511 ;;8^PSGOE91;PSGOSI;PSGSI;8;0
512 ;;2^PSGOE92;;;2;0
513 ;;15^PSGOE92;;;15;0
515 ;;50^PSGOE82;P("CLINO");P("CLIN");130;0
516 ;;51^PSGOE82;P("APPTO");P("APPT");131;0

External References

Name Field # of Occurrence
NOW^%DTC PSGOEE+8
%XY^%RCR UPD+56
^DIE NEW+15, UPD+31, UPD+55, DONE1+12
$$GET1^DIQ DONE1+2
NEWNVAL^PSGAL5 NEW+2, UPD+8, UPD+37, UPD+40
NEWUDAL^PSGAL5 NEW+3, UPD+9, UPD+38, UPD+41
$$ENDD^PSGMI EDLOOP+8, CKDT+6
$$ENDTC2^PSGMI EDLOOP+8, CKDT+6
$$ENNPN^PSGMI EDLOOP+8
^PSGNE3 CKDT+5
$$ENACTION^PSGOE1 NEW+20, UPD+61
$$DDOK^PSGOE2 ABORT+2
$$OIOK^PSGOE2 ABORT+3
CHKDRG^PSGOE2 CHKDD+1
ENOR^PSGOECS NEW+7
ENF^PSGOEE0 DONE+1
ENNOU^PSGOEE0 EDLOOP+3
ENSFE^PSGOEE0 ENF+9, ACT1+2, OUT+1
EN2^PSGOEEW ENF+1, ACT+8
^PSGOETO NEW+10
CHK^PSGOEV EDLOOP+9
EN^PSGPEN NEW+19
$$ASKDISP^PSGSICH1 ASKOVR+5
OVRDISP^PSGSICH2 ASKOVR+5
ENDDC^PSGSICHK OC+10
ENL^PSGVDS UPD+62
EDIT^PSJADM UPD+64
$$DIFFSI^PSJBCMA5 UPD+5
$$GETSI^PSJBCMA5 NEW+13
FILESI^PSJBCMA5 NEW+1, NEW+13, UPD+18, UPD+29, UPD+58
$$ISCLOZ^PSJCLOZ ACT+4, OC+4, DONE1+3
CLOZ^PSJCLOZ OC+7
PROVCHK^PSJCLOZ ACT+6
PSJFILE^PSJCLOZ DONE1+14
TDD^PSJCLOZ OC+6
UPD^PSJCOM UPD+4
NEW^PSJCOM1 NEW+5
EN1^PSJHL2 UPD+31, UPD+60
$$GETDUR^PSJLIVMD NEW+15
GETUD^PSJLMGUD ENF+9, ACT1+2, OUT+1
INIT^PSJLMUDE OUT+1
$$DD53P45^PSJMISC OC+8
SETOC^PSJNEWOC NEW+18
IN^PSJOCDS OC+11
$$CHKPDCL^PSJPDCLA UPD+47
$$PDACT^PSJPDCLA UPD+46
PDORD^PSJPDCLU UPD+52
EFDACT^PSJUTL CKDT+10
$$ENNOO^PSJUTL5 EDLOOP+16
CHKSI^PSSDDUT3 UPD+27
UNL^PSSLOCK ACT1+2, NEW+7, NEW+19
EN^VALM EDLOOP+10
FULL^VALM1 EDIT+2, OC+3, ABORT+1, ASKOVR+5
PAUSE^VALM1 ACT+7, EDLOOP+12, ABORT+4
INPSND^YSCLTST5 DONE1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Line Location: EDLOOP+12
Function Call: WRITE
  • Prompt: !,"...discontinuing original order..."
  • Line Location: NEW+4
Function Call: WRITE
  • Prompt: !!,"...updating order..."
  • Line Location: UPD+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+31
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+55
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+56
Function Call: WRITE
  • Prompt: !,"...updating OE/RR..."
  • Line Location: UPD+60
Function Call: WRITE
  • Prompt: !!,$C(7),"No changes made to this order."
  • Line Location: ABORT+4
Routine Call
  • DIE
  • Line Location:
    • NEW+15
    • UPD+31
    • UPD+55
    • DONE1+12
Routine Call
  • VALM
  • Line Location:
    • EDLOOP+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] NEW+2, NEW+5, NEW+12*, NEW+14, UPD+4, UPD+6, UPD+35, DONE+1, DONE1+17
^PS(53.45 - [#53.45] NEW+1, UPD+11, UPD+13, UPD+17, UPD+28*, UPD+58, DONE1+18!
^PS(55 - [#55] NEW+3, NEW+11*, UPD+6, UPD+11, UPD+13, UPD+14*, UPD+19, UPD+20, UPD+27*, UPD+35
UPD+49, UPD+50*, UPD+53*, DONE1+16
^PS(58.7 - [#58.7] UPD+46
^SC - [#44] UPD+37, UPD+38
^TMP("PSGSI" UPD+17!*, UPD+28, UPD+32!
^TMP("PSJCOM" DONE1+6, DONE1+7
^TMP("PSODAOC" NEW+17*
^TMP($J DONE1+6!, DONE1+8!, DONE1+9, DONE1+10!, DONE1+11

Label References

Name Line Occurrences
@( EDIT+6
ABORT OUT+1
ACT PSGOEE+8
ACT1 ENF+7
ASKOVR EDIT+1
CHKDD EDLOOP+7
CKDT EDLOOP+5, EDLOOP+7
DONE1 ENF+8, ACT1+1
EDIT EDLOOP+2
EDLOOP ENF+2, ACT+8
GTSTATUS EDLOOP+7
K1 EDLOOP+17
NEW ENF+4, ACT+10
OC EDLOOP+14
OUT ENF+2, ACT+8
UPD ENF+6, ACT+12

Naked Globals

Name Field # of Occurrence
^( UPD+60
^(2 UPD+60, DONE1+18!
^(2.1 UPD+60
^(5 DONE1+18!
^(6 DONE1+18!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSGOEE+8
>> %X UPD+56*
>> %Y UPD+56*
ANQX ACT+1~, ACT+3*, ACT+7, OC+4~, OC+6*, OC+7*
BACK K1+1!
CLOZFLG ACT+4~*, ACT+5, OC+4~*, OC+5, OC+6, DONE1+3~*, DONE1+4
DA NEW+15!*, UPD+3!, UPD+22~, UPD+31*, UPD+55*, UPD+62*, DONE1+5~*, DONE1+20!
DA(1 UPD+31*, UPD+55*, DONE1+5*
>> DFN NEW+1, NEW+3, NEW+13, UPD+5, UPD+6, UPD+9, UPD+18, UPD+27, UPD+29, UPD+38
UPD+41, UPD+58, DONE1+2, DONE1+3, DONE1+5, DONE1+6, DONE1+8, DONE1+9, DONE1+10, DONE1+11
DONE1+14
DIE NEW+15!*, UPD+22~, UPD+31*, UPD+55*, DONE1+5~*, DONE1+20!
DIR DONE1+20!
DP DONE1+20!
DR EDLOOP+3, NEW+15!*, UPD+16, UPD+22~, UPD+23*, UPD+26*, UPD+31*, UPD+55*, DONE1+5~*, DONE1+7*
DONE1+9*, DONE1+11*, DONE1+20!
DRG DONE1+20!
DUR NEW+15~*
DUZ EDLOOP+8, UPD+62
F1 EDIT+6*, K1+1!
F2 K1+1!
I UPD+44~, UPD+45*, UPD+46*
I3 ASKOVR+1~, ASKOVR+4*
II UPD+16~*, ASKOVR+1~, ASKOVR+4*
>> J UPD+46*
>> LIMIT EDIT+4*
MSG EDIT+5*, K1+1!
ND UPD+60*, DONE1+20!
ND0 DONE1+20!
ND1 UPD+60*, DONE1+20!
ND2 UPD+60*, DONE1+20!
ND2P1 UPD+60*, DONE1+20!
OLCLN UPD+34~, UPD+35*, UPD+36, UPD+37, UPD+38, UPD+39, UPD+40, UPD+41, UPD+43, UPD+47
ORD UPD+22~
ORIFN UPD+60*, DONE1+20!
OSTA UPD+48~, UPD+49*, UPD+53
>> P("APPT" UPD+39
>> P("CLIN" UPD+36, UPD+43
>> P("CLINO" UPD+43
>> P("OPI" UPD+23
PDTYP UPD+48~, UPD+51*
>> PSBSTR CKDT+4
>> PSGACT NEW+20*
PSGAL DONE1+20!
PSGALEF DONE1+20!
PSGAT CKDT+2, NEW+9, DONE1+20!
>> PSGCANFL ACT+13*, OUT+1*
>> PSGDEF EDIT+4*, EDIT+6
>> PSGDFLG ABORT+2*
>> PSGDI ABORT+2*
PSGDN DONE1+13~*
PSGDO EDLOOP+9, DONE1+21!
PSGDRG OC+6*, OC+7, DONE1+3~, DONE1+4*, DONE1+13
>> PSGDT PSGOEE+8*, EDLOOP+8, UPD+62
>> PSGEBN EDLOOP+8*
PSGEDIT NEW+7*!
>> PSGEDT DONE1+2
PSGEFN PSGOEE+8!, DONE1+20!, K1+1!
PSGEFN( ASKOVR+4
>> PSGETDD OC+7
PSGF2 K1+1!
PSGFD EDLOOP+9, CKDT+4, CKDT+5, CKDT+6*, CKDT+7, NEW+9, DONE1+19!
PSGFDN CKDT+6*, DONE1+20!
PSGHSM DONE1+20!
>> PSGLIN EDLOOP+8*
PSGMR EDLOOP+9, DONE1+20!
PSGMRN DONE1+20!
>> PSGNEFD CKDT+5*, CKDT+6, NEW+9*
>> PSGNESD CKDT+6, NEW+9*
PSGNEWDT CKDT+4, CKDT+6*, OUT+1!, K1+1!
PSGODO K1+1!
>> PSGOEAV ENF+7, ACT1+2, EDLOOP+18, NEW+8, NEW+14, NEW+16, NEW+19
PSGOEE EDIT+4*, EDIT+5*, EDIT+6*, EDLOOP+2, NEW+9*, UPD+2, DONE1+20!
PSGOEEF PSGOEE+8!*, ENF+9*, ACT1+2*, DONE1+20!, ABORT+5!*
PSGOEEF( EDIT+3*
PSGOEEF(10 CKDT+8*
PSGOEEF(25 CKDT+7*
PSGOEEG EDIT+6, DONE1+20!
PSGOEEND K1+1!
PSGOEENO ENF+3, ENF+4~*, ENF+6~*, ACT+9, ACT+10~*, ACT+12~*, ACT+13, EDLOOP+3, EDLOOP+5, EDLOOP+6
EDLOOP+13*, EDLOOP+14, EDLOOP+16, OC+9, UPD+15~*, UPD+62, DONE1+21!
PSGOEER ACT+2!, EDIT+3*, EDIT+4, EDIT+5*, EDIT+6, EDLOOP+13, EDLOOP+14, K1+1!
PSGOEEWF UPD+56, UPD+57*, DONE1+20!, ABORT+2, ABORT+3
>> PSGOEF ACT+13, DONE+1, DONE1+19
PSGOEOS NEW+10!
>> PSGOEPR NEW+9*
PSGOES CKDT+5~*, NEW+19
PSGOFD CKDT+4, CKDT+5*, CKDT+7, K1+1!
PSGOFDN K1+1!
PSGOHSM K1+1!
PSGOMR K1+1!
PSGOMRN K1+1!
>> PSGOORD NEW+10*, NEW+11, NEW+12, NEW+13
PSGOPD K1+1!
PSGOPDN K1+1!
PSGOPR ACT+6, K1+1!
PSGOPRN K1+1!
>> PSGORD PSGOEE+8, ENF+9, ACT+4, ACT1+2, EDIT+1, OC+4, OC+11, NEW+1, NEW+2, NEW+3
NEW+5, NEW+7, NEW+10, NEW+11, NEW+12, NEW+13, NEW+14, NEW+15, NEW+17, NEW+18
NEW+19, NEW+20, UPD+4, UPD+5, UPD+6, UPD+8, UPD+9, UPD+11, UPD+13, UPD+14
UPD+18, UPD+21, UPD+35, UPD+37, UPD+38, UPD+40, UPD+41, UPD+43, UPD+49, UPD+50
UPD+51, UPD+53, UPD+55, UPD+57, UPD+60, UPD+61, UPD+62*, OUT+1, DONE+1, DONE1+2
DONE1+3, DONE1+5, DONE1+6, DONE1+7, DONE1+10, DONE1+11, DONE1+16, DONE1+17
PSGOROE1 EDLOOP+2*, DONE1+20!
PSGORQF EDLOOP+15, OC+2!, OC+5, OC+6*, OC+7*, OC+8*, OC+11
PSGOSCH CKDT+4, K1+1!
PSGOSD CKDT+4, CKDT+8, K1+1!
PSGOSDN K1+1!
PSGOSI K1+1!
PSGOSM K1+1!
PSGOST CKDT+4, K1+1!
PSGOSTN K1+1!
>> PSGP ENF+9, ACT+4, ACT1+2, OC+4, OC+7, OC+10, NEW+7, NEW+11, NEW+15, NEW+19
NEW+20, UPD+11, UPD+13, UPD+14, UPD+31, UPD+35, UPD+49, UPD+50, UPD+51, UPD+53
UPD+55, UPD+60, UPD+61, UPD+62, OUT+1, DONE1+16, ASKOVR+5
PSGPD NEW+9, DONE1+20!
PSGPDN NEW+9, DONE1+20!
PSGPDNX EDLOOP+5, EDLOOP+10!, CKDT+4
PSGPDRG EDLOOP+9, NEW+9*, K1+1!
PSGPDRGN NEW+9*, K1+1!
>> PSGPFLG ABORT+3*
PSGPR NEW+9, DONE1+20!
>> PSGPRIO GTSTATUS+2
PSGPRN DONE1+20!
>> PSGS0XT EDLOOP+11
>> PSGS0Y EDLOOP+11, CKDT+2*, NEW+9*
PSGSCH EDLOOP+9, CKDT+4, DONE+1, DONE1+19!
PSGSD EDLOOP+9, CKDT+4, CKDT+6*, CKDT+8, NEW+9, DONE1+19!
PSGSDEDT ACT+1~, CKDT+1
PSGSDN CKDT+6*, DONE1+20!
PSGSI UPD+16*, UPD+27, DONE1+20!
PSGSIF UPD+15~, UPD+16*, UPD+23, UPD+26
PSGSM DONE1+20!
PSGST EDLOOP+9, EDLOOP+11, CKDT+4, DONE1+19!
>> PSGSTAT GTSTATUS+1*, GTSTATUS+2
PSGSTN DONE1+20!
PSGTOL UPD+62*, DONE1+20!
PSGTOO UPD+62*, DONE1+20!
PSGUOW UPD+62*, DONE1+20!
PSJACEPT ENF+2!, ACT+8, EDLOOP+2*, EDLOOP+10!, EDLOOP+12*, EDLOOP+17*, EDLOOP+18
PSJALGY1 ACT+1~, EDIT+3*, OC+9
PSJALLGY OC+1~
PSJAP UPD+44~, UPD+45*, UPD+47
PSJCHILD UPD+19~, UPD+20*, UPD+21, UPD+23, UPD+25, UPD+27, UPD+29, UPD+31
>> PSJCOM NEW+5*, UPD+4*, UPD+17, UPD+19, UPD+20
PSJCOMSI UPD+17!
PSJDD OC+1~, OC+8*, OC+10, OC+11
>> PSJDSVFY EDLOOP+14*
PSJF12 UPD+12~*, UPD+13*, UPD+14
PSJFSI NEW+1~*, NEW+13
PSJHLDFN UPD+48~, UPD+51*
PSJNOO EDLOOP+1!, EDLOOP+15*, EDLOOP+16*, EDLOOP+17
PSJOEORD UPD+19~*, UPD+20
>> PSJOP ACT+5
PSJORD ENF+9*, NEW+20*, UPD+58, DONE1+8, DONE1+9, ASKOVR+2, ASKOVR+3~*, ASKOVR+5
PSJOVRON ASKOVR~, ASKOVR+2*, ASKOVR+3
PSJPDO UPD+44~, UPD+45*
>> PSJRNFLG ABORT+4
>> PSJSTAR ASKOVR+4
PSJSTARI EDIT+1, ASKOVR~, ASKOVR+1, ASKOVR+4*, ASKOVR+5
>> PSJSYSL UPD+62
>> PSJSYSP NEW+1, UPD+11, UPD+13, UPD+17, UPD+28, UPD+56, UPD+58, DONE1+18
>> PSJSYSP0 GTSTATUS+1
>> PSJSYSU NEW+19
PSJX12 UPD+12~, UPD+13*
>> Q EDIT+3*, UPD+56*
>> Q1 EDIT+3*
RXO UPD+48~, UPD+51*
SIARRAY NEW+1~*, NEW+2*, NEW+3*, UPD+6~*, UPD+7, UPD+8, UPD+9
TMP UPD+15~*
U EDLOOP+8, EDLOOP+9, OC+6, CKDT+6, DONE1+4, GTSTATUS+1
>> VALM("TITLE" GTSTATUS+2*
VALMBCK EDLOOP+2*, EDLOOP+3*, EDLOOP+10!, EDLOOP+18*, UPD+61*
VALMSG EDLOOP+4!, EDLOOP+7*
X EDIT+3*, UPD+26~, UPD+27*, DONE1+16*
XREF DONE1+20!
Y EDIT+1, EDIT+3, EDLOOP+2, ASKOVR~, ASKOVR+1
YY ASKOVR+1~*, ASKOVR+2, ASKOVR+4

Marked Items

Name Field # of Occurrence
$T(@(3) EDIT+3
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 |  Marked Items  | All