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

Package: Inpatient Medications

Routine: PSGOE41


Information

PSGOE41 ;BIR/CML3 - REGULAR ORDER ENTRY (CONT.) ;May 27, 2020@15:39:55

Source Information

Source file <PSGOE41.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Inpatient Medications 11 ($$ENDL,EN1,ENPREV)^PSGDL  ($$ENDD,$$ENDTC)^PSGMI  (,ENFD)^PSGNE3  1^PSGOE42  (DURHLP,ENFF,ENHLP)^PSGOEM  ($$ODD,ENCHK)^PSGS0  $$EDITSI^PSJBCMA5  ($$ISCLOZ,CLOZPAT)^PSJCLOZ  
$$ENOSD^PSJDCU  $$ENQ^PSJORP2  ($$ENBCMA,EFDNEW)^PSJUTL  
VA FileMan 7 ^%DT  (,C)^%DTC  EN^DDIOL  $$FIND1^DIC  YN^DICN  $$GET1^DIQ  ^DIR  
Kernel 1 $$FMADD^XLFDT  
List Manager 1 WAIT^VALM1  
Mental Health 1 $$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 PSGOE3  PSGOE4  

Entry Points

Name Comments DBIA/ICR reference
39 ; admin times
8 ; special instructions
10 ; start date/time
A10 ; start date/time edit
O25 ;
25 ; stop date
A25 ;
A255 ;
W25 ;
NEXT ;
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
TIMES
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
WRITE ;
ASK ;

External References

Name Field # of Occurrence
^%DT A10+7, A25+6
^%DTC A25+8
C^%DTC A10+7, A10+9, 25+16, 25+25
EN^DDIOL 25+47, PSGDUR+42
$$FIND1^DIC 25+29, 25+30
YN^DICN DEL+1
$$GET1^DIQ 25+18, 25+28, 25+30, NEXT+1, PSGDUR+9, PSGDUR+15, VERTIMES+1
^DIR ASK+2
$$ENDL^PSGDL A25+5
EN1^PSGDL A25+5
ENPREV^PSGDL A10+4
$$ENDD^PSGMI 10+1, 10+3, A10+4, A10+11, O25+1, 25+11, 25+12, 25+16, 25+19, 25+25
A25+16, A255+2
$$ENDTC^PSGMI A25+16
^PSGNE3 10+2
ENFD^PSGNE3 25+2
1^PSGOE42 NEXT+2
DURHLP^PSGOEM PSGDUR+17
ENFF^PSGOEM FF+1
ENHLP^PSGOEM 39+6, 39+10, 8+3, 8+5, A10+5, A10+7, A25+4
$$ODD^PSGS0 39+2
ENCHK^PSGS0 39+14
$$EDITSI^PSJBCMA5 8+1
$$ISCLOZ^PSJCLOZ 25+5
CLOZPAT^PSJCLOZ 25+21
$$ENOSD^PSJDCU O25+1
$$ENQ^PSJORP2 DOSE+5
$$ENBCMA^PSJUTL 8+7
EFDNEW^PSJUTL W25+6
WAIT^VALM1 A10+10
$$FMADD^XLFDT 25+11, 25+19
$$OVERRIDE^YSCLTST2 25+13

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 39+3
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES: "_$S(PSGS0Y:PSGS0Y_"// ",1:"")
  • Line Location: 39+3
Function Call: WRITE
  • Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Line Location: 39+10
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 39+14
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A10+2
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_PSGSD_"// "
  • Line Location: A10+2
Function Call: WRITE
  • Prompt: " "_PSGSD
  • Line Location: A10+3
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+4
Function Call: WRITE
  • Prompt: " ",PSGSD
  • Line Location: A10+4
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+10
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25+1
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S(PSGFD]"":PSGFD_"// ",1:"")
  • Line Location: A25+1
Function Call: WRITE
  • Prompt: " "_PSGFD
  • Line Location: A25+2
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25+5
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! INVALID STOP DATE OR PRIOR TO START DATE! ***",!
  • Line Location: A25+6
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** STOP DATE cannot be more than 367 days from START DATE ***",!
  • Line Location: A25+9
Function Call: WRITE
  • Prompt: !!,"*** STOP DATE/TIME NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A25+15
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+5
Function Call: WRITE
  • Prompt: $C(7)," ...order not entered..."
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"This order requires at least one administration time."
  • Line Location: TIMES+1
Function Call: WRITE
  • Prompt: !,"This is a One Time Order - only one admin time is permitted."
  • Line Location: TIMES+4
Function Call: WRITE
  • Prompt: !,"This order requires one admin time."
  • Line Location: TIMES+9
Function Call: WRITE
  • Prompt: !,"The number of admin times entered is greater than indicated by the schedule."
  • Line Location: TIMES+10
Function Call: WRITE
  • Prompt: !,"The number of admin times entered is fewer than indicated by the schedule."
  • Line Location: TIMES+11
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+21
Function Call: WRITE
  • Prompt: !,"ENTRY IS REQUIRED"
  • Line Location: PSGDUR+24
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:
    • 25+29
    • 25+30
Routine Call
  • DIR
  • Line Location:
    • ASK+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.1 - [#51.1] TIMES+3
^PS(53.45 - [#53.45] 8+6
^PS(59.6 - [#59.6] 25+9, 25+10

Label References

Name Line Occurrences
10 8+4
39 39+6, 39+7, 39+8, 39+9, 39+12, 39+14, ASK+3
8 39+1, 39+2, 39+5, 39+13, 8+2, 8+3, 8+4, 8+5, PSGDUR+14
@( 39+8, 8+2, A10+6, A25+3, PSGDUR+18
A10 10+1, A10+4, A10+6, A10+7
A25 A25+3, A25+5, A25+6, A25+9, A25+11, A255+1, W25+2
ASK WRITE+5
DEL 39+7, 8+4, PSGDUR+15
DONE 39+3, 39+12, A10+2, A25+1, ASK+2
DOSE W25+2
FF 39+8, 8+2, A10+6, A25+3, PSGDUR+18
O25 A10+3, A10+4
PSGDUR 39+2, 39+12, PSGDUR+15, PSGDUR+17, PSGDUR+18, PSGDUR+19, PSGDUR+24
TIMES 39+12
VERTIMES W25+7
W25 A25+2
WRITE VERTIMES+10, VERTIMES+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 39+7, 8+4, DEL+1*, PSGDUR+15
%DT A10+7!*, A25+6!*
%DT(0 A10+7*, A25+6*
>> ANQDATA 25+15
CLOZFLG 25+4~, 25+5*, A25+11
CLOZPAT 25+4~, 25+22, 25+24, A25+12
DIR A10+10!
DIR("A" ASK+2*
DIR(0 ASK+2*
DTIME 39+3, A10+2, A25+1, PSGDUR+13
>> DTOUT ASK+2
>> DUOUT ASK+2
F DONE+2!, PSGDUR+32~
F( PSGDUR+36*, PSGDUR+37
F0 DONE+2!
F1 DONE+2!
F3 DONE+2!
>> FB FF+1*
H TIMES+2~, TIMES+3*
I TIMES+2~, TIMES+3*, TIMES+6, TIMES+7
IEN 25+9~*, 25+10
INFO DOSE+2~, DOSE+3*, DOSE+5
L VERTIMES+5~, VERTIMES+6*, VERTIMES+8, VERTIMES+9, VERTIMES+14~, VERTIMES+16*, VERTIMES+19, VERTIMES+21
MAX TIMES+2~, TIMES+7*, TIMES+8, TIMES+10, TIMES+11
MSG 25+28~, 25+47
MSG(1 25+33*, 25+37*, 25+43*
MSG(2 25+34*, 25+38*, 25+44*
MSG(3 25+35*, 25+39*, 25+45*
MSG(4 25+40*
MSG(5 25+41*
P PSGDUR+32~, PSGDUR+35*, PSGDUR+36, PSGDUR+37, VERTIMES+14~, VERTIMES+15*, VERTIMES+16, VERTIMES+18, VERTIMES+19, VERTIMES+20
VERTIMES+21, WRITE+4*, ASK+4~*, ASK+5*, ASK+6
PSG DONE+2!
PSGAARR NEXT+2, VERTIMES+2~, VERTIMES+6*, VERTIMES+13*, WRITE+4
PSGAARR( VERTIMES+20*, VERTIMES+21*, WRITE+4
PSGAARR(1 VERTIMES+9*
PSGADT PSGDUR+33*, PSGDUR+34, PSGDUR+36, VERTIMES+2~, VERTIMES+6*, VERTIMES+7, VERTIMES+9, VERTIMES+16*, VERTIMES+17*, VERTIMES+18
VERTIMES+20
PSGARR PSGDUR+32~, PSGDUR+34*, PSGDUR+35
PSGARR( PSGDUR+36*
>> PSGAT 39+5*, 39+13*, 39+15*, PSGDUR+14*, PSGDUR+33*, VERTIMES+4, VERTIMES+13, VERTIMES+16
PSGCFLG 25+4~, 25+13*, 25+14*, 25+26*, A25+11*, A25+14*, A255+1*
PSGCLOZ DONE+2!
PSGDERR PSGDUR+11~*, PSGDUR+21*, PSGDUR+23
>> PSGDL A25+5*
PSGDLS A25+5!
>> PSGDRG 25+5, DOSE+3
>> PSGDT A10+7, A10+9, 25+2, W25+5
PSGDUR 39+3*, W25+7, PSGDUR+11, PSGDUR+15*, PSGDUR+20*, PSGDUR+21!, PSGDUR+33, PSGDUR+40*, PSGDUR+43, VERTIMES+4
VERTIMES+7, VERTIMES+18, ASK+2!, ASK+3*
PSGEMRG 25+4~, 25+20*, 25+22, A25+13, A255+3!, DONE+2!
PSGF2 39+8*, 8+2*, A10+5*, A25+3*, DONE+2!, FF+1, PSGDUR+12*
>> PSGFD A10+11*, O25+1*, 25+2*, 25+11*, 25+12*, 25+16*, 25+17, 25+19*, 25+20, 25+25*
25+26, 25+32*, A25+1, A25+2, A25+16*, A255+2*
>> PSGFDN A25+16*
>> PSGFDX A25+16*
>> PSGFOK(10 O25+1*
>> PSGFOK(25 A25+2*, A255+2*
PSGFOK(39 39+7*, 39+13*, 39+15*, PSGDUR+13!, PSGDUR+15*
>> PSGFOK(8 8+4*, 8+7*
PSGIDF PSGDUR+11~*, PSGDUR+19, PSGDUR+31
>> PSGNEDFD 39+1, O25+1
>> PSGNEFD A10+11*, O25+1*, 25+2, 25+11*, 25+12*, 25+16*, 25+17, 25+19*, 25+20, 25+25*
25+26, 25+32*, A25+2, A25+14, A25+16*, A255+2*, W25+2, W25+5, DOSE+3
>> PSGNEFDO 25+2
>> PSGNEFDOLD 25+17*, 25+20*, 25+26*
>> PSGNESD 10+1*, 10+3, A10+3, A10+4*, A10+11*, O25+1, 25+11, 25+16, 25+19, 25+24
A25+6, A25+8, DOSE+3, VERTIMES+4, VERTIMES+6
>> PSGNESDO 10+1*, 10+3*
>> PSGNOHI 39+4*
>> PSGOE3 8+4, 8+8, 25+1, PSGDUR+43
>> PSGOEE ASK+2*
>> PSGOLDED 25+17*, 25+20*, 25+26*
>> PSGORD 8+1, PSGDUR+15
>> PSGOROE1 39+3*, A10+2*, A25+1*, W25+7, DONE+1, PSGDUR+13*
>> PSGOVRD 25+13*
PSGP 8+1, O25+1, 25+13, 25+18, DOSE+4~*, DOSE+5
>> PSGPDRG 25+28, NEXT+1, PSGDUR+9, VERTIMES+1
PSGRARR VERTIMES+2~, VERTIMES+6*, VERTIMES+13*, VERTIMES+15
PSGRARR( VERTIMES+18*, VERTIMES+19*, WRITE+4, ASK+4, ASK+5, ASK+6
PSGRARR(1 VERTIMES+7*, VERTIMES+8*
>> PSGRF 25+28*, 25+29, 25+32, 25+33, 25+37, 25+43, NEXT+1*, PSGDUR+9*, PSGDUR+15, PSGDUR+17
PSGDUR+24, PSGDUR+25, VERTIMES+1*
PSGRMV PSGDUR+14*, PSGDUR+15*, PSGDUR+19!, PSGDUR+20*, PSGDUR+21, PSGDUR+29*
>> PSGRMVT PSGDUR+15*, ASK+4*, ASK+6*
>> PSGS0XT 39+2, 39+5, 39+9, 39+12, 39+13, TIMES+1, PSGDUR+10, PSGDUR+14, PSGDUR+20, VERTIMES+4
>> PSGS0Y 39+3, 39+4, 39+5*, 39+7*, 39+13*, 39+15*, DOSE+3, PSGDUR+15*, PSGDUR+33, VERTIMES+4
VERTIMES+13, VERTIMES+16
>> PSGSCH 39+5, 25+29, 25+30, A25+5, TIMES+3, DOSE+3, PSGDUR+11, PSGDUR+14
>> PSGSD 10+1*, 10+3*, A10+2, A10+3, A10+4*, A10+11*
>> PSGSDEDT A10+1*
>> PSGSI 8+1*, 8+3, 8+4*, 8+6*, 8+7*
>> PSGST 39+9, 25+8, 25+28, 25+30*, TIMES+4, TIMES+5, DOSE+1, DOSE+3, PSGDUR+9, VERTIMES+1
PSGTDTD 25+4~, 25+17*, 25+22, A25+13, A255+3!
PSGTMPST 25+28~*, 25+30, 25+32
>> PSJCLAPP 10+1
>> PSJPWD 25+8, 25+9
>> PSJSYSP 8+6
>> PSJSYSW0 O25+1
RP PSGDUR+11~*, PSGDUR+13*, PSGDUR+14, PSGDUR+15, PSGDUR+16*, PSGDUR+17, PSGDUR+18, PSGDUR+19, PSGDUR+20, PSGDUR+21*
PSGDUR+24*, PSGDUR+25, PSGDUR+29*, PSGDUR+31, PSGDUR+37, PSGDUR+40, PSGDUR+41
SDT DONE+2!
TMPX A10+7~*
U 25+6, 25+10, FF+1, DOSE+3, PSGDUR+37, PSGDUR+42, VERTIMES+6
WMSG PSGDUR+11~, PSGDUR+37*, PSGDUR+42
WMSG(1 PSGDUR+37*, PSGDUR+42
WRDPDYS 25+4~, 25+6~*, 25+10*, 25+11
X 39+3*, 39+4*, 39+5, 39+6, 39+7, 39+8, 39+9, 39+10*, 39+12, 39+13
39+14, 39+15, 8+2, 8+3*, 8+4, 8+5, A10+2*, A10+3, A10+4, A10+5*
A10+6, A10+7*, A10+10, 25+12, 25+16~, 25+19~*, 25+23~, 25+25, A25+1*, A25+2
A25+3, A25+4*, A25+5, A25+9, TIMES+1!, TIMES+4!, TIMES+9!, TIMES+10!, TIMES+11, DOSE+2~
PSGDUR+13*, PSGDUR+33, ASK+3!
X1 A10+7*, A10+9*, 25+16~*, 25+23~, 25+24*, A25+8*
X2 A10+7*, A10+9*, 25+16~*, 25+23~, 25+24*, A25+8*, A25+12~*, A25+13*, A25+15
X3 25+16~*
Y 39+8, 8+2, A10+6, A10+7, A10+10, A10+11, A25+3, A25+6, A25+8, A25+14
A25+16, A255+2, DONE+1!, FF+1*, PSGDUR+18, ASK+1~, ASK+3
Z W25+1~, W25+2, DOSE+3*, DOSE+5*
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