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 |  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.) ;10 Mar 99 / 10:55 AM

Source Information

Source file <PSGOE81.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Inpatient Medications 9 ($$ENDL,ENE,ENPREV)^PSGDL  ($$ENDD,$$ENDTC)^PSGMI  ENFF^PSGOE82  (ENFF,ENHLP)^PSGOEM  ($$ODD,ENCHK)^PSGS0  ^PSGSICHK  ($$DURMIN,$$GETDUR)^PSJLIVMD  $$LASTREN^PSJLMPRI  
($$ENBCMA,EFDNV)^PSJUTL  
VA Fileman 4 ^%DT  C^%DTC  YN^DICN  ^DIR  
Kernel 1 $$FMADD^XLFDT  
Registration 1 PAUSE^VALM1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJUTL  

Entry Points

Name Comments DBIA/ICR reference
10 ; start date/time
39 ; admin times
A10 ;
25 ; stop date
A39
DEL ; delete entry
W25
DONE ;
FF ; up-arrow to another field
A8
8 ; special instructions
A25 ;

External References

Name Field # of Occurrence
^%DT A10+9, A25+7
C^%DTC A10+9
YN^DICN DEL+1
^DIR A8
$$ENDL^PSGDL A25+6
ENE^PSGDL A25+6
ENPREV^PSGDL A10+6
$$ENDD^PSGMI A10+6, A10+11, A10+13, A25+7
$$ENDTC^PSGMI A10+6, A10+11, A10+13, A25+7
ENFF^PSGOE82 A39+3, A8+1, A8+9, A10+8, A25+4
ENFF^PSGOEM FF+1
ENHLP^PSGOEM A39+5, A39+7, A39+8, A8+2, A8+10, A8+12, A8+13, A10+7, A10+9, A25+5
$$ODD^PSGS0 A39
ENCHK^PSGS0 A39+8
^PSGSICHK A8+13
$$DURMIN^PSJLIVMD A10+12
$$GETDUR^PSJLIVMD A10+12
$$LASTREN^PSJLMPRI A10+2
$$ENBCMA^PSJUTL A8+5
EFDNV^PSJUTL DONE+2
PAUSE^VALM1 A10+3
$$FMADD^XLFDT A10+13

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A39+1
Function Call: WRITE
  • Prompt: !,"ADMIN TIMES: "_$S(PSGAT:PSGAT_"// ",1:"")
  • Line Location: A39+1
Function Call: WRITE
  • Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Line Location: A39+5
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A39+8
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A8+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A8+7
Function Call: WRITE
  • Prompt: !,"SPECIAL INSTRUCTIONS: "_$S(PSGSI]"":PSGSI_"// ",1:"")
  • Line Location: A8+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A8+10
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A8+13
Function Call: WRITE
  • Prompt: !?5,"Start Date may not be edited at this point. "
  • Line Location: A10+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A10+4
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_$S($P(PSGSDN,"^")]"":$P(PSGSDN,"^")_"// ",1:"")
  • Line Location: A10+4
Function Call: WRITE
  • Prompt: " "_$P(PSGSDN,"^")
  • Line Location: A10+5
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+6
Function Call: WRITE
  • Prompt: " ",$P(PSGSDN,"^")
  • Line Location: A10+6
Function Call: WRITE
  • Prompt: $C(7),!?5,"*** THE START DATE CANNOT BE AFTER THE STOP DATE! ***",!
  • Line Location: A10+10
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A25+2
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"")
  • Line Location: A25+2
Function Call: WRITE
  • Prompt: " "_$P(PSGFDN,"^")
  • Line Location: A25+3
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25+6
Function Call: WRITE
  • Prompt: $C(7),!!?13,"*** WARNING! THE STOP DATE ENTERED IS IN THE PAST! ***",!
  • Line Location: W25+0
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Routine Call
  • DIR
  • Line Location:
    • A8

Label References

Name Line Occurrences
@( A39+3, A8+1, A8+9, A10+8, A25+4, DONE+3
A10 A10+6, A10+8, A10+9, A10+10
A25 A25+4, A25+6, A25+7
A39 A39+3, A39+4, A39+6, A39+7, A39+8
A8 A8+1, A8+2, A8+3, A8+9, A8+10, A8+11, A8+12, A8+13
DEL A39+6, A8+3, A8+11
DONE A39, A39+1, A39+2, A39+6, A39+9, A8, A8+3, A8+4, A8+5, A8+7
, A8+8, A8+11, A8+14, A10+4, A10+5, A10+6, A10+14, A25+2
W25 A25+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A39+6, A8+3, A8+11, DEL+1*
%DT A10+9!*, A25+7!*
%DT(0 A10+9*, A25+7*
>> BACK 39+1*, 8+1*, 10+1*, 25+1*, DONE+3
DIR A8~
DIR("??" A8*
DIR("A" A8*
DIR("B" A8*
DIR(0 A8*
DTIME A39+1, A8+7, A10+4, A25+2
>> DTOUT A8
>> DUOUT A8
DUR A10+1~, A10+12*
DURMIN A10+1~, A10+12*, A10+13
>> FB FF+1*
>> MSG 39+1*, 8+1*, 10+1*, A10+10*, 25+1*, W25*
>> PSGAT A39+1, A39+6*, A39+9*
>> PSGDL A25+6*
PSGDLS A25+6!
>> PSGDT W25
>> PSGF2 39+1*, 8+1*, 10+1*, 25+1*, DONE+3, FF+1
>> PSGFD A10+10, A10+13*, A25+3, A25+7*, W25
>> PSGFDN A10+13*, A25+2, A25+3, A25+7*
PSGFDX A25+1!, A25+7*
>> PSGLI A10+9
>> PSGNEFD A25+7*
>> PSGNESD A10+11*
>> PSGOEE A39+1*, A39+2*, A8*, A8+7*, A10+4*, A25+2*, DONE+3*
>> PSGOEEF( 39+1, 8+1, 10+1, 25+1, DONE+3
>> PSGORD A10+2, A10+12
>> PSGP A10+2, A10+12
>> PSGS0XT A39, A39+2, A39+4
>> PSGS0Y A39+2, A39+9*
>> PSGSCH A25+6
>> PSGSD A10+5, A10+6*, A10+11*, A10+13, A25+7
>> PSGSDN A10+4, A10+5, A10+6*, A10+11*
PSGSDX A10+1!, A10+11*
>> PSGSI A8, A8+2, A8+3*, A8+4, A8+5*, A8+7, A8+8, A8+10, A8+11*, A8+14*
>> PSGST A39+4
TMPFD A10+1~, A10+13*!
TMPX A10+9~*
U A8+1
>> X A39+1*, A39+2, A39+3, A39+4, A39+5*, A39+6, A39+7, A39+8*, A39+9, A8+1
, A8+2*, A8+3, A8+7*, A8+8*, A8+9, A8+10*, A8+11, A8+12, A8+13*, A8+14
, A10+4*, A10+5, A10+6, A10+7*, A10+8, A10+9*, A25+2*, A25+3, A25+4, A25+5*
, A25+6
>> X1 A10+9*
>> X2 A10+9*
>> Y A39+3, A8+1, A8+4, A8+5, A8+9, A10+8, A10+9, A10+10, A10+11, A25+4
, A25+7, FF+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All