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

Package: Inpatient Medications

Routine: PSGOE8


Information

PSGOE8 ;BIR/CML3-EDIT ORDERS IN 53.1 ;25 SEP 97 / 10:58 AM

Source Information

Source file <PSGOE8.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 7 $$GTNEDFD^PSGOE7  ENFF^PSGOE82  ENDRG^PSGOEF1  ENHLP^PSGOEM  EN^PSGS0  EDITDOSE^PSJDOSE  $$OINAME^PSJLMUTL  
VA Fileman 3 ^DIC  MIX^DIC1  YN^DICN  
Registration 1 PAUSE^VALM1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGOE9  PSGOEV  PSJHLV  

Entry Points

Name Comments DBIA/ICR reference
DH ;
26 ; schedule
A7DEF ;BHW;PSJ*5*188;Added tag. Called by A26 to set default Schedule type.
A7
A26
A101 ;
PNDREN(PNDON) ;
3 ; med route
A109 ;
CHECK(PSJSYSP) ; Check to see if multiple dispense drugs
; Input - PSJSYSP
; Returns 0 = only one.
; 1 = more than one
; Checks Inactive Date and doesn't count if < or = today.
A3
109 ; dosage ordered
DONE ;
7 ; schedule type
DEL ; delete entry
101 ;Orderable Item

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
ENFF^PSGOE82 A101+7, A109+11, A3+6, A7+3, A26+5
ENDRG^PSGOEF1 A101+16
ENHLP^PSGOEM A101+5, A101+6, A109+10, A109+13, A3+4, A3+5, A7+2, A7DEF+2, A26+3, A26+4
, A26+7
EN^PSGS0 A26+7
EDITDOSE^PSJDOSE A109+4
$$OINAME^PSJLMUTL A101+12, A101+14
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 at this point."
  • 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 at this point."
  • Line Location: A109+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A109+5
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: A109+5
Function Call: WRITE
  • Prompt: $C(7)," (Required) "
  • Line Location: A109+7
Function Call: WRITE
  • Prompt: $C(7)," (Required) "
  • Line Location: A109+8
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: A109+13
Function Call: WRITE
  • Prompt: !!?5,"Med Route may not be edited at this point."
  • 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: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A7+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A7+0
Function Call: WRITE
  • Prompt: " "_PSGSTN
  • Line Location: A7+4
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 at this point."
  • 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
Function Call: WRITE
  • Prompt: !!?2,"When the drug of an order is changed, the Dosage Ordered and Dispense Drug(s)",!,"for the order are no longer valid, and therefore deleted from the order.",!,"If possible, a new corresponding dispense drug will be added to the order."
  • Line Location: DH+1
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to continue with this change. Answer 'NO' to select another",!,"drug or to accept the drug as it was. Enter an '^' the exit this edit."
  • Line Location: DH+2
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.45 - [#53.45] A101+14!, A101+15*, CHECK+6, CHECK+7
^PSDRUG("ASP" A101+14

Label References

Name Line Occurrences
$$CHECK A109+7, A109+8, A109+9
$$PNDREN A101+1, A109+1, A3, A26
@( A101+7, A109+11, A3+6, A7+3, A26+5, DONE+1
A101 A101+5, A101+7, A101+9, A101+11
A109 A109+7, A109+8, A109+10, A109+11, A109+13
A26 A26+3, A26+4, A26+5, A26+7
A3 A3+4, A3+6, A3+7
A7 A7+2, A7+3, A7DEF+2
A7DEF A26+13
DH A101+10
DONE 101+3, A101+3, A101+4, A101+17, A109+4, A109+5, A109+9, A109+14, A3+2, A3+3
, A3+8, A7, A7+1, A7DEF+4, A26+2

Naked Globals

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

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*
DT CHECK+8
DTIME A101+3, A109+5, A3+2, A7, A26+2
F DONE+2!
F0 DONE+2!
F2 101+1*, 109+1*, A109+3, 3+1*, 7+1*, 26+1*, DONE+1, DONE+2!
>> MSG 101+1*, 109+1*, 3+1*, 7+1*, 26+1*, A26+8*
PNDON PNDREN~, PNDREN+1, PNDREN+2
>> PSGAT A26+8*
>> PSGDO A101+14*, A109+4, A109+5, A109+6, A109+7, A109+9*, A109+14*
>> PSGMR A3+2, A3+3, A3+4, A3+8*
>> PSGMRN A3+2, A3+3, A3+8*
>> PSGNEDFD A101+13*, A7DEF+1*
>> PSGOEE A101+3*, A109+3, A109+5*, A3+2*, A7*, A26+2*, DONE+1*
>> PSGOEEF( 101+1, 109+1, A109+3*, 3+1, 7+1, 26+1, DONE+1
>> PSGOEEF(39 A26+8*
>> PSGOEEF(7 A26+13*
PSGOES A26+7~
>> PSGOOPD 101+1*
>> PSGOOPDN 101+1*
>> PSGORD A101+1, A109+1, A3, A26
>> PSGPD 101+1, A101+3, A101+4, A101+5, A101+12*, A101+14*, A101+16
>> PSGPDN 101+1, A101+3, A101+4, A101+12*, A101+14*
>> PSGPDNX A101+14*
>> PSGPDRG A101+12*, A101+13, A101+14*
>> PSGPDRGN A101+12*, A101+14*
>> 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, A7+1, A7DEF+1*
PSJINACT CHECK+5~, CHECK+7*, CHECK+8
>> PSJNEWOE A26+8
PSJRBCNT CHECK+5~*, CHECK+9*, CHECK+10
PSJRSB CHECK+5~, CHECK+6*, CHECK+7
PSJSLUP A26+7~*
PSJSYSP A101+14, A101+15, A109+7, A109+8, A109+9, CHECK~, CHECK+6, CHECK+7
>> PSJSYSU 101+2
>> RNWL PNDREN+2*, PNDREN+3
X A101+3*, A101+4*, A101+5*, A101+6, A101+7, A101+14*, A101+15, A109+4*, A109+5*, A109+6*
, A109+7, A109+8, A109+9, A109+10, A109+11, A109+12*, A109+13, A109+14, A3+2*, A3+3*
, A3+4*, A3+5, A3+6, A7*, A7+1, A7+2*, A7+3, 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+11, A3+6, A3+7, A3+8, A7+3, A7DEF+1*
, A26+5, A26+10~
Y(0 A3+8, A26+13
Info |  Source |  Call Graph |  Caller 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