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

Package: Inpatient Medications

Routine: PSGOE81


Information

PSGOE81 ;BIR/CML3 - NON-VERIFIED ORDER EDIT (CONT.) ;12 June 2019 09:31:53

Source Information

Source file <PSGOE81.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Inpatient Medications 11 ($$ENDL,ENE,ENPREV)^PSGDL  ($$ENDD,$$ENDTC,$$ENDTC2)^PSGMI  ENFF^PSGOE82  (DURHLP,ENFF,ENHLP)^PSGOEM  ($$ODD,$$PRNOK,ENCHK)^PSGS0  ($$DIFFSI,$$EDITSI)^PSJBCMA5  ($$ISCLOZ,CLOZPAT)^PSJCLOZ  ($$DURMIN,$$GETDUR)^PSJLIVMD  
$$LASTREN^PSJLMPRI  $$ENQ^PSJORP2  ($$ENBCMA,EFDNV)^PSJUTL  
VA FileMan 7 ^%DT  (,C)^%DTC  EN^DDIOL  $$FIND1^DIC  YN^DICN  $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$HTFM)^XLFDT  
List Manager 1 (PAUSE,WAIT)^VALM1  

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

Package Total Caller Graph
Inpatient Medications 3 PSGOE8  PSJCLOR4  PSJUTL  

Entry Points

Name Comments DBIA/ICR reference
39 ; admin times
A39 ;*315 next 2 lines
8 ; special instructions
A8 ; special instructions
10 ; start date/time edit
A10 ; start date/time edit
25 ; stop date
A25 ;
A255
W25 ;
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
WRITE ;
ASK ;

External References

Name Field # of Occurrence
^%DT A10+13, A25+37
^%DTC A10+19, A25+39, A25+47, A255+5
C^%DTC A10+12, A10+17, A25+51
EN^DDIOL A25+27, W25+5, TIMES+1, TIMES+4, TIMES+8, TIMES+9, TIMES+10, PSGDUR+43
$$FIND1^DIC A25+9, A25+10
YN^DICN DEL+1
$$GET1^DIQ A10+24, A25+8, A25+10, A25+45, DONE+6, PSGDUR+9, PSGDUR+16, VERTIMES+1
^DIR ASK+2
$$ENDL^PSGDL A25+36
ENE^PSGDL A25+36
ENPREV^PSGDL A10+7
$$ENDD^PSGMI A10+8, A10+32, A10+35, A25+42, A25+52, A255+10
$$ENDTC^PSGMI A10+8, A255+10
$$ENDTC2^PSGMI A10+32, A10+35, A25+42
ENFF^PSGOE82 A39+5, A10+11, A25+34
DURHLP^PSGOEM PSGDUR+18
ENFF^PSGOEM FF+1
ENHLP^PSGOEM A39+6, A39+8, A10+10, A10+13, A25+35
$$ODD^PSGS0 A39+2, A39+10
$$PRNOK^PSGS0 A39+1, A39+10, TIMES+1
ENCHK^PSGS0 A39+15
$$DIFFSI^PSJBCMA5 A8+1
$$EDITSI^PSJBCMA5 A8+1
$$ISCLOZ^PSJCLOZ A10+20, A10+21, A25+3, A25+4
CLOZPAT^PSJCLOZ A10+28, A25+5
$$DURMIN^PSJLIVMD A10+33
$$GETDUR^PSJLIVMD A10+33
$$LASTREN^PSJLMPRI A10+3
$$ENQ^PSJORP2 DOSE+5
$$ENBCMA^PSJUTL A8+3
EFDNV^PSJUTL DONE+2
PAUSE^VALM1 A10+4
WAIT^VALM1 A10+18
$$FMADD^XLFDT A10+35
$$HTFM^XLFDT A10+24, A25+46

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A39+3
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES: "_$S(PSGAT:PSGAT_"// ",1:"")
  • Line Location: A39+3
Function Call: WRITE
  • Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Line Location: A39+8
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A39+15
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: !!,$C(7),"Start date/time should not be entered for more than 7 days after the",!,"order's LOGIN DATE.",!
  • Line Location: A10+18
Function Call: WRITE
  • Prompt: !!,"*** SUPPLY PERIOD NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A10+30
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A25+32
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A25+32
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25+36
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! INVALID STOP DATE OR PRIOR TO START DATE! ***",!
  • Line Location: A25+37
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** STOP DATE cannot be more than 367 days from START DATE ***",!
  • Line Location: A25+40
Function Call: WRITE
  • Prompt: !!,"*** STOP DATE/TIME NOT TO EXCEED "_X2_" DAYS! ***",!
  • Line Location: A255+6
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+6
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
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:
    • A25+9
    • A25+10
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] A8+2
^XTMP("PSJ4D-" A10+24, A25+46

Label References

Name Line Occurrences
25 A39+13
8 PSGDUR+15
@( A39+5, A10+11, A25+34, DONE+3, PSGDUR+19
A10 A10+7, A10+11, A10+13, A10+14, A10+25, A10+27
A25 A25+34, A25+36, A25+37, A25+40, A25+45, A255W25+2
A39 A39+5, A39+6, A39+7, A39+9, A39+10, A39+15, ASK+3
ASK WRITE+5
DEL A39+9, PSGDUR+16
DONE A39+1, A39+2, A39+3, A39+10, A39+11, A39+17, A8+1, A8+3, A10+5, A10+6
A10+7, A10+36, A25+32, ASK+2
DOSE W25+2
FF PSGDUR+19
PSGDUR A39+2, A39+10, PSGDUR+16, PSGDUR+18, PSGDUR+19, PSGDUR+20, PSGDUR+25
TIMES A39+10
VERTIMES DONE+4
WRITE VERTIMES+10, VERTIMES+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A39+9, DEL+1*, PSGDUR+16
%DT A10+12!*, A10+13!, A25+37!*
%DT(0 A10+12*, A25+37*
>> ANQDATA A10+29, A255+3
>> BACK 39+2*, 8+1*, 10+1*, 25+1*, DONE+3
CLOZFLG A10+19~, A10+20*, A10+21*, A10+25, A10+27, A25+2~, A25+3*, A25+4*, A25+5, A25+6
A25+45, A255
CLOZPAT A10+28~, A10+29, A25+2~, A25+5~, A255+3
>> DFN A10+24, A25+45, A25+46
DIFF A10+19~*, A10+25, A10+30
DIR A10+18!
DIR("A" ASK+2*
DIR(0 ASK+2*
DTIME A39+3, A10+5, A25+32, PSGDUR+13
>> DTOUT ASK+2
>> DUOUT ASK+2
DUR A10+2~, A10+33*
DURMIN A10+2~, A10+33*, A10+35
F PSGDUR+33~
F( PSGDUR+37*, PSGDUR+38
>> FB FF+1*
H TIMES+2~, TIMES+3*
I TIMES+2~, TIMES+3*, TIMES+6, TIMES+7
INFO DOSE+1~, DOSE+2*, 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+9, TIMES+10
MSG 39+2*, 8+1*, 10+1*, A10+15*, 25+1*, A25+8~, A25+27, W25+1~, W25+5, W25+6*
MSG(1 A25+13*, A25+17*, A25+23*, W25+3*
MSG(2 A25+14*, A25+18*, A25+24*, W25+4*
MSG(3 A25+15*, A25+19*, A25+25*
MSG(4 A25+20*
MSG(5 A25+21*
ORIG 39+2*, A39+3, DONE+5!
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+4~*, ASK+5*, ASK+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
PSGARR PSGDUR+33~, PSGDUR+35*, PSGDUR+36
PSGARR( PSGDUR+37*
>> PSGAT 39+2, A39+3*, A39+4, A39+9*, A39+12*, A39+16, A39+17*, PSGDUR+15*, PSGDUR+34, VERTIMES+4
VERTIMES+13, VERTIMES+16
PSGBACK A10+19~, A10+23*, A10+27, A10+30*, A255~, A255+6*
PSGCFLG A255+1~*
PSGDERR PSGDUR+11~*, PSGDUR+22*, PSGDUR+24
>> PSGDL A25+36*
PSGDLS A25+36!
PSGDOA 39+1~, 39+2*, PSGDUR+13
PSGDRG A10+21, A25+4, A25+5~*, DOSE+2
>> PSGDT W25+6
PSGDUR 39+2, A39+3*, 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+2!, ASK+3*
PSGEMRG A10+19~, A10+23*, A10+24*, A10+25, A10+27, A25+29~, A25+48*, A255A255+7!
>> PSGF2 39+2*, 8+1*, 10+1*, 25+1*, DONE+3, FF+1, PSGDUR+12*
>> PSGFD A10+14, A10+19, A10+35*, A25+6, A25+12*, A25+30*, A25+31, A25+33, A25+42*, A25+51*
A25+52, A255+10*, W25+6
>> PSGFDN A10+35*, A25+6, A25+12*, A25+30*, A25+31, A25+32, A25+33, A25+42*, A25+52*, A255+10*
PSGFDNOLD A25+6~*, DONE+5!
PSGFDORG A25+30, A25+31~*
PSGFDORX A25+30, A25+31~*
PSGFDX A25+29!, A25+42*, A255+10*
PSGGTF A25+44~*, A25+45, A25+53*
PSGIDF PSGDUR+11~*, PSGDUR+20, PSGDUR+32
>> PSGLI A10+12, A10+17
PSGMRV PSGDUR+20!
>> PSGNEFD A25+42*, A255+10*, W25+2, DOSE+2
PSGNEFDOLD DONE+5!
>> PSGNESD A10+32*, DOSE+2, VERTIMES+4, VERTIMES+6
>> PSGNOHI A39+4*
>> PSGOAT A39+16*
>> PSGOEE A39+3*, A39+4*, A8+1*, A10+5*, A25+32*, DONE+3*, PSGDUR+13*, ASK+2*
>> PSGOEEF( 39+2, 8+1, 10+1, 25+1, DONE+3
>> PSGOEEF(25 A39+13*
>> PSGOEEF(39 A39+13*
PSGOLDED A25+6~*, DONE+5!
>> PSGORD A8+1, A10+3, A10+20, A10+33, A25+3, PSGDUR+16
PSGP A8+1, A10+3, A10+33, DOSE+4~*, DOSE+5
>> PSGPDRG A25+8, DONE+6, 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 A39+13, A25+8*, A25+12, A25+13, A25+17, A25+23, DONE+6*, 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+4*, ASK+6*
PSGRO A39+13~*, W25+7
>> PSGS0XT A39+2, A39+4, A39+7, A39+10, TIMES+1, PSGDUR+10, PSGDUR+15, PSGDUR+21, VERTIMES+4
>> PSGS0Y A39+4, A39+12*, A39+17*, DOSE+2, PSGDUR+16*, PSGDUR+34*, VERTIMES+13, VERTIMES+16
>> PSGSCH A39+1, A39+10, A25+9, A25+10, A25+36, TIMES+1, TIMES+3, DOSE+2, PSGDUR+11, PSGDUR+15
>> PSGSD A10+6, A10+8*, A10+32*, A10+35, A25+37, A25+39, A25+47, A25+51, A255+5, DOSE+2
>> PSGSDEDT A10+1*
>> PSGSDN A10+5, A10+6, A10+8*, A10+9, A10+32*
PSGSDX A10+2!, A10+32*
>> PSGSI A8+1*, A8+2*, A8+3*
>> PSGST A39+1, A39+7, A39+10, A39+11, A39+13, A25+8, A25+10*, TIMES+1, TIMES+4, TIMES+5
DOSE+2, DOSE+3, PSGDUR+9, VERTIMES+1
PSGTMPST A25+8~*, A25+10, A25+12
>> PSJSYSP A8+2
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
TMPFD A10+2~, A10+35*!
TMPX A10+12~*
U A25+5, DOSE+2, PSGDUR+38, PSGDUR+43, VERTIMES+6
WMSG PSGDUR+11~, PSGDUR+38*, PSGDUR+43
WMSG(1 PSGDUR+38*, PSGDUR+43
X A39+3*, A39+4*, A39+5, A39+6, A39+7, A39+8*, A39+9*, A39+10, A39+11, A39+12
A39+15, A39+17, A10+5*, A10+6, A10+7, A10+8, A10+10*, A10+11, A10+12*, A10+18
A10+19, A25+32*, A25+33*, A25+34, A25+35*, A25+36, A25+40, A25+48, A25+49, A25+51
A255+2~, A255+6, TIMES+1!, TIMES+4!, TIMES+8!, TIMES+9!, TIMES+10, DOSE+1~, PSGDUR+13*, PSGDUR+34
ASK+3!
X1 A10+12*, A10+17*, A10+19~*, A25+39*, A25+47~*, A25+51*, A255+2~, A255+4*, A255+5*
X2 A10+12*, A10+17*, A10+19~*, A10+28~, A10+29*, A10+30, A25+39*, A25+47~*, A25+51*, A255+2~
A255+3*, A255+5~*, A255+6
Y A39+5, A10+11, A10+13, A10+14, A10+18, A10+19, A10+32, A25+34, A25+37, A25+39
A25+42, A25+47, A255+4, A255+10, FF+1*, PSGDUR+19, ASK+1~, ASK+3
Z W25+1~, W25+2, DOSE+2*, 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