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

Package: Inpatient Medications

Routine: PSGOEF


Information

PSGOEF ;BIR/CML3 - FINISH ORDERS ENTERED THROUGH OE/RR ;12 June 2019 09:31:53

Source Information

Source file <PSGOEF.m>

Call Graph

Call Graph Total: 36

Package Total Call Graph
Inpatient Medications 26 ($$ENDD,$$ENDTC,$$ENDTC2)^PSGMI  ($$ENSD,ENFD)^PSGNE3  GTST^PSGOE6  $$GTNEDFD^PSGOE7  (ABORT,DONE1,NEW3)^PSGOEE  ENSFE^PSGOEE0  ^PSGOEF  ($$ENIVUD,ENDRG,UPD)^PSGOEF1  
OVERLAP^PSGOEF2  OC531^PSGOESF  EN^PSGORS0  ($$ODD,$$PRNOK,ENOS,NSSCONT)^PSGS0  ($$ISCLOZ,CLOZ,CLOZPAT,COMPLEX1)^PSJCLOZ  $$DSTART^PSJDCU  DOSECHK^PSJDOSE  ($$DURMIN,$$GETDUR,REQDT)^PSJLIVMD  
GETUD^PSJLMGUD  $$LASTREN^PSJLMPRI  INIT^PSJLMUDE  $$OINAME^PSJLMUTL  $$DD53P45^PSJMISC  $$CHKSCHD^PSJMISC2  IN^PSJOCDS  OC^PSJOE1  
$$ENPC^PSJUTL  $$ENNOO^PSJUTL5  
VA FileMan 4 (C,NOW)^%DTC  FIND^DIC  $$GET1^DIQ  ^DIR  
List Manager 3 (EN,REFRESH)^VALM  FULL^VALM1  RE^VALM4  
Kernel 2 ENDR^%ZISS  ($$FMADD,$$NOW)^XLFDT  
Pharmacy Data Management 1 DOSE^PSSORPH  

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

Package Total Caller Graph
Inpatient Medications 6 PSGOE1  PSGOEF  PSJ LM BYPASS  PSJ LM FINISH  PSJOE  PSJOEA  

Entry Points

Name Comments DBIA/ICR reference
START ;
ZZ
FINISH ;
; force display of second screen if CPRS order checks exist
ACCEPT ;
BYPASS ;
DONE ;
ABORTACC ; Abort Accept process.
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
AH ;

External References

Name Field # of Occurrence
C^%DTC FINISH+124
NOW^%DTC START+2
ENDR^%ZISS FINISH+38
FIND^DIC FINISH+76
$$GET1^DIQ ZZ+18, FINISH+74
^DIR FINISH+36, FINISH+51, FINISH+66, FINISH+82, FINISH+99, FINISH+112, FINISH+114, FINISH+120, FINISH+132, FINISH+138
$$ENDD^PSGMI ZZ+16, ZZ+17, FINISH+125
$$ENDTC^PSGMI ZZ+17, FINISH+125
$$ENDTC2^PSGMI ZZ+16
$$ENSD^PSGNE3 ZZ
ENFD^PSGNE3 ZZ+11
GTST^PSGOE6 START+21, FINISH+100
$$GTNEDFD^PSGOE7 START+28
ABORT^PSGOEE ABORTACC+4
DONE1^PSGOEE ACCEPT+18
NEW3^PSGOEE ACCEPT+6
ENSFE^PSGOEE0 ABORTACC+4
^PSGOEF ABORTACC+4
$$ENIVUD^PSGOEF1 FINISH+53
ENDRG^PSGOEF1 FINISH+95
UPD^PSGOEF1 ACCEPT+6
OVERLAP^PSGOEF2 FINISH+40
OC531^PSGOESF FINISH+96
EN^PSGORS0 START+6
$$ODD^PSGS0 FINISH+128
$$PRNOK^PSGS0 FINISH+129
ENOS^PSGS0 FINISH+59
NSSCONT^PSGS0 FINISH+69
$$ISCLOZ^PSJCLOZ START+3, FINISH+32
CLOZ^PSJCLOZ FINISH+35
CLOZPAT^PSJCLOZ START+4, FINISH+122
COMPLEX1^PSJCLOZ ZZ+2
$$DSTART^PSJDCU ZZ+7
DOSECHK^PSJDOSE FINISH+105
$$DURMIN^PSJLIVMD ZZ+14
$$GETDUR^PSJLIVMD ZZ+13
REQDT^PSJLIVMD ZZ+5
GETUD^PSJLMGUD ABORTACC+4
$$LASTREN^PSJLMPRI ZZ+13
INIT^PSJLMUDE FINISH+90, ABORTACC+4
$$OINAME^PSJLMUTL START+5
$$DD53P45^PSJMISC FINISH+143
$$CHKSCHD^PSJMISC2 FINISH+56
IN^PSJOCDS FINISH+144
OC^PSJOE1 FINISH+141
$$ENPC^PSJUTL FINISH+68
$$ENNOO^PSJUTL5 FINISH+146
DOSE^PSSORPH START+10
EN^VALM FINISH+110
REFRESH^VALM FINISH+88
FULL^VALM1 FINISH+30
RE^VALM4 FINISH+98
$$FMADD^XLFDT ZZ+14
$$NOW^XLFDT ACCEPT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!?3,"Cannot find this pending order (#",+PSGORD,")."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"**WARNING**"
  • Line Location: FINISH+42
Function Call: WRITE
  • Prompt: !,"The highlighted admin times for these portions of this complex order overlap.",!!
  • Line Location: FINISH+43
Function Call: WRITE
  • Prompt: $S($P(X1,"^",4)=1:IORVON,1:""),"Part "_X,IORVOFF," has a schedule of "_$P(X1,"^",2)_" and admin time(s) of "
  • Line Location: FINISH+46
Function Call: WRITE
  • Prompt: $S($P(X1,"^",4)=1:IORVON,1:""),$P(X1,"^",3),IORVOFF
  • Line Location: FINISH+47
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+48
Function Call: WRITE
  • Prompt: $S($G(PSJOVR("CONJ",X))="A":"AND",$G(PSJOVR("CONJ",X))="T":"THEN",1:""),!
  • Line Location: FINISH+49
Function Call: WRITE
  • Prompt: !,"Please ensure the schedules and administration times are appropriate.",!
  • Line Location: FINISH+50
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+51
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order's admin times (",PSGAT,")"
  • Line Location: FINISH+63
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+66
Function Call: WRITE
  • Prompt: $C(7),!!,"INVALID STOP DATE"
  • Condition for execution: PSJRMABT
  • Line Location: FINISH+82
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+82
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order must have"
  • Line Location: FINISH+87
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(Y)+$X>78
  • Line Location: FINISH+87
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: FINISH+87
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+89
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+94
Function Call: WRITE
  • Prompt: !!
  • Line Location: FINISH+99
Function Call: WRITE
  • Prompt: $C(7),!!,"ACCEPTING THIS ORDER WILL CHANGE THE STATUS TO ACTIVE."
  • Line Location: FINISH+136
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to accept this order as a NON-VERIFIED UNIT DOSE order. Answer",!,"'NO' to edit this order now. Enter '^' to BYPASS this order, leaving it as",!,"a PENDING INPATIENT order."
  • Line Location: AH+1
Routine Call
  • DIC
  • Line Location:
    • FINISH+76
Routine Call
  • DIR
  • Line Location:
    • FINISH+36
    • FINISH+51
    • FINISH+66
    • FINISH+82
    • FINISH+99
    • FINISH+112
    • FINISH+114
    • FINISH+120
    • FINISH+132
    • FINISH+138
Routine Call
  • VALM
  • Line Location:
    • FINISH+110
Routine Call
  • VALM
  • Line Location:
    • FINISH+88

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(51.1 - [#51.1] FIND^DIC
53.4502 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] START+1, START+5, START+6, START+7, START+9, START+13, START+22, START+23, START+26, ZZ+4
ZZ+7, ZZ+10, ZZ+12, FINISH+11, FINISH+56, FINISH+58*, FINISH+60, FINISH+67*, FINISH+68, FINISH+102
FINISH+135, ACCEPT+11
^PS(53.45 - [#53.45] START+19*, ZZ+20!*, FINISH+70
^PS(55 - [#55] START+24, START+25, ZZ+10, ZZ+12*, ACCEPT+12, ACCEPT+13
^PSDRUG - [#50] ZZ+19
^PSDRUG("ASP" ZZ+19
^TMP("PSJATOVR" FINISH+44, FINISH+45, FINISH+52!
^TMP("PSJCOM" FINISH+121*
^TMP("PSODAOC" ACCEPT+8, ABORTACC+3!

Label References

Name Line Occurrences
32 FINISH+93
35 FINISH+81
38 FINISH+92, FINISH+94
39 FINISH+89
@( FINISH+81, FINISH+89, FINISH+92, FINISH+93, FINISH+94
ABORTACC FINISH+77, FINISH+95, FINISH+117, FINISH+134, FINISH+139, ACCEPT+3
DONE FINISH+56, FINISH+88, FINISH+92, FINISH+93, ACCEPT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+2
>> ANQX FINISH+33, FINISH+35*, FINISH+36
CHK FINISH+68*, FINISH+81*, FINISH+87*, FINISH+89*, FINISH+92*, FINISH+94*, FINISH+95*, FINISH+120*, DONE+1!
CLOZFLG START+3~*, START+4, ZZ+2, FINISH+32~*, FINISH+33, FINISH+34, FINISH+119
>> CLOZPAT START+4, FINISH+123
DA ACCEPT+9~, DONE+1!
>> DFN START+24, START+25, ZZ+7, ZZ+10, ZZ+12, ZZ+13, ACCEPT+12, ACCEPT+13
DIE DONE+1!
DIR FINISH+36!, FINISH+41~, FINISH+66!, FINISH+82!, FINISH+99!, FINISH+112!, FINISH+114!, FINISH+120!, FINISH+132!, FINISH+138!
DIR("?" FINISH+137*, FINISH+138*
DIR("A" FINISH+51*, FINISH+66*, FINISH+82*, FINISH+112*, FINISH+114*, FINISH+120*, FINISH+132*, FINISH+137*
DIR(0 FINISH+36*, FINISH+51*, FINISH+66*, FINISH+82*, FINISH+99*, FINISH+112*, FINISH+114*, FINISH+120*, FINISH+132*, FINISH+137*
>> DIRUT FINISH+120
DR DONE+1!
DRG ZZ+18~, ZZ+19*, ZZ+20, DONE+1!
DRGCNT ZZ+18~*, ZZ+19*, ZZ+20
DUR ZZ+13~*, ZZ+14
DURMIN ZZ+14~*
>> F1 FINISH+81*, FINISH+89*, FINISH+92*, FINISH+93*, FINISH+94*
>> IOINHI FINISH+38
>> IOINORM FINISH+38
>> IORVOFF FINISH+46, FINISH+47
>> IORVON FINISH+46, FINISH+47
MSG FINISH+81*, FINISH+89*, FINISH+92*, FINISH+93*, FINISH+94*, FINISH+99, DONE+1!
NSFF FINISH+2~*, FINISH+59!
OCCDT ACCEPT+9~, ACCEPT+10*
ORL ACCEPT+9~
ORN ACCEPT+9~, ACCEPT+11*, ACCEPT+12*, ACCEPT+13*, ACCEPT+14
>> PS( ZZ+20*
>> PSGAT START+7*, FINISH+60*, FINISH+62, FINISH+63, FINISH+72, FINISH+113, FINISH+127
>> PSGCANFL ACCEPT+6*, BYPASS+1*
>> PSGCLZ FINISH+118
>> PSGDO START+5*, FINISH+107, FINISH+108
PSGDRG FINISH+34~*, FINISH+35
>> PSGDT START+2*
PSGDUR FINISH+77, ABORTACC+2!
>> PSGEB START+20
PSGEDTOI FINISH+2~!, FINISH+141, FINISH+142, DONE+1!
PSGEFN START+2!
>> PSGFD ZZ+11*, ZZ+14*, ZZ+16, FINISH+8, FINISH+10*, FINISH+80*, FINISH+124, FINISH+125*, ABORTACC+4*
>> PSGFDN ZZ+16*, FINISH+80*, FINISH+125*
PSGFDX START+2!
>> PSGLI START+27, ZZZZ+11, ZZ+17
>> PSGLIN ZZ+17*
>> PSGNEDFD START+28*, START+29*
>> PSGNEFD ZZ+11, FINISH+10, ABORTACC+4
>> PSGNESD ZZ*, ZZ+7*, ABORTACC+4
PSGNSTAT FINISH+63*, DONE+1!
>> PSGODO FINISH+107, FINISH+108
>> PSGOEA ZZ+10*, ZZ+12*
PSGOEAO ZZ+9~, ZZ+10*, ZZ+12
>> PSGOEAV FINISH+140*
>> PSGOEE FINISH+81*, FINISH+88*, FINISH+89*, FINISH+90, FINISH+92*, FINISH+93*, FINISH+94*
PSGOEEF START+2!*, START+20*, FINISH+81*, FINISH+89*, FINISH+92*, FINISH+93*, FINISH+94*, ABORTACC+4!
PSGOEEF( START+20*, FINISH+81*, FINISH+89*, FINISH+92*, FINISH+93*, FINISH+94*
PSGOEEF(109 FINISH+107*
PSGOEEF(26 FINISH+111*, ACCEPT+5*
PSGOEEF(39 FINISH+113*
>> PSGOEEG START+2*
>> PSGOEENO FINISH+103*, FINISH+108*, FINISH+145*, FINISH+146, ACCEPT+5*, ACCEPT+6
PSGOEER FINISH+2!, FINISH+142, DONE+1!
>> PSGOEF START+2*, ACCEPT+6
PSGOEF39 FINISH+2~, FINISH+72*, FINISH+79*, FINISH+88
>> PSGOEFF FINISH+70*, FINISH+71, FINISH+72*, FINISH+79*, FINISH+86, FINISH+87, FINISH+88*, FINISH+92, FINISH+93, FINISH+95
FINISH+96, FINISH+98, FINISH+100
PSGOES START+2!*, FINISH+59~, ACCEPT+6!
>> PSGOFD ZZ+16*
PSGONF START+2!
>> PSGOPR START+20
>> PSGORD START+1, START+3, START+5, START+6, START+7, START+9, START+13, START+21, START+22, START+23
ZZ+4, ZZ+5, ZZ+7, ZZ+10, ZZ+11, ZZ+12, ZZ+13, FINISH+4, FINISH+7, FINISH+8
FINISH+9, FINISH+10, FINISH+11, FINISH+32, FINISH+53, FINISH+56, FINISH+58, FINISH+60, FINISH+62, FINISH+67
FINISH+68, FINISH+90, FINISH+100, FINISH+102, FINISH+121, FINISH+135, FINISH+144, ACCEPT+10, ACCEPT+11, ACCEPT+12
ACCEPT+13, ABORTACC+4
>> PSGORQF FINISH+56*, FINISH+98, FINISH+117, FINISH+120*, FINISH+142, FINISH+145
>> PSGOSCH FINISH+55, FINISH+58, FINISH+59, FINISH+61*, FINISH+62, FINISH+65, FINISH+69*, FINISH+70
>> PSGP FINISH+35, FINISH+90, ABORTACC+4
>> PSGPD START+5*, START+28, ZZ+19, FINISH+95
>> PSGPDN START+5*
>> PSGPDRG START+5*, FINISH+74
>> PSGPDRGN START+5*
PSGRDTX START+2!, FINISH+4!, FINISH+118
PSGRDTX( ZZ+11, FINISH+4, FINISH+7, FINISH+8, FINISH+9, FINISH+10
PSGRF FINISH+74*, FINISH+77, FINISH+79, ABORTACC+2!
PSGRMV FINISH+77, ABORTACC+2!
PSGRMVT FINISH+90, ABORTACC+2!
PSGRNSD ZZ+13~*, ZZ+14
PSGRSD ZZ+7!, ACCEPT+6!
PSGRSDN ACCEPT+6!
>> PSGS0XT FINISH+58, FINISH+67, FINISH+69, FINISH+72, FINISH+113, FINISH+128
PSGS0Y START+7, START+22, ZZFINISH+59~, FINISH+60, FINISH+62, FINISH+64, FINISH+113
PSGSCH START+6, ZZFINISH+57*, FINISH+59~, FINISH+76, FINISH+129, ACCEPT+5*
>> PSGSD START+22*, START+24*, START+25*, START+26*, START+27*, ZZ*, ZZ+7*, ZZ+16, FINISH+7, FINISH+9*
FINISH+123, ABORTACC+4*
>> PSGSDN ZZ+16*
>> PSGSI FINISH+68*
>> PSGST START+29, FINISH+78, FINISH+100, FINISH+113, FINISH+127
>> PSGSTAT FINISH+33, FINISH+103*
PSGTMPST FINISH+78~*, FINISH+79, FINISH+80
PSGUDFIN ACCEPT+1~*
PSGWALLO ZZ+9~, ZZ+10*, ZZ+12
PSJACEPT FINISH+102!, FINISH+111!, FINISH+113!, FINISH+117, FINISH+131!, FINISH+134, FINISH+139*, FINISH+145*, FINISH+146*, ACCEPT+2
ACCEPT+3
>> PSJAGYSV ACCEPT+15*
>> PSJCOI START+5
PSJCOM FINISH+11~*, FINISH+27, FINISH+28, FINISH+39
PSJCT1 FINISH+26*, FINISH+27, FINISH+28*, FINISH+39, ABORTACC+3!
PSJCT1A FINISH+27*, FINISH+28*, ABORTACC+3!
PSJDAOC ACCEPT+9~, ACCEPT+10*
PSJDD FINISH+143~*, FINISH+144
PSJDOSE START+8~, START+14*, START+15*, START+17, START+18, FINISH+104~
PSJDOX START+8~, START+10, START+11, FINISH+104~
PSJDOX( START+16, START+17, START+18, START+19
PSJDOX(1 START+11, START+12
PSJDSFLG FINISH+104~, FINISH+106
>> PSJLMFIN FINISH+101*
>> PSJLMP2 FINISH+102*
>> PSJNOO FINISH+146*, ACCEPT+5*
PSJNSS FINISH+2!, FINISH+61!, FINISH+69!, FINISH+111!
>> PSJOCDSC("CX" FINISH+7*, FINISH+8*
PSJOLDNM FINISH+3~, FINISH+56
PSJOLDNM("NEW_SCHD" FINISH+57, FINISH+59, FINISH+65, ACCEPT+5
PSJOLDNM("ORD_SCHD" FINISH+55*
PSJOVR DONE+2!, ABORTACC+3!
PSJOVR("CONJ" FINISH+49
PSJOVRLP FINISH+40, ABORTACC+3!
PSJPIECE START+8~, START+12*, START+14, START+15, START+17, START+18
>> PSJPROT FINISH+53
PSJRMABT FINISH+3~, FINISH+77*, FINISH+81*, FINISH+82
>> PSJRNF FINISH+135, FINISH+139, FINISH+140
>> PSJSYSP START+19, ZZ+18, ZZ+20, FINISH+68, FINISH+70
>> PSJSYSP0 FINISH+103
>> PSJTUD START+5, FINISH+53, FINISH+59, FINISH+69
PSJUNIT START+8~, START+15*, START+18
PSJX START+8~, START+16, START+19*, START+23~*, START+24, START+25, START+26
>> PSOSAND FINISH+121*
>> Q FINISH+87*
Q1 DONE+1!
Q2 DONE+1!
RET ACCEPT+9~
SCHARR FINISH+76~
SCHARR("DILIST" FINISH+77, FINISH+78
U START+5, START+6, START+12, START+14, START+15, START+17, START+18, START+19, START+22, START+23
START+24, START+25, START+26, START+29, ZZ+4, ZZ+7, ZZ+10, ZZ+12, ZZ+16, ZZ+17
ZZ+19, ZZ+20, FINISH+7, FINISH+8, FINISH+34, FINISH+56, FINISH+68, FINISH+103, ACCEPT+11, ACCEPT+12
ACCEPT+13
>> VALMBCK FINISH+56*, ACCEPT+2*, ABORTACC+4*
>> VALMBG FINISH+97*
>> VALMSG FINISH+106*, FINISH+108*
X START+6*, START+7, START+8~, START+9*, START+10, START+13*, START+14, START+15, START+16*, START+17
START+18, START+19, START+20*, ZZ+7*, ZZ+19*, FINISH+38*, FINISH+41~, FINISH+44*, FINISH+45, FINISH+46
FINISH+49, FINISH+59*, FINISH+60, FINISH+71*, FINISH+72*, FINISH+79*, FINISH+86*, FINISH+87, FINISH+121, FINISH+124
FINISH+125
X1 FINISH+41~, FINISH+44*, FINISH+45*, FINISH+46, FINISH+47, FINISH+123*
>> X2 FINISH+123*
>> Y START+20*, FINISH+81*, FINISH+87*, FINISH+89*, FINISH+92*, FINISH+93*, FINISH+94*, FINISH+138*, FINISH+139, FINISH+140
Z ACCEPT+9~
ZZND FINISH+2!, FINISH+67, FINISH+130, DONE+1!

Marked Items

Name Field # of Occurrence
$T(32 FINISH+93
$T(35 FINISH+81
$T(38 FINISH+92, FINISH+94
$T(39 FINISH+89
$T(@(3) START+20
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 |  Local Variables |  Marked Items  | All