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 ;12 June 2019 09:31:53

Source Information

Source file <PSGOE8.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 12 ($$ENLU,$$ENSTN)^PSGMI  (CKMRSL,MRSL)^PSGOE4  $$GTNEDFD^PSGOE7  (25,39)^PSGOE81  ENFF^PSGOE82  ENDRG^PSGOEF1  ENHLP^PSGOEM  ($$PRNOK,EN)^PSGS0  
$$DOW^PSIVUTL  ($$ISCLOZ,CLOZ)^PSJCLOZ  EDITDOSE^PSJDOSE  $$OINAME^PSJLMUTL  
VA FileMan 4 ^DIC  MIX^DIC1  YN^DICN  $$GET1^DIQ  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGOE9  PSGOEV  PSJHLV  

Entry Points

Name Comments DBIA/ICR reference
101 ;Orderable Item
A101 ;
A201
109 ; dosage ordered
A109 ;
3 ; med route
A3
26 ; schedule
A26
7 ; schedule type
A7
DONE ;
DEL ; delete entry
DH ;
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.
PNDREN(PNDON) ;
SCHTP(SCH) ; *223 Return SCHedule type

External References

Name Field # of Occurrence
^DIC A3+10
MIX^DIC1 A201+8
YN^DICN 101+2, A201+9, DEL+1
$$GET1^DIQ A201
$$ENLU^PSGMI A26+4
$$ENSTN^PSGMI A26+15, A26+16, A26+19, A7+1, A7+12
CKMRSL^PSGOE4 A3+9
MRSL^PSGOE4 A3+5
$$GTNEDFD^PSGOE7 A201+12
25^PSGOE81 A26+27
39^PSGOE81 A26+24
ENFF^PSGOE82 A201+6, A109+11, A3+8, A26+6, A7+6
ENDRG^PSGOEF1 A201+16
ENHLP^PSGOEM A201+4, A201+5, A109+10, A109+13, A3+4, A3+6, A26+3, A26+5, A26+8, A7+5
$$PRNOK^PSGS0 A26+16, A7+4
EN^PSGS0 A26+8
$$DOW^PSIVUTL A26+4
$$ISCLOZ^PSJCLOZ A201+18
CLOZ^PSJCLOZ A201+19
EDITDOSE^PSJDOSE A109+4
$$OINAME^PSJLMUTL A201+11, A201+13
PAUSE^VALM1 A101+2, A109+2, A3+1, A26+1, A26+26, A7+16

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
  • 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: A201+4
Function Call: WRITE
  • Prompt: !
  • Line Location: A201+20
Function Call: WRITE
  • Prompt: !!?5,"Dosage may not be edited at this point."
  • Line Location: A109+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • 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,"Schedule may not be edited at this point."
  • 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+8
Function Call: WRITE
  • Prompt: !!,"NOTE: This may cause the Admin Times and the Start Time to be out of sync."
  • Line Location: A26+20
Function Call: WRITE
  • Prompt: !!,"NOTE: This change in schedule also changes the ADMIN TIMES and SCHEDULE TYPE.",!
  • Line Location: A26+21
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A7+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A7+0
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+3
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: A7+4
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a ONE TIME Schedule."
  • Line Location: A7+8
Function Call: WRITE
  • Prompt: !," SCHEDULE ("_PSGSCH_") is not a CONTINUOUS Schedule."
  • Line Location: A7+10
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 '^' to exit this edit."
  • Line Location: DH+2
Routine Call
  • DIC
  • Line Location:
    • A3+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] A201+3
^PS(51.1 - [#51.1] A26+17, A26+18, SCHTP+2, SCHTP+4
^PS(51.2 - [#51.2] A3+3
^PS(53.45 - [#53.45] A201+13!, A201+14*, CHECK+6, CHECK+7
^PSDRUG("ASP" A201+13

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 101+2*, 101+3, A201+9*, A201+10, DEL+1*
ANQX A201, A201+18!, A201+19*, A201+20
>> BACK 101+1*, 109+1*, 3+2*, 26+1*, A26+24*, 7+1*, DONE+1
CLOZFLG A201+18~*, A201+19
D A201+8!*
>> DFN A201+19
DIC A201+8!*, A3+10!*
DIC("S" A201+8*, A3+10*
DIC(0 A201+8*, A3+10*
>> DIRUT A201+22
>> DOW A26+4*, A26+15
DT CHECK+8
DTIME A101+3, A109+5, A3+2, A26+2, A7
>> DTOUT A201+22
>> DUOUT A201+22
F DONE+2!
F0 DONE+2!
F2 101+1*, 109+1*, A109+3, 3+2*, 26+1*, 7+1*, DONE+1, DONE+2!
>> MSG 101+1*, 109+1*, 3+2*, 26+1*, A26+22*, 7+1*, A7+15*
ND2P1 A26+10!
PNDON PNDREN~, PNDREN+1, PNDREN+2
>> PSGAT A26+13*, A26+24, A7+13*
>> PSGDO A201+13*, A109+4, A109+5, A109+6, A109+7, A109+9*, A109+14*
>> PSGDREQ A109+4*
PSGDRG A201+19~*
PSGDRGTMP A201+15*, A201+20!
PSGDUR A26+10!
>> PSGEFN(8 A26+20
>> PSGF2 A26+24*, A26+27*
>> PSGMR A3+2, A3+3, A3+4, A3+11*
>> PSGMRN A3+2, A3+3, A3+11*
>> PSGNEDFD A201+12*
>> PSGOAT A26+24*, A7+13*
>> PSGOEE A101+3*, A109+3, A109+5*, A3+2*, A26+2*, A7*, DONE+1*
>> PSGOEEF( 101+1, 109+1, A109+3*, 3+2, 26+1, 7+1, DONE+1
>> PSGOEEF(25 A26+27*
>> PSGOEEF(39 A26+22*, A7+15*
>> PSGOEEF(7 A26+27*
PSGOES A26+8~
>> PSGOOPD 101+1*
>> PSGOOPDN 101+1*
>> PSGORD A101+1, A109+1, A3, A26
>> PSGOST A26+16*, A26+18*, A7+11*
>> PSGPD 101+1, A101+3, A201, A201+1, A201+3, A201+4, A201+11*, A201+13*, A201+16, A201+18
, A201+20*
>> PSGPDN 101+1, A101+3, A201, A201+1, A201+3, A201+11*, A201+13*, A201+20*
PSGPDNOLD A201+1*, A201+20!
>> PSGPDNX A201+13*
PSGPDOLD A201+1*, A201+20!
>> PSGPDRG A201+1, A201+11*, A201+12, A201+13*, A201+20*
>> PSGPDRGN A201+11*, A201+13*
PSGPDRGOLD A201+1*, A201+20!
>> PSGRF A26+23, A26+27
PSGRMV A26+10!
PSGRMVT A26+10!
PSGS0XT 3+1~
>> PSGS0Y A26+13
>> PSGSCH A26+2, A26+3*, A26+9, A26+12*, A26+16, A26+17, A7+4, A7+8, A7+10
>> PSGSCIEN A26+17*, A26+18
PSGSFLG A26+8~*
>> PSGST A26+15*, A26+16*, A26+18*, A26+19, A26+23, A26+27, A7+1, A7+11, A7+12*
>> PSGSTN A26+15*, A26+16*, A26+19*, A7, A7+1*, A7+12*
PSJINACT CHECK+5~, CHECK+7*, CHECK+8
>> PSJNEWOE A26+26, A7+16
PSJRBCNT CHECK+5~*, CHECK+9*, CHECK+10
PSJRSB CHECK+5~, CHECK+6*, CHECK+7
PSJSLUP A26+8~*
PSJSYSP A201+13, A201+14, A109+7, A109+8, A109+9, CHECK~, CHECK+6, CHECK+7
>> PSJSYSU 101+2
>> PSJSYSW0 A26+20
>> RNWL PNDREN+2*, PNDREN+3
SCH SCHTP~, SCHTP+1, SCHTP+2
U A201+19, A26+20
X A101+3*, A201*, A201+3*, A201+4*, A201+5, A201+6, A201+13*, A201+14, A201+15, A201+20*
, 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, A3+8, A26+2*, A26+3*, A26+4
, A26+5, A26+6, A26+8*, A26+9, A26+12, A7*, A7+1*, A7+2*, A7+3, A7+4
, A7+5*, A7+6, A7+8, A7+10, A7+12, A7+13, SCHTP+1~, SCHTP+2*, SCHTP+3, SCHTP+4
XX A26+11~, A26+17*
>> Y A201+6, A201+8, A201+11, A201+13, A109+11, A3+8, A3+10, A3+11, A26+6, A7+6
>> Y(0 A3+11
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