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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVEDT1

Package: Inpatient Medications

Routine: PSIVEDT1


Information

PSIVEDT1 ;BIR/MLM-EDIT IV ORDER (CONT) ;10 Mar 98 / 2:36 PM

Source Information

Source file <PSIVEDT1.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 8 $$ENDL^PSGDL  ($$ODD,ENCHK)^PSGS0  (ENSTOP,ENT)^PSIVCAL  DEL^PSIVEDRG  ENHLP^PSIVORC1  (EN,ENDL,ENI)^PSIVSP  $$COMPLEX^PSJOE  $$ENBCMA^PSJUTL  
VA Fileman 3 ^%DT  C^%DTC  ^DIR  
Registration 1 (FULL,PAUSE)^VALM1  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Inpatient Medications 4 PSIVEDRG  PSIVEDT  PSIVORLB  PSJUTL  

Entry Points

Name Comments DBIA/ICR reference
10 ; Start Date
26 ; Schedule
59 ; Infusion Rate
A10
25 ; Stop Date
ORFLDS ; Display OE/RR fields during edit.
39 ; Admin Times
63 ; Remarks
64 ; Other Print Info
A25

External References

Name Field # of Occurrence
^%DT A10+7, A25+5
C^%DTC A10+11
^DIR 63+1, 64+1
$$ENDL^PSGDL A25+6
$$ODD^PSGS0 39+5
ENCHK^PSGS0 39+12
ENSTOP^PSIVCAL 25+2, 39+12
ENT^PSIVCAL 10+1, 39+12
DEL^PSIVEDRG 26+6, 39+8, 59+5, 63+2, 64+2
ENHLP^PSIVORC1 A10+6, A25+4, 26+9, 39+9, 59+7
EN^PSIVSP 26+10
ENDL^PSIVSP A25+6
ENI^PSIVSP 59+8
$$COMPLEX^PSJOE A10+2, A25, 26+3, 39+3
$$ENBCMA^PSJUTL 64+3
FULL^VALM1 ORFLDS+1
PAUSE^VALM1 A10+1, A10+3, A25+1, 26+2, 26+4, 39+2, 39+4, 59+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"This is a Renewal Order. Start Date may not be edited at this point."
  • Line Location: A10+1
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. 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: $C(7),!!,"Start date of order being renewed is ",Y,".",!,"Start date of renewal order must be AFTER start date of order being renewed.",!
  • Line Location: A10+10
Function Call: WRITE
  • Prompt: !!,"Start date/time may not be entered prior to 7 days from the order's LOGIN DATE.",!
  • Line Location: A10+11
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Stop Date may not be edited at this point."
  • Line Location: A25+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A25+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A25+4
Function Call: WRITE
  • Prompt: !!?5,"This is a Renewal Order. Schedule may not be edited at this point."
  • Line Location: 26+2
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Schedule may not be edited at this point."
  • Line Location: 26+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 26+5
Function Call: WRITE
  • Prompt: $C(7),"??"
  • Line Location: 26+10
Function Call: WRITE
  • Prompt: !!?5,"This is a Renewal Order. Administration times may not be edited at this point."
  • Line Location: 39+2
Function Call: WRITE
  • Prompt: !!?5,"This is a Complex Order. Admin Times may not be edited at this point."
  • Line Location: 39+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 39+6
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 39+7
Function Call: WRITE
  • Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times."
  • Condition for execution: (P(15)="D"!(X["@"))
  • Line Location: 39+7
Function Call: WRITE
  • Prompt: !!?5,"This is a Renewal Order. Infusion Rate may not be edited at this point."
  • Line Location: 59+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 59+3
Function Call: WRITE
  • Prompt: $C(7),!!,"An infusion rate must be entered!"
  • Line Location: 59+9
Function Call: WRITE
  • Prompt: !!,"Orderable Item: ",$P(P("PD"),U,2),!,"Give: ",$P(P("MR"),U,2)," ",P(9),!!
  • Line Location: ORFLDS+2
Routine Call
  • DIR
  • Line Location:
    • 63+1
    • 64+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" A10+4, A10+10, A25+2
^PS(53.1 - [#53.1] A10, 26+1, 39+1, 59+1
^PS(55 - [#55] A10+8
^PS(59.5 - [#59.5] 25+2

Label References

Name Line Occurrences
10 A10+5, A10+8
25 A25+3
26 26+6, 26+7, 26+9, 26+10
39 39+7, 39+8, 39+9, 39+10, 39+12
59 59+5, 59+6, 59+7, 59+8, 59+9
63 63+2
64 64+2
A10 A10+6, A10+7, A10+11
A25 25+1, A25+4, A25+6, A25+7
ORFLDS A10+5, A25+3, 26+7, 39+10, 59+6

Naked Globals

Name Field # of Occurrence
^(0 A10+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 26+6, 39+8, 59+5, 63+2, 64+2
%DT A10+7!*, A25+5!*
>> DFN A10+2, A10+8, A25, 26+3, 39+3
DIR 63+1~, 64+1~
DIR("B" 63+1*, 64+1*
DIR(0 63+1*, 64+1*
>> DONE A10+4*, A25+2*, 26+5*, 39+6*, 59+3*, 63+1*, 64+1*
DTIME A10+4, A25+2, 26+5, 39+6, 59+3
>> DTOUT 63+1, 64+1
>> F1 A10+6*, A25+4*, 26+9*, 39+9*, 59+7*
>> F2 A10+6*, A25+4*, 26+9*, 39+9*, 59+7*
>> ON A10, A10+2, A25, 26+1, 26+3, 39+1, 39+3, 59+1
>> P("IVRM" 10+1, 25+2
>> P("LOG" A10+11
>> P("MR" ORFLDS+2
>> P("OLDON" A10+8
>> P("OPI" 64+1, 64+2*, 64+3*
>> P("OT" A10+5, A25+3, 26+7, 39+10, 59+6
>> P("PD" ORFLDS+2
>> P("REM" 63+1, 63+2*, 63+3*
>> P("RES" A10, A10+8, 26+1, 39+1, 59+1
>> P(11 26+11*, 39+6, 39+8*, 39+12*
>> P(15 26+11*, 39+6, 39+7
>> P(2 10+1, A10+4, A10+7, A10+12*, 25+2, A25+2
>> P(3 25+2, A25+2, A25+5, A25+7*
>> P(4 59+4
>> P(5 59+4
>> P(7 26+10*
>> P(8 59+3, 59+5*, 59+8*, 59+9
>> P(9 A25+6, 26+5, 26+6*, 26+11*, 39+5, 39+7, ORFLDS+2
>> PSGFDX 25+1, A25+7*
PSGOES 26+10~!
>> PSGSDX A10+12*
>> PSIVAC A10+5, 25+2, A25+3, 26+7, 39+10, 59+6
PSIVCAL 39+12!
>> PSIVRENW A10+1, 26+2, 39+2, 59+2
>> PSIVSITE 25+2*
>> PSJBKDR A10+3, A25+1, 26+4, 39+4
>> PSJREN 10+1
U A10+4, A10+8, A10+10, A25+2, 26+5, 39+6, 59+3, ORFLDS+2
X A10+4*, A10+5, A10+6*, A10+7*, A10+11, A25+2*, A25+3, A25+4*, A25+5*, A25+6
, A25+7*, 26+5*, 26+6, 26+7, 26+9, 26+10*, 26+11, 39+6*, 39+7*, 39+8
, 39+9, 39+10, 39+12!, 59+3*, 59+4, 59+5, 59+6, 59+7, 59+8, 63+1*
, 63+2, 63+3, 64+1*, 64+2, 64+3
>> X1 A10+11*
>> X2 A10+11*
>> XT 26+10, 26+11
>> Y A10+4*, A10+7, A10+8, A10+10*, A10+11, A10+12, A25+2*, A25+7, 26+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All