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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGOE9

Package: Inpatient Medications

Routine: PSGOE9


Information

PSGOE9 ;BIR/CML - EDIT ORDERS IN 55; Mar 29, 2025@10:35

Source Information

Source file <PSGOE9.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Inpatient Medications 14 ($$ENLU,$$ENSTN)^PSGMI  (CKMRSL,MRSL)^PSGOE4  $$GTNEDFD^PSGOE7  ($$CHECK,$$SCHTP,DH)^PSGOE8  (34,41)^PSGOE91  ENFF^PSGOE92  ENDRG^PSGOEF1  ENHLP^PSGOEM  
($$ODD,$$PRNOK,EN)^PSGS0  $$DOW^PSIVUTL  CMPLX^PSJCOM1  EDITDOSE^PSJDOSE  $$OINAME^PSJLMUTL  $$COMPLEX^PSJOE  
VA FileMan 3 ^DIC  MIX^DIC1  YN^DICN  
List Manager 1 (FULL,PAUSE)^VALM1  

Entry Points

Name Comments DBIA/ICR reference
101 ; Orderable Item (AKA primary drug)
A101 ;
109 ; dosage ordered
A109 ;
3 ; med route
A3
7 ; schedule type
A7
26 ; schedule
A26
DONE ;
DEL ; delete entry

External References

Name Field # of Occurrence
^DIC A3+9
MIX^DIC1 A101+9
YN^DICN 101+2, A101+11, DEL+1
$$ENLU^PSGMI A26+4
$$ENSTN^PSGMI A7+4, A7+15, A26+27, A26+28, A26+31
CKMRSL^PSGOE4 A3+8
MRSL^PSGOE4 A3+5
$$GTNEDFD^PSGOE7 A101+14
$$CHECK^PSGOE8 A109+6, A109+7, A109+8
$$SCHTP^PSGOE8 A7+11, A7+13
DH^PSGOE8 101+2, A101+11
34^PSGOE91 A26+38
41^PSGOE91 A26+35
ENFF^PSGOE92 A101+7, A109+10, A3+7, A7+9, A26+6
ENDRG^PSGOEF1 A101+16
ENHLP^PSGOEM A101+5, A101+6, A109+9, A109+12, A3+4, A3+6, A7+8, A26+3, A26+5, A26+11
$$ODD^PSGS0 A26+19
$$PRNOK^PSGS0 A7+7, A26+19, A26+28
EN^PSGS0 A26+13
$$DOW^PSIVUTL A26+4, A26+19
CMPLX^PSJCOM1 A7+2
EDITDOSE^PSJDOSE A109+3
$$OINAME^PSJLMUTL A101+13, A101+15
$$COMPLEX^PSJOE A101+1, A109+1, A3, A7, A26
FULL^VALM1 A7+2
PAUSE^VALM1 A101+2, A109+2, A3+1, A7+19, A26+1, A26+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"WARNING! If you change the drug of an order, the Dosage Ordered and Dispense",!,"Drug(s) are deleted."
  • Line Location: 101+2
Function Call: WRITE
  • Prompt: !,"Do you wish to continue"
  • Line Location: 101+2
Function Call: WRITE
  • Prompt: !!?5,"Orderable Item may not be edited for active complex orders."
  • Line Location: A101+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A101+3
Function Call: WRITE
  • Prompt: !,"ORDERABLE ITEM: ",$S(PSGPD:PSGPDN_"// ",1:"")
  • Line Location: A101+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A101+5
Function Call: WRITE
  • Prompt: !!?5,"Dosage may not be edited for active complex orders."
  • Line Location: A109+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A109+4
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: A109+4
Function Call: WRITE
  • Prompt: $C(7)," (Required) "
  • Line Location: A109+6
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A109+7
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: A109+12
Function Call: WRITE
  • Prompt: !!?5,"Med Route may not be edited for active complex orders."
  • Line Location: A3+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A3+2
Function Call: WRITE
  • Prompt: !,"MED ROUTE: ",$S(PSGMR:PSGMRN_"// ",1:"")
  • Line Location: A3+2
Function Call: WRITE
  • Prompt: " "_$P(^(0),"^",3)
  • Line Location: A3+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A3+4
Function Call: WRITE
  • Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order."
  • Line Location: A7+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+6
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+7
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a ONE TIME Schedule."
  • Line Location: A7+11
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a CONTINUOUS Schedule."
  • Line Location: A7+13
Function Call: WRITE
  • Prompt: !!?5,"Schedule may not be edited for active complex orders."
  • Line Location: A26+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A26+2
Function Call: WRITE
  • Prompt: !,"SCHEDULE: ",$S(PSGSCH]"":PSGSCH_"// ",1:"")
  • Line Location: A26+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A26+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A26+11
Function Call: WRITE
  • Prompt: !!,"NOTE: This change in schedule also changes the ADMIN TIMES and SCHEDULE TYPE.",!
  • Line Location: A26+32
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Routine Call
  • DIC
  • Line Location:
    • A3+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] Classic Fileman Calls
^PS(51.2 - [#51.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] A101+4
^PS(51.1 - [#51.1] A26+29, A26+30
^PS(51.2 - [#51.2] A3+3
^PS(53.1 - [#53.1] A7+1
^PS(53.45 - [#53.45] A101+15!*
^PS(55 - [#55] A7+1
^PSDRUG("ASP" A101+15

Label References

Name Line Occurrences
@( A101+7, A109+10, A3+7, A7+9, A26+6, DONE+1
A101 A101+5, A101+7, A101+9, A101+12
A109 A109+6, A109+7, A109+9, A109+10, A109+12
A26 A26+3, A26+5, A26+6, A26+11
A3 A3+4, A3+7, A3+9
A7 A7+6, A7+7, A7+8, A7+9, A7+11, A7+13
DONE 101+3, A101+1, A101+3, A101+4, A101+10, A101+15, A101+17, A109+1, A109+3, A109+4
, A109+8, A109+13, A3, A3+2, A3+3, A3+10, A7+3, A7+4, A7+20, A26
, A26+2

Naked Globals

Name Field # of Occurrence
^( A101+15
^(0 A3+3
^(1 A101+15*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 101+2*, 101+3, A101+11*, A101+12, DEL+1*
>> BACK 101+1*, 109+1*, 3+2*, 7+1*, 26+1*, A26+35*, DONE+1
D A101+9!*
DIC A101+9!*, A3+9!*
DIC("S" A101+9*, A3+9*
DIC(0 A101+9*, A3+9*
>> DIRUT A101+17
>> DOW A26+4*, A26+27
DTIME A101+3, A109+4, A3+2, A7+3, A26+2
>> DTOUT A101+17
>> DUOUT A101+17
F DONE+2!
F0 DONE+2!
>> MSG 101+1*, 109+1*, 3+2*, 7+1*, A7+18*, 26+1*, A26+33*
ND2P1 A26+23!
P2ND A7+1~*
PARENT A7+1~*, A7+2
>> PSGAT A7+16*, A26+25*, A26+35
>> PSGDO A101+15*, A109+3, A109+4, A109+5, A109+6, A109+8*, A109+13*
PSGDUR A26+23!
PSGF2 101+1*, 109+1*, 3+2*, 7+1*, 26+1*, A26+35*, A26+38*, DONE+1, DONE+2!
PSGHIT A26+10~, A26+11*, A26+14*, A26+19*
>> PSGMR A3+2, A3+3, A3+4, A3+10*
>> PSGMRN A3+2, A3+3, A3+10*
>> PSGNEDFD A101+14*
>> PSGOAT A7+16*, A26+35*
>> PSGOEE A101+1*, A101+3*, A109+1*, A109+4*, A3*, A3+2*, A7+3*, A26*, A26+2*, DONE+1*
>> PSGOEEF( 101+1, 109+1, 3+2, 7+1, 26+1, A26+35*, DONE+1
>> PSGOEEF(34 A26+38*
>> PSGOEEF(39 A7+18*, A26+33*
>> PSGOEEF(7 A26+38*
>> PSGOOPD 101+1*
>> PSGOOPDN 101+1*
>> PSGORD A7, A7+1, A7+2
>> PSGOROE1 101+2, A101+17*
>> PSGOST A7+14*, A26+28*
>> PSGP A101+1, A109+1, A3, A7, A7+1, A7+2, A26
>> PSGPD 101+1, A101+3, A101+4, A101+5, A101+10, A101+13*, A101+15*, A101+16
>> PSGPDN 101+1, A101+3, A101+4, A101+13*, A101+15*
>> PSGPDNX A101+15*
>> PSGPDRG A101+13*, A101+14
>> PSGPDRGN A101+13*
>> PSGRF A26+34, A26+38
PSGRMV A26+23!
PSGRMVT A26+23!
PSGS0XT 3+1~, A26+19
>> PSGS0Y A26+25
>> PSGSCH A7+7, A7+11, A7+13, A26+2, A26+3*, A26+21, A26+24*, A26+28, A26+29
PSGSCIEN A26+10~, A26+19, A26+29*, A26+30
PSGSFLG A26+10~, A26+12*
>> PSGST A7+4, A7+14, A7+15*, A26+27*, A26+28*, A26+30*, A26+31, A26+34, A26+38
>> PSGSTN A7+3, A7+4*, A7+15*, A26+27*, A26+28*, A26+31*
>> PSJNEWOE A7+19, A26+37
>> PSJORD A101+1, A109+1, A3, A26
PSJSLUP A26+10~, A26+12*
>> PSJSYSP A101+15, A109+6, A109+7, A109+8
X A101+3*, A101+4*, A101+5*, A101+6, A101+7, A101+15*, A109+3*, A109+4*, A109+5*, A109+6
, A109+7, A109+8, A109+9, A109+10, A109+11*, A109+12, A109+13, A3+2*, A3+3*, A3+4*
, A3+5, A3+6, A3+7, A7+1~, A7+3*, A7+4*, A7+5*, A7+6, A7+7, A7+8*
, A7+9, A7+11, A7+13, A7+15, A7+16, A26+2*, A26+3*, A26+4, A26+5, A26+6
, A26+11*, A26+14, A26+19, A26+21, A26+24
XX A26+22~, A26+29*
Y A101+7, A101+9, A101+10, A101+13, A101+15, A109+10, A3+7, A3+9, A3+10, A7+1~
, A7+9, A26+6
Y(0 A3+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All