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/CML3-EDIT ORDERS IN 55 ; 4/21/08 11:01am

Source Information

Source file <PSGOE9.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 10 $$GTNEDFD^PSGOE7  ($$CHECK,DH)^PSGOE8  ENFF^PSGOE92  ENDRG^PSGOEF1  ENHLP^PSGOEM  EN^PSGS0  CMPLX^PSJCOM1  EDITDOSE^PSJDOSE  
$$OINAME^PSJLMUTL  $$COMPLEX^PSJOE  
VA Fileman 3 ^DIC  MIX^DIC1  YN^DICN  
Registration 1 (FULL,PAUSE)^VALM1  

Entry Points

Name Comments DBIA/ICR reference
26 ; schedule
A7DEF ;BHW;PSJ*5*188;Added tag. Called by A26 to set default Schedule type.
A7
A26
A101 ;
3 ; med route
A109 ;
A3
109 ; dosage ordered
DONE ;
7 ; schedule type
DEL ; delete entry
101 ; Orderable Item (AKA primary drug)

External References

Name Field # of Occurrence
^DIC A3+7, A26+12
MIX^DIC1 A101+9
YN^DICN 101+2, A101+10, DEL+1
$$GTNEDFD^PSGOE7 A101+13
$$CHECK^PSGOE8 A109+6, A109+7, A109+8
DH^PSGOE8 101+2, A101+10
ENFF^PSGOE92 A101+7, A109+10, A3+6, A7+6, A26+5
ENDRG^PSGOEF1 A101+15
ENHLP^PSGOEM A101+5, A101+6, A109+9, A109+12, A3+4, A3+5, A7+5, A7DEF+2, A26+3, A26+4
, A26+7
EN^PSGS0 A26+7
CMPLX^PSJCOM1 A7+2
EDITDOSE^PSJDOSE A109+3
$$OINAME^PSJLMUTL A101+12, A101+14
$$COMPLEX^PSJOE A101+1, A109+1, A3, A7, A26
FULL^VALM1 A7+2
PAUSE^VALM1 A101+2, A109+2, A3+1, A26+1, A26+8

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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: " "_PSGSTN
  • Line Location: A7+7
Function Call: WRITE
  • Prompt: $S(X=$P(Y,"^"):" "_$P(Y,"^",2),1:$P($P(Y,"^",2),X,2))
  • Line Location: A7DEF+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A7DEF+2
Function Call: WRITE
  • Prompt: !!?5,"Schedule may not be edited for active complex orders."
  • Line Location: A26+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+7
Function Call: WRITE
  • Prompt: !!,"NOTE: This change in schedule also changes the ADMIN TIMES.",!
  • Line Location: A26+8
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Routine Call
  • DIC
  • Line Location:
    • A3+7
    • A26+12

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+11
^PS(51.2 - [#51.2] A3+3
^PS(53.1 - [#53.1] A7+1
^PS(53.45 - [#53.45] A101+14!*
^PS(55 - [#55] A7+1
^PSDRUG("ASP" A101+14

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 101+2*, 101+3, A101+10*, A101+11, DEL+1*
>> BACK 101+1*, 109+1*, 3+1*, 7+1*, 26+1*, DONE+1
D A101+9!*
DIC A101+9!*, A3+7!*, A26+10~, A26+12*
DIC("S" A101+9*, A3+7*
DIC(0 A101+9*, A3+7*, A26+12*
DTIME A101+3, A109+4, A3+2, A7+3, A26+2
F DONE+2!
F0 DONE+2!
>> MSG 101+1*, 109+1*, 3+1*, 7+1*, 26+1*, A26+8*
P2ND A7+1~*
PARENT A7+1~*, A7+2
>> PSGAT A26+8*
>> PSGDO A101+14*, A109+3, A109+4, A109+5, A109+6, A109+8*, A109+13*
PSGF2 101+1*, 109+1*, 3+1*, 7+1*, 26+1*, DONE+1, DONE+2!
>> PSGMR A3+2, A3+3, A3+4, A3+8*
>> PSGMRN A3+2, A3+3, A3+8*
>> PSGNEDFD A101+13*, A7DEF+1*
>> 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+1, 7+1, 26+1, DONE+1
>> PSGOEEF(39 A26+8*
>> PSGOEEF(7 A26+13*
>> PSGOOPD 101+1*
>> PSGOOPDN 101+1*
>> PSGORD A7, A7+1, A7+2
>> PSGP A101+1, A109+1, A3, A7, A7+1, A7+2, A26
>> PSGPD 101+1, A101+3, A101+4, A101+5, A101+12*, A101+14*, A101+15
>> PSGPDN 101+1, A101+3, A101+4, A101+12*, A101+14*
>> PSGPDNX A101+14*
>> PSGPDRG A101+12*, A101+13
>> PSGPDRGN A101+12*
>> PSGS0Y A26+8
>> PSGSCH A26+2, A26+3*, A26+8*, A26+11, A26+12
PSGSCIEN A26+7~, A26+11*, A26+12
PSGSFLG A26+7~*
>> PSGST A7DEF+1*
>> PSGSTN A7+3, A7+4, A7DEF+1*
>> PSJNEWOE A26+8
>> PSJORD A101+1, A109+1, A3, A26
PSJSLUP A26+7~*
>> PSJSYSP A101+14, A109+6, A109+7, A109+8
X A101+3*, A101+4*, A101+5*, A101+6, A101+7, A101+14*, 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, A7+1~, A7+3*, A7+4, A7+5*, A7+6, A7DEF+1, A7DEF+2*, A26+2*
, A26+3*, A26+4, A26+5, A26+7*, A26+8, A26+10~, A26+12*, A26+13*
Y A101+7, A101+9, A101+12, A101+14, A109+10, A3+6, A3+7, A3+8, A7+1~, A7+6
, A7DEF+1*, A26+5, A26+10~
Y(0 A3+8, A26+13
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