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: PSGOE4

Package: Inpatient Medications

Routine: PSGOE4


Information

PSGOE4 ;BIR/CML3 - REGULAR ORDER ENTRY ;06 Feb 01 / 4:31 PM

Source Information

Source file <PSGOE4.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 7 $$ENSTN^PSGMI  (,8)^PSGOE41  2^PSGOE42  (ENFF,ENHLP)^PSGOEM  ($$PRNOK,EN)^PSGS0  $$DOW^PSIVUTL  GETDOSE^PSJDOSE  
VA FileMan 2 ^DIC  YN^DICN  
Pharmacy Data Management 1 START^PSSJORDF  

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: 5

Package Total Caller Graph
Inpatient Medications 5 PSGOE0  PSGOE3  PSGOE8  PSGOE9  PSJOE1  

Entry Points

Name Comments DBIA/ICR reference
109 ; dosage ordered
13 ; units per dose
A13 ;
S13 ;
3 ; med route
26 ; schedule
7 ; schedule type
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
MRSL ;check for OI med route short list;
CKMRSL ;;check for med route short list leading letters ;*525

External References

Name Field # of Occurrence
^DIC 3+8, MRSL+6, CKMRSL+6
YN^DICN DEL+1
$$ENSTN^PSGMI PSGOE4+8, 26+5, 26+7, 26+8, 26+12, 7+4, 7+5, 7+9
^PSGOE41 7+11, 7+21
8^PSGOE41 7+15, 7+18
2^PSGOE42 13+3
ENFF^PSGOEM FF+1
ENHLP^PSGOEM 109+6, 109+9, A13+3, A13+5, A13+8, 3+3, 3+5, 26+2, 26+3, 26+6
7+12, 7+17
$$PRNOK^PSGS0 26+7, 7+5
EN^PSGS0 26+6
$$DOW^PSIVUTL 26+5, 7+4
GETDOSE^PSJDOSE 109+1
START^PSSJORDF MRSL+2, CKMRSL+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 109+2
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: 109+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: 109+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A13+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A13+3
Function Call: WRITE
  • Prompt: " ("_$E("0",X<1)_X_")"
  • Line Location: A13+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A13+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !,"MED ROUTE: ",$S(PSGMR:PSGMRN,1:"")_"// "
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: " "_$P(^(0),"^",3)
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 3+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 26+1
Function Call: WRITE
  • Prompt: !,"SCHEDULE: ",$S(PSGSCH]"":PSGSCH_"// ",1:"")
  • Line Location: 26+1
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 26+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 26+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 7+10
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: 7+10
Function Call: WRITE
  • Prompt: " "_PSGSTN
  • Line Location: 7+11
Function Call: WRITE
  • Prompt: " "_PSGSTN
  • Line Location: 7+15
Function Call: WRITE
  • Prompt: $P($P(Y,"^",2),X,2)
  • Line Location: 7+16
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 7+17
Function Call: WRITE
  • Prompt: $C(7)," ...order not entered..."
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,?10,I_" "_$P(^TMP("PSJMR",$J,I),U)_" "_$P(^TMP("PSJMR",$J,I),U,2)
  • Line Location: MRSL+5
Routine Call
  • DIC
  • Line Location:
    • 3+8
    • MRSL+6
    • CKMRSL+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.1 - [#51.1] 7+7, 7+8
^PS(51.2 - [#51.2] PSGOE4+7, 3+2
^PS(53.45 - [#53.45] PSGOE4+9!*, S13+1*
^TMP( MRSL+3!*, MRSL+5*, MRSL+6!, CKMRSL+3!*, CKMRSL+5*, CKMRSL+6!
^TMP("PSJMR" MRSL+2, MRSL+4, MRSL+5, MRSL+6!, CKMRSL+2, CKMRSL+4, CKMRSL+5, CKMRSL+6!
^VA(200 - [#200] PSGOE4+7

Label References

Name Line Occurrences
109 109+5, 109+6, 109+7, 109+9
13 A13+4, A13+8
26 26+2, 26+3, 26+4, 26+6
3 109+1, 109+5, 13+3, 3+3, 3+6, 3+8
7 7+12, 7+13, 7+17
@( 109+7, A13+6, 3+6, 26+4, 7+13
A13 A13+3, A13+5, A13+6
CKMRSL 3+7
DEL 109+5, A13+4
DONE 109+1, 109+2, A13+1, 3+1, 26+1, 7+10
FF 109+7, A13+6, 3+6, 26+4, 7+13
MRSL 3+4
S13 A13+2, A13+4

Naked Globals

Name Field # of Occurrence
^(0 PSGOE4+7, 3+2
^(1 PSGOE4+9*
^(2 PSGOE4+9!*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 109+5, A13+4, DEL+1*
DIC 3+8!*, MRSL+6~*, CKMRSL+6~*
DIC("A" MRSL+6*
DIC("S" 3+8*
DIC("T" CKMRSL+6*
DIC(0 3+8*, MRSL+6*, CKMRSL+6*
DOW 26+5*, 26+10, 26+13!
DTIME 109+2, A13+1, 3+1, 26+1, 7+10
F DONE+2!
F0 DONE+2!
F1 PSGOE4+8*, DONE+2!
F3 DONE+2!
>> FB FF+1*
I MRSL+4~*, MRSL+5, CKMRSL+4~*, CKMRSL+5
MRCNT MRSL+2~*, MRSL+3, CKMRSL+2~*, CKMRSL+3
MRTP MRSL+3~*, MRSL+5, MRSL+6, CKMRSL+3~*, CKMRSL+5, CKMRSL+6
PSG DONE+2!
>> PSGDO 109+2, 109+3, 109+4*, 109+5*, 109+10*
>> PSGDRG PSGOE4+9, 109+1, S13+1
PSGF2 109+4*, A13+3*, 3+3*, 26+2*, 7+12*, DONE+2!, FF+1
>> PSGFD PSGOE4+6*
PSGFOK PSGOE4+8!
PSGFOK(109 109+5*, 109+10*
PSGFOK(13 13+3*, S13+1*
PSGFOK(2 PSGOE4+8*, PSGOE4+9*
PSGFOK(26 26+8*, 26+10*
PSGFOK(3 3+2*, 3+9*
PSGFOK(7 7+11*, 7+15*, 7+18*, 7+19*
>> PSGHSM PSGOE4+6*
>> PSGMR PSGOE4+6*, PSGOE4+7, 3+1, 3+2, 3+3, 3+9*
>> PSGMRN PSGOE4+6*, PSGOE4+7*, 3+1, 3+2, 3+9*
>> PSGNEDFD PSGOE4+6, PSGOE4+7, PSGOE4+8, 26+8*, 26+11*, 7+11*, 7+15*, 7+16*
>> PSGNEFD PSGOE4+6*
>> PSGOE3 109+1, 13+2, 3+10, 26+9, 7+1
>> PSGOEDMR PSGOE4+6
>> PSGOEPR PSGOE4+6
PSGOES PSGOE4+6!
>> PSGOROE1 PSGOE4+6*, 109+1, 109+2*, A13+1*, 3+1*, 26+1*, 7+10*, DONE+1
>> PSGPDRG MRSL+2, CKMRSL+2
>> PSGPR PSGOE4+6*, PSGOE4+7
>> PSGPRN PSGOE4+7*
PSGS0XT 26+8, 26+10, 7+11*, 7+15*, MRSL+1~, CKMRSL+1~
PSGS0Y 26+5*, 7+11*, 7+15*, MRSL+1~, CKMRSL+1~
>> PSGSCH PSGOE4+6*, 26+1, 26+2*, 26+7, 26+8*, 26+10*, 26+11*, 7+4, 7+5, 7+6
7+7, 7+11*
PSGSD PSGOE4+6*, DONE+2!
>> PSGSI PSGOE4+6*
>> PSGSM PSGOE4+6*
>> PSGST PSGOE4+8*, 26+5*, 26+7*, 26+8*, 26+10*, 26+11, 26+12, 7+4*, 7+5*, 7+8*
7+9, 7+11, 7+15*, 7+16*, 7+18
>> PSGSTN PSGOE4+8*, 26+5*, 26+7*, 26+8*, 26+12*, 7+4*, 7+5*, 7+9*, 7+10, 7+11
7+15*, 7+16*
>> PSGUD PSGOE4+6*, 109+5*, A13+1, A13+2, A13+3, A13+4*, A13+9*, S13+1
PSJSLUP 26+6~*
>> PSJSYSP PSGOE4+9, S13+1
>> PSJSYSU PSGOE4+9, 109+1, 13+3
SDT DONE+2!
U MRSL+3, MRSL+5, CKMRSL+3, CKMRSL+5
>> X 109+2*, 109+3*, 109+4, 109+5, 109+6, 109+7, 109+8*, 109+9, 109+10, A13+1*
A13+2, A13+3*, A13+4, A13+5, A13+6, A13+7*, A13+8*, A13+9, 3+1*, 3+2*
3+3*, 3+4, 3+5, 3+6, 26+1*, 26+2*, 26+3, 26+4, 26+5, 26+6*
26+8, 26+10, 26+11, 7+10*, 7+11, 7+12*, 7+13, 7+14*, 7+15, 7+16
7+17*, MRSL+7*, MRSL+8*, CKMRSL+8*
XX 7+3~, 7+7*, 7+8
Y 109+7, A13+6, 3+6, 3+8, 3+9, 26+4, 7+13, 7+16*, DONE+1!, FF+1*
MRSL+6, MRSL+8, CKMRSL+7, CKMRSL+8
Y(0 3+9
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