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

Package: Inpatient Medications

Routine: PSGOE3


Information

PSGOE3 ;BIR/CML3-ABBREV/WARD ORDER ENTRY ;09 JAN 97 / 10:42 AM

Source Information

Source file <PSGOE3.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Inpatient Medications 12 ENPREV^PSGDL  ($$ENDD,$$ENSTN)^PSGMI  (,ENFD)^PSGNE3  ^PSGOE31  (109,26,3)^PSGOE4  (10,8)^PSGOE41  ^PSGOE42  ENHLP^PSGOEM  
EN^PSGS0  ^PSGSICHK  $$CODES2^PSIVUTL  $$ENBCMA^PSJUTL  
VA Fileman 4 ^%DT  C^%DTC  ^DIC  YN^DICN  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGOE0  PSJOE1  

Entry Points

Name Comments DBIA/ICR reference
DEL ;
10 ; start date
26 ; schedule
A10
3 ; med route
109 ; dosage ordered
DONE ;
FF ; up-arrow to another field
GTFIELD ; Call ^PSGOE4 for the rest of the data to complete order entry
; PSGOE3 is set only if user is using the ABBREV/WARD ORDER ENTRY.
8 ; special instructions
SD ; stop date

External References

Name Field # of Occurrence
^%DT A10+5
C^%DTC A10+5
^DIC 3+6, FF+3
YN^DICN DEL+1
ENPREV^PSGDL A10+4
$$ENDD^PSGMI A10+4, A10+6
$$ENSTN^PSGMI PSGOE3+8
^PSGNE3 10+1
ENFD^PSGNE3 GTFIELD+9, SD+1
^PSGOE31 SD+3
109^PSGOE4 GTFIELD+3
26^PSGOE4 GTFIELD+5
3^PSGOE4 GTFIELD+4
10^PSGOE41 GTFIELD+7
8^PSGOE41 GTFIELD+6
^PSGOE42 GTFIELD+10
ENHLP^PSGOEM 109+7, 109+10, 3+3, 3+4, 26+2, 26+3, 26+5, 8+4, 8+6, 8+7
, A10+1, A10+5
EN^PSGS0 26+5
^PSGSICHK 8+7
$$CODES2^PSIVUTL FF+2
$$ENBCMA^PSJUTL 8+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS IS THE OLD DOSAGE ORDERED PROMPT!!",!
  • Line Location: 109+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 109+4
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 109+5
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: 109+10
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !,"SPECIAL INSTRUCTIONS: "_$S(PSGSI]"":$P(PSGSI,"^")_"// ",1:"")
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 8+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A10+0
Function Call: WRITE
  • Prompt: !,"START DATE/TIME: "_PSGSD_"// "
  • Line Location: A10+0
Function Call: WRITE
  • Prompt: " "_PSGSD
  • Line Location: A10+3
Function Call: WRITE
  • Prompt: A10
  • Condition for execution: '$D(X) $C(7) G:'$D(X)
  • Line Location: A10+4
Function Call: WRITE
  • Prompt: " ",PSGSD
  • Line Location: A10+4
Function Call: WRITE
  • Prompt: $C(7)," ...order not entered..."
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: FF+1
Function Call: WRITE
  • Prompt: " <NOTHING DELETED>"
  • Line Location: DEL+1
Routine Call
  • DIC
  • Line Location:
    • 3+6
    • FF+3

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.2 - [#51.2] PSGOE3+7, 3+2
^PS(53.45 - [#53.45] PSGOE3+9!*
^VA(200 - [#200] PSGOE3+7

Label References

Name Line Occurrences
10 8+2, 8+5
109 109+4, 109+5, 109+7, 109+8, 109+10
26 3+2, 26+2, 26+3, 26+4, 26+5
3 3+3, 3+5, 3+6
8 8+3, 8+4, 8+5, 8+6, 8+7
@( 109+8, 3+5, 26+4, 8+3, A10+2
A10 A10+1, A10+2, A10+4, A10+5
DEL 8+5
DONE 109+3, 3+1, 26+1, 8+1, A10
FF 109+8, 3+5, 26+4, 8+3, A10+2
SD A10+3, A10+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 8+5, DEL+1*
%DT A10+5!*
%DT(0 A10+5*
DIC 3+6!*, FF+3!*
DIC("S" 3+6*, FF+3*
DIC(0 3+6*, FF+3*
DTIME 109+3, 3+1, 26+1, 8+1, A10
F DONE+2!
F0 DONE+2!
F1 PSGOE3+6*, PSGOE3+8*, DONE+2!
F3 DONE+2!
>> FB FF+3*
>> PSGDO 109+3, 109+4, 109+11*
>> PSGDRG PSGOE3+9
>> PSGDT GTFIELD+9, A10+5, SD+1
PSGF2 109+7*, 3+3*, 26+2*, 8+3*, A10+2*, DONE+2!, FF+3
PSGFOK PSGOE3+6!, PSGOE3+8!, DONE+2!, FF+1
PSGFOK( FF+2
PSGFOK(10 A10+3*, A10+4*, A10+6*
PSGFOK(109 109+11*
PSGFOK(2 PSGOE3+8*, PSGOE3+9*
PSGFOK(26 26+6*
PSGFOK(3 3+2*, 3+7*
PSGFOK(8 8+2*, 8+5*, 8+8*
>> PSGHSM PSGOE3+6*
>> PSGMR PSGOE3+6*, PSGOE3+7, 3+1, 3+2, 3+3, 3+7*
>> PSGMRN PSGOE3+6*, PSGOE3+7*, 3+1, 3+2, 3+7*
>> PSGNEDFD PSGOE3+6, PSGOE3+7, PSGOE3+8, 26+8*
>> PSGNESD A10+3, A10+4*, A10+6*
>> PSGNESDO 10+1
PSGOE3 GTFIELD+2~*
>> PSGOEDMR PSGOE3+6
>> PSGOEORF SD+3
>> PSGOEPR PSGOE3+6
>> PSGOERR PSGOE3+6
PSGOES GTFIELD+9*!, SD+1*!
PSGOROE1 PSGOE3+6*, GTFIELD+3, GTFIELD+4, GTFIELD+5, GTFIELD+6, GTFIELD+7, 109+3*, 3+1*, 26+1*, 8+1*
, A10*, DONE+1, DONE+2!
>> PSGPR PSGOE3+6*, PSGOE3+7
>> PSGPRN PSGOE3+7*
>> PSGS0XT 26+6
>> PSGSCH PSGOE3+6*, 26+1, 26+2, 26+6*, 26+8*
PSGSD 10+1*, A10, A10+3, A10+4*, A10+6*, DONE+2!
>> PSGSI PSGOE3+6*, 8+1, 8+2, 8+4, 8+5*, 8+8*
>> PSGSM PSGOE3+6*
>> PSGST PSGOE3+8*, 26+6*, 26+8
>> PSGSTN PSGOE3+8*
>> PSGUD PSGOE3+6*
>> PSJOERR SD+3
>> PSJORPV PSGOE3+6
>> PSJSYSP PSGOE3+9
>> PSJSYSU PSGOE3+9, SD+3
>> PSJSYSW0 SD+3
SDT PSGOE3+6*, DONE+2!
TMPX A10+5~*
>> X 109+3*, 109+4*, 109+5, 109+7, 109+8, 109+9*, 109+10*, 109+11, 3+1*, 3+2*
, 3+3*, 3+4, 3+5, 26+1*, 26+2*, 26+3, 26+4, 26+5*, 26+6, 26+8
, 8+1*, 8+2*, 8+3, 8+4*, 8+5, 8+6, 8+7*, 8+8, A10*, A10+1*
, A10+2, A10+3*, A10+4, A10+5*, FF+2*
>> X1 A10+5*
>> X2 A10+5*
Y 109+8, 3+5, 3+6, 3+7, 26+4, 8+3, A10+2, A10+5, A10+6, DONE+1!
, FF+1*, FF+2*, FF+3*
Y(0 3+7
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