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

Package: Inpatient Medications

Routine: PSGOE41


Information

PSGOE41 ;BIR/CML3-REGULAR ORDER ENTRY (CONT.) ;09 JAN 97 / 9:13 AM

Source Information

Source file <PSGOE41.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 9 ($$ENDL,EN1,ENPREV)^PSGDL  $$ENDD^PSGMI  (,ENFD)^PSGNE3  1^PSGOE42  (ENFF,ENHLP)^PSGOEM  ($$ODD,ENCHK)^PSGS0  ^PSGSICHK  $$ENOSD^PSJDCU  
($$ENBCMA,EFDNEW)^PSJUTL  
VA Fileman 3 ^%DT  C^%DTC  YN^DICN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGOE3  PSGOE4  

Entry Points

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

External References

Name Field # of Occurrence
^%DT A10+5, A25+6
C^%DTC A10+5
YN^DICN DEL+1
$$ENDL^PSGDL A25+5
EN1^PSGDL A25+5
ENPREV^PSGDL A10+2
$$ENDD^PSGMI 10+2, A10+2, A10+6, O25+1, A25+6
^PSGNE3 10+1
ENFD^PSGNE3 25+2
1^PSGOE42 NEXT+2
ENFF^PSGOEM FF+1
ENHLP^PSGOEM 39+8, 39+11, 39+12, 8+4, 8+6, 8+7, A10+3, A10+5, A25+4
$$ODD^PSGS0 39+2
ENCHK^PSGS0 39+12
^PSGSICHK 8+7
$$ENOSD^PSJDCU O25+1
$$ENBCMA^PSJUTL 8+8
EFDNEW^PSJUTL W25+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+8
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 39+9
Function Call: WRITE
  • Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Condition for execution: PSGS0XT="D"!(PSGSCH["@")
  • Line Location: 39+9
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 39+12
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !,"SPECIAL INSTRUCTIONS: "_$S(PSGSI]"":$P(PSGSI,"^")_"// ",1:"")
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A10+0
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_PSGSD_"// "
  • Line Location: A10+0
Function Call: WRITE
  • Prompt: " "_PSGSD
  • Line Location: A10+1
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+2
Function Call: WRITE
  • Prompt: " ",PSGSD
  • Line Location: A10+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A25+0
Function Call: WRITE
  • Prompt: !,"STOP DATE/TIME: "_$S(PSGFD]"":PSGFD_"// ",1:"")
  • Line Location: A25+0
Function Call: WRITE
  • Prompt: " "_PSGFD
  • Line Location: A25+1
Function Call: WRITE
  • Prompt: " ...dose limit..."
  • Line Location: A25+5
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)," ...order not entered..."
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1

Label References

Name Line Occurrences
10 8+2, 8+5
39 39+6, 39+7, 39+10, 39+11, 39+12
8 39+1, 39+2, 39+4, 39+5, 39+10, 8+3, 8+4, 8+5, 8+6, 8+7
@( 39+6, 8+3, A10+4, A25+2
A10 A10+2, A10+4, A10+5
A25 A25+2, A25+5, A25+6
DEL 39+10, 8+5
DONE 39+3, 8+1, A10, A25
FF 39+6, 8+3, A10+4, A25+2
O25 A10+1, A10+2
W25 A25+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 39+10, 8+5, DEL+1*
%DT A10+5!*, A25+6!*
%DT(0 A10+5*, A25+6*
DTIME 39+3, 8+1, A10, A25
F DONE+2!
F0 DONE+2!
F1 DONE+2!
F3 DONE+2!
>> FB FF+1*
PSG DONE+2!
>> PSGAT 39+5*, 39+13*
>> PSGDL A25+5*
PSGDLS A25+5!
>> PSGDT A10+5, 25+2, W25
PSGF2 39+6*, 8+3*, A10+3*, A25+2*, DONE+2!, FF+1
>> PSGFD A10+6*, O25+1*, 25+2*, A25, A25+1, A25+6*
>> PSGFOK(10 O25+1*
>> PSGFOK(25 A25+1*, A25+6*
>> PSGFOK(39 39+4*, 39+10*, 39+13*
>> PSGFOK(8 8+2*, 8+5*, 8+8*
>> PSGNEDFD 39+1, O25+1
>> PSGNEFD A10+6*, O25+1*, 25+2, A25+1, A25+6*, W25
>> PSGNEFDO 25+2
>> PSGNESD 10+2, A10+1, A10+2*, A10+6*, O25+1, A25+6
>> PSGNESDO 10+2*
>> PSGOE3 8+2, 8+5, 8+9, 25+1
>> PSGOROE1 39+3*, 8+1*, A10*, A25*, DONE+1
>> PSGP O25+1
>> PSGS0XT 39+2, 39+4, 39+5, 39+7
>> PSGS0Y 39+3, 39+5*, 39+10*, 39+13*
>> PSGSCH 39+5, A25+5
>> PSGSD 10+2*, A10, A10+1, A10+2*, A10+6*
>> PSGSI 8+1, 8+2, 8+4, 8+5*, 8+8*
>> PSGST 39+7
>> PSJSYSW0 O25+1
SDT DONE+2!
TMPX A10+5~*
U FF+1
>> X 39+3*, 39+4, 39+5, 39+6, 39+7, 39+8*, 39+10, 39+11, 39+12*, 39+13
, 8+1*, 8+2*, 8+3, 8+4*, 8+5, 8+6, 8+7*, 8+8, A10*, A10+1
, A10+2, A10+3*, A10+4, A10+5*, A25*, A25+1, A25+2, A25+4*, A25+5
>> X1 A10+5*
>> X2 A10+5*
Y 39+6, 8+3, A10+4, A10+5, A10+6, A25+2, A25+6, DONE+1!, FF+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All