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  | All
Print Page as PDF
Routine: PSGOE91

Package: Inpatient Medications

Routine: PSGOE91


Information

PSGOE91 ;BIR/CML - ACTIVE ORDER EDIT (CONT.) ;May 03, 2023@17:45

Source Information

Source file <PSGOE91.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Inpatient Medications 11 ($$ENDL,ENE,ENPREV)^PSGDL  ($$ENDD,$$ENDTC2)^PSGMI  ENFF^PSGOE92  (DURHLP,ENFF,ENHLP)^PSGOEM  ($$ODD,$$PRNOK,ENCHK)^PSGS0  ($$DIFFSI,$$EDITSI)^PSJBCMA5  ($$ISCLOZ,$$LASTCHLD,CLOZPAT)^PSJCLOZ  CMPLX^PSJCOM1  
$$COMPLEX^PSJOE  $$ENQ^PSJORP2  $$ENBCMA^PSJUTL  
VA FileMan 7 ^%DT  (,C)^%DTC  EN^DDIOL  $$FIND1^DIC  YN^DICN  $$GET1^DIQ  ^DIR  
Kernel 1 $$HTFM^XLFDT  
List Manager 1 (FULL,PAUSE,WAIT)^VALM1  
Mental Health 1 ($$CL,$$OVERRIDE)^YSCLTST2  

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

Package Total Caller Graph
Inpatient Medications 2 PSGOE9  PSJCLOR4  

Entry Points

Name Comments DBIA/ICR reference
41 ; admin times
A41
8 ; special instructions
A8
10 ; start date/time edit
A10 ; start date/time edit
34 ; stop date
A34 ;
W34 ;Compare to Start Date
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
TIMES ;At least one admin time, not more than interval allows.
DOSE ;Make certain at least one dose is given.
PSGDUR ; Prompt for Removal times if admin times are on 24hr rotations and Site Params are enabled.
; check parameter files for removal criteria quit if removal rotation not enabled (<2)
; if enabled determine type (hard vers soft stop)
VERTIMES ; Redisplay Admin and Removal times *315
WRITE ;
ASK ;

External References

Name Field # of Occurrence
^%DT A10+11, A34+38
^%DTC A10+16, A34+40, A34+50
C^%DTC A10+11, A10+14
EN^DDIOL A34+29, W34+5, TIMES+1, TIMES+5, TIMES+16, TIMES+17, TIMES+18, PSGDUR+43
$$FIND1^DIC A34+11, A34+12
YN^DICN DEL+1
$$GET1^DIQ A8+1, A8+5, A10+20, A34+10, A34+12, A34+45, DONE+5, TIMES+4, PSGDUR+9, VERTIMES+1
^DIR ASK+3
$$ENDL^PSGDL A34+37
ENE^PSGDL A34+37
ENPREV^PSGDL A10+8
$$ENDD^PSGMI A10+8, A10+30, A34+43
$$ENDTC2^PSGMI A10+8, A10+30, A34+43
ENFF^PSGOE92 A41+4, A8+3, A10+10, A34+35
DURHLP^PSGOEM PSGDUR+18
ENFF^PSGOEM FF+1
ENHLP^PSGOEM A41+6, A41+13, A41+14, A10+9, A10+11, A34+36
$$ODD^PSGS0 41+6, A41+8, A41+12
$$PRNOK^PSGS0 41+5, A41+12
ENCHK^PSGS0 A41+14
$$DIFFSI^PSJBCMA5 A8+4
$$EDITSI^PSJBCMA5 A8+4
$$ISCLOZ^PSJCLOZ A10+17, A34+6
$$LASTCHLD^PSJCLOZ A34+3
CLOZPAT^PSJCLOZ A10+24, A34+7
CMPLX^PSJCOM1 A8+2
$$COMPLEX^PSJOE A41, A8, A10+2, A34+3
$$ENQ^PSJORP2 DOSE+5
$$ENBCMA^PSJUTL A8+6
FULL^VALM1 A8+2
PAUSE^VALM1 A41+1, A10+3, A34+4
WAIT^VALM1 A10+15
$$HTFM^XLFDT A10+20
$$CL^YSCLTST2 A10+25, A34+49
$$OVERRIDE^YSCLTST2 A10+26, A34+48

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A41+2
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES: "_$S(PSGAT:PSGAT_"// ",1:"")
  • Line Location: A41+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A41+14
Function Call: WRITE
  • Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order."
  • Line Location: A8+2
Function Call: WRITE
  • Prompt: !!?5,"Start Date/Time may not be edited for active complex orders."
  • Line Location: A10+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A10+5
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_$S($P(PSGSDN,"^")]"":$P(PSGSDN,"^")_"// ",1:"")
  • Line Location: A10+5
Function Call: WRITE
  • Prompt: " "_$P(PSGSDN,"^")
  • Line Location: A10+6
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+7
Function Call: WRITE
  • Prompt: " ",$P(PSGSDN,"^")
  • Line Location: A10+7
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+8
Function Call: WRITE
  • Prompt: " ",$P(PSGSDN,"^")
  • Line Location: A10+8
Function Call: WRITE
  • Prompt: $C(7),!?5,"*** THE START DATE CANNOT BE AFTER THE STOP DATE! ***",!
  • Line Location: A10+12
Function Call: WRITE
  • Prompt: !!,$C(7),"Start date/time should not be entered for more than 7 days after the",!,"order's LOGIN DATE.",!
  • Line Location: A10+15
Function Call: WRITE
  • Prompt: !!,"*** SUPPLY PERIOD NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A10+28
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A34+33
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A34+33
Function Call: WRITE
  • Prompt: " "_$P(PSGFDN,"^")
  • Line Location: A34+34
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A34+37
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! INVALID STOP DATE OR PRIOR TO START DATE! ***",!
  • Line Location: A34+38
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** STOP DATE cannot be more than 367 days from START DATE ***",!
  • Line Location: A34+41
Function Call: WRITE
  • Prompt: !!?13,"*** EMERGENCY SUPPLY NOT TO EXCEED 4 DAYS! ***",!
  • Line Location: A34+56
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W34+6
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES must be entered in a 2 or 4 digit numeric format"
  • Line Location: TIMES+11
Function Call: WRITE
  • Prompt: !,"All ADMIN TIMES must be the same 2 or 4 digit numeric format"
  • Line Location: TIMES+14
Function Call: WRITE
  • Prompt: !,"(i.e. 09-13 or 0900-1300)"
  • Line Location: TIMES+14
Function Call: READ
  • Variable: RP
  • Timeout: DTIME
  • Line Location: PSGDUR+13
Function Call: WRITE
  • Prompt: !,"DURATION OF ADMINISTRATION (HRS): "_$S($G(RP):RP_"// ",1:"")
  • Line Location: PSGDUR+13
Function Call: WRITE
  • Prompt: !,"DURATION OF ADMINISTRATION MATCHES OR EXCEEDS ORDER FREQUENCY"
  • Line Location: PSGDUR+22
Function Call: WRITE
  • Prompt: $C(7),!,"ENTRY IS REQUIRED"
  • Line Location: PSGDUR+25
Function Call: WRITE
  • Prompt: !!,"Verify Admin and removal times",!
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !,"(A)DMINISTRATION -(R)EMOVAL TIMES"
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !,"___________________________________________________________________________",!
  • Line Location: WRITE+3
Routine Call
  • DIC
  • Line Location:
    • A34+11
    • A34+12
Routine Call
  • DIR
  • Line Location:
    • ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(51.1 - [#51.1] FIND1^DIC,  GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
^PS(55 - [#55] GET1^DIQ
55.06 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.1 - [#51.1] TIMES+4
^XTMP("PSJ4D-" A10+20

Label References

Name Line Occurrences
34 A41+10
8 PSGDUR+15
@( A41+4, A8+3, A10+10, A34+35, DONE+3, PSGDUR+19
A10 A10+8, A10+10, A10+11, A10+12, A10+21, A10+23
A34 A34+35, A34+37, A34+38, A34+41, A34+46, W34+2
A41 A41+4, A41+5, A41+7, A41+12, A41+13, A41+14, ASK+4
A8 A8+3
ASK WRITE+5
DEL A41+7, PSGDUR+16
DONE 41+5, 41+6, A41, A41+2, A41+8, A41+12, A41+16, A8+4, A8+6, A10+2
, A10+5, A10+6, A10+8, A10+30, A34+3, A34+33, ASK+3
DOSE W34+2
FF PSGDUR+19
PSGDUR 41+6, A41+12, PSGDUR+16, PSGDUR+18, PSGDUR+19, PSGDUR+20, PSGDUR+25
TIMES A41+12
VERTIMES DONE+4
W34 A34+34
WRITE VERTIMES+10, VERTIMES+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A41+7, DEL+1*, PSGDUR+16
%DT A10+11!*, A34+38!*
%DT(0 A10+11*, A34+38*
>> BACK 41+4*, 8+1*, 10+1*, 34+1*, DONE+3
CHK TIMES+13~, TIMES+14*
CLOZFLG A10+17~*, A10+21, A10+23, A34+6~*, A34+7, A34+46
CLOZPAT A10+24~, A10+27, A34+7~, A34+8, A34+53
>> DFN A10+20, A10+25, A10+26, A34+45, A34+48, A34+49
DIFF A10+16~*, A10+21, A10+28
DIR A10+15!, ASK+2~
DIR("A" ASK+3*
DIR(0 ASK+3*
DTIME A41+2, A10+5, A34+33, PSGDUR+13
>> DTOUT ASK+3
>> DUOUT ASK+3
F DONE+6!, PSGDUR+33~
F( PSGDUR+37*, PSGDUR+38
F0 DONE+6!
F1 DONE+6!
F3 DONE+6!
>> FB FF+1*
H TIMES+2~, TIMES+4*
I TIMES+2~, TIMES+4*, TIMES+7, TIMES+15
INFO DOSE+1~, DOSE+2*, DOSE+5
L VERTIMES+5~, VERTIMES+6*, VERTIMES+8, VERTIMES+9, VERTIMES+14~, VERTIMES+16*, VERTIMES+19, VERTIMES+21
LEN TIMES+13~*, TIMES+14
MAX TIMES+2~, TIMES+15*, TIMES+16, TIMES+17, TIMES+18
MSG 41+4*, 8+1*, 10+1*, A10+12*, 34+1*, A34+10~, A34+29, W34+1~, W34+5, W34+6*
MSG(1 A34+15*, A34+19*, A34+25*, W34+3*
MSG(2 A34+16*, A34+20*, A34+26*, W34+4*
MSG(3 A34+17*, A34+21*, A34+27*
MSG(4 A34+22*
MSG(5 A34+23*
ORIG 41+4*, A41+2, DONE+6!
P PSGDUR+33~, PSGDUR+36*, PSGDUR+37, PSGDUR+38, VERTIMES+14~, VERTIMES+15*, VERTIMES+16, VERTIMES+18, VERTIMES+19, VERTIMES+20
, VERTIMES+21, WRITE+4*, ASK+5~*, ASK+6*, ASK+7
PARENT A8+1~*, A8+2
PSG DONE+6!
PSGAARR VERTIMES+2~, VERTIMES+6*, VERTIMES+13*, WRITE+4
PSGAARR( VERTIMES+20*, VERTIMES+21*, WRITE+4
PSGAARR(1 VERTIMES+9*
PSGADT PSGDUR+34*, PSGDUR+35, PSGDUR+37, VERTIMES+2~, VERTIMES+6*, VERTIMES+7, VERTIMES+9, VERTIMES+16*, VERTIMES+17*, VERTIMES+18
, VERTIMES+20
PSGANC A10+24~, A10+25*, A10+26, A34+47~, A34+49*, A34+51
PSGARR PSGDUR+33~, PSGDUR+35*, PSGDUR+36
PSGARR( PSGDUR+37*
>> PSGAT 41+4, A41+2*, A41+3, A41+7*, A41+9*, A41+15, A41+16*, PSGDUR+15*, PSGDUR+34, VERTIMES+4
, VERTIMES+13, VERTIMES+16
PSGBACK A10+16~, A10+19*, A10+23, A10+28*, A34+46~, A34+54*
PSGCFLG A10+24~, A10+25*, A34+47~*
PSGDERR PSGDUR+11~*, PSGDUR+22*, PSGDUR+24
>> PSGDL A34+37*
PSGDLS A34+37!
PSGDOA 41+3~, 41+4*, PSGDUR+13
PSGDRG A34+7~*, DOSE+2
>> PSGDT A10+11, A10+14, W34+6
PSGDUR 41+4, A41+2*, DONE+4, PSGDUR+11, PSGDUR+13*, PSGDUR+14, PSGDUR+16*, PSGDUR+21*, PSGDUR+22!, PSGDUR+34
, PSGDUR+41*, VERTIMES+4, VERTIMES+7, VERTIMES+18, ASK+3!, ASK+4*
PSGEMRG A10+16~, A10+19*, A10+20*, A10+21, A10+23, A34+2~, A34+45*, A34+52, A34+56, A34+58!
PSGF2 41+4*, 8+1*, 10+1*, 34+1*, DONE+3, DONE+6!, FF+1, PSGDUR+12*
>> PSGFD A10+12, A10+16, A34+8, A34+14*, A34+31*, A34+32, A34+34, A34+43*, W34+2, W34+6
, DOSE+2
>> PSGFDN A34+8, A34+14*, A34+31*, A34+32, A34+33, A34+34, A34+43*
PSGFDNOLD A34+8~*
PSGFDORG A34+31, A34+32~*
PSGFDORX A34+31, A34+32~*
PSGFDX A34+2!, A34+43*
>> PSGFOK(8 ASK+4*
PSGIDF PSGDUR+11~*, PSGDUR+20, PSGDUR+32
>> PSGNEFD W34+2, DOSE+2
>> PSGNESD DOSE+2, VERTIMES+4, VERTIMES+6
>> PSGNOHI A41+3*
>> PSGOAT A41+15*
>> PSGOEE A41*, A41+2*, A8+4*, A10+2*, A10+5*, A34+3*, A34+33*, DONE+3*, PSGDUR+13*, ASK+3*
>> PSGOEEF( 41+4, 8+1, 10+1, 34+1, DONE+3
>> PSGOEEF(34 A41+10*
>> PSGOEEF(41 A41+10*
PSGOLDED A34+8~*
>> PSGORD A8, A8+1, A8+2, A8+4
PSGOVRD A34+47~, A34+48*, A34+51
PSGP A41, A8, A8+1, A8+2, A8+4, A10+2, A10+17, A34+3, A34+6, DOSE+4~*
, DOSE+5
>> PSGPDRG A34+10, DONE+5, PSGDUR+9, VERTIMES+1
PSGRARR VERTIMES+2~, VERTIMES+6*, VERTIMES+13*, VERTIMES+15
PSGRARR( VERTIMES+18*, VERTIMES+19*, WRITE+4, ASK+5, ASK+6, ASK+7
PSGRARR(1 VERTIMES+7*, VERTIMES+8*
>> PSGRF A41+10, A34+10*, A34+11, A34+14, A34+15, A34+19, A34+25, DONE+5*, PSGDUR+9*, PSGDUR+16
, PSGDUR+18, PSGDUR+25, PSGDUR+26, VERTIMES+1*
PSGRMV PSGDUR+16*, PSGDUR+20!, PSGDUR+21*, PSGDUR+22, PSGDUR+30*
>> PSGRMVT PSGDUR+15*, PSGDUR+16*, ASK+5*, ASK+7*
PSGRO A41+10~*, W34+7
>> PSGS0XT 41+6, A41+5, A41+6, A41+12, PSGDUR+10, PSGDUR+15, PSGDUR+21, VERTIMES+4
>> PSGS0Y A41+9*, A41+16*, DOSE+2, PSGDUR+16*, PSGDUR+34*, VERTIMES+13, VERTIMES+16
>> PSGSCH 41+5, A41+5, A41+6, A41+12, A34+11, A34+12, A34+37, TIMES+4, DOSE+2, PSGDUR+11
, PSGDUR+15
>> PSGSD A10+6, A10+8*, A10+30*, A34+38, A34+40, A34+50, DOSE+2
>> PSGSDEDT A10+1*
>> PSGSDN A10+5, A10+6, A10+8*, A10+30*
PSGSDX A10+4!, A10+30*
>> PSGSI A8+4*, A8+5*, A8+6*
>> PSGST 41+5, A41+5, A41+8, A41+10, A41+12, A34+10, A34+12*, TIMES+1, TIMES+5, TIMES+6
, DOSE+2, DOSE+3, PSGDUR+9, VERTIMES+1
PSGTMPST A34+10~*, A34+12, A34+14
>> PSJORD A41, A10+2, A10+17, A34+3, A34+6
>> PSJSYSP A8+5
RP PSGDUR+11~*, PSGDUR+13*, PSGDUR+14*, PSGDUR+15, PSGDUR+16, PSGDUR+17*, PSGDUR+18, PSGDUR+19, PSGDUR+20, PSGDUR+21
, PSGDUR+22*, PSGDUR+25*, PSGDUR+26, PSGDUR+30*, PSGDUR+32, PSGDUR+38, PSGDUR+41, PSGDUR+42
SDT DONE+6!
TMPX A10+11~*
TOT TIMES+13~, TIMES+14*
U A8+3, A34+7, DOSE+2, PSGDUR+38, PSGDUR+43, VERTIMES+6
WMSG PSGDUR+11~, PSGDUR+38*, PSGDUR+43
WMSG(1 PSGDUR+38*, PSGDUR+43
X A41+2*, A41+3*, A41+4, A41+5, A41+6*, A41+7*, A41+8, A41+9, A41+12, A41+13
, A41+14*, A41+16, A8+1~, A8+3, A10+5*, A10+6, A10+8, A10+9*, A10+10, A10+11*
, A10+15, A10+16, A34+33*, A34+34, A34+35, A34+36*, A34+37, A34+41, A34+50~, A34+54
, TIMES+1!, TIMES+5!, TIMES+9, TIMES+10, TIMES+11!, TIMES+13, TIMES+14!, TIMES+16!, TIMES+17!, TIMES+18!
, DOSE+1~, PSGDUR+13*, PSGDUR+34, ASK+4!
X1 A10+11*, A10+14*, A10+16~*, A34+40*, A34+50~*
X2 A10+11*, A10+14*, A10+16~*, A10+24~, A10+26*, A10+27*, A10+28, A34+40*, A34+50~*, A34+51*
, A34+52*, A34+53*, A34+54, A34+55, A34+57
Y A41+4, A8+1~, A8+3, A10+10, A10+11, A10+12, A10+15, A10+16, A10+30, A34+35
, A34+38, A34+40, A34+43, A34+50, FF+1*, PSGDUR+19, ASK+2~, ASK+4
Z W34+1~, W34+2, DOSE+2*, DOSE+5*
>> ZZND A41+8
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  | All