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

Package: Inpatient Medications

Routine: PSGOE31


Information

PSGOE31 ;BIR/CML3-ORDER ENTRY THROUGH OE/RR (CONT.) ;09 JAN 97 / 2:28 PM

Source Information

Source file <PSGOE31.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIE  
Inpatient Medications 1 ENHLP^PSGOEM  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGOE3  

Entry Points

Name Comments DBIA/ICR reference
A106
A1
DEL ;
YN ; yes/no as a set of codes
1 ; provider
DONE ;
2 ; dispense drug multiple
A5
FF ; up-arrow to another field
6 ; hospital supplied self med
5 ; self med
106 ; nature of order

External References

Name Field # of Occurrence
^DIC A1+5, FF+3
YN^DICN DEL+1
^DIE 2+2
ENHLP^PSGOEM A1+1, A1+3, A5+4, A5+6, 6+5, 6+7, A106+2, A106+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: " "_$P(^("PS"),"^",2)_" "_$P(^("PS"),"^",3)
  • Line Location: A1+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: !,"SELF MED: "
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGSM+1),"// "
  • Condition for execution: PSGSM]""
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: 6+7
Function Call: WRITE
  • Prompt: !,"This is an old nature of order call from ^PSGOE31.",!
  • Line Location: 106+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A106+0
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: A106+0
Function Call: WRITE
  • Prompt: $S(X=$P(Y,"^"):" "_$P(Y,"^",2),1:$P($P(Y,"^",2),X,2))
  • Line Location: A106+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A106+5
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
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!"
  • Line Location: 2+3
Routine Call
  • DIE
  • Line Location:
    • 2+2
Routine Call
  • DIC
  • Line Location:
    • A1+5
    • FF+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PS(53.45 - [#53.45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(53.1 FF+2
^PS(53.45 - [#53.45] 2+1, 2+3
^VA(200 - [#200] A1+2

Label References

Name Line Occurrences
106 5+1, A5+1, A5+2, A5+5, 6+2, 6+3, 6+6
5 1+1, A1+2
6 A5+1, A5+5, 6+3, 6+4, 6+5, 6+7
@( A1+4, A5+3, 6+4, A106+3, 2+4
A1 A1+1, A1+4, A1+5
A106 A106+2, A106+3, A106+5
A5 A5+2, A5+3, A5+4, A5+6
DEL A5+2, 6+3
DONE A1, A1+2, 5+1, A5, A5+1, A5+2, A5+5, 6+1, 6+2, 6+3
, 6+6, 106+3, A106, A106+1
FF A1+4, A5+3, 6+4, A106+3
YN A5+5, 6+6

Naked Globals

Name Field # of Occurrence
^("PS" A1+2
^(1 2+1*
^(2 2+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A5+2, 6+3, DEL+1*
DA 2+2!*
DIC A1+5!*, FF+3!*
DIC("S" A1+5*, FF+3*
DIC(0 A1+5*, FF+3*
>> DIE 2+2*
DR 2+2!*
DR( 2+2*
DTIME A1, A5, 6+1, A106
F DONE+2!
F0 DONE+2!
F1 DONE+2!
F3 DONE+2!
>> FB FF+3*, 2+4
>> PSGDRG 2+1
PSGF2 A1+1*, A5+2*, 6+4*, A106+2*, DONE+2!, FF+3
PSGFOK DONE+2!, FF+1
PSGFOK( FF+2
PSGFOK(1 A1+2*, A1+6*
PSGFOK(106 106+3*, A106+1*, A106+6*
PSGFOK(5 A5+1*, A5+5*
>> PSGHSM A5+2*, 6+1, 6+2*, 6+3*, 6+6*
>> PSGOEORF 5+1, A5+1, A5+2, A5+5, 6+2, 6+3, 6+6, 106+3
PSGOROE1 A1*, A5*, 6+1*, A106*, DONE+1, DONE+2!
>> PSGPR A1, A1+1, A1+2, A1+6*
>> PSGPRN A1, A1+2, A1+6*
PSGSD DONE+2!
>> PSGSM A5, A5+1*, A5+2*, A5+5*
>> PSGUD 2+1
>> PSJNOO A106+4*
>> PSJNOON A106, A106+1, A106+4*
>> PSJOERR 1+1, 106+3
>> PSJSYSP 2+1, 2+2, 2+3
>> PSJSYSU 1+1, 106+3
>> PSJSYSW0 A1+2, 5+1
SDT DONE+2!
>> X A1*, A1+1*, A1+2*, A1+3, A1+4, A5*, A5+1, A5+2, A5+3, A5+4
, A5+5, 6+1*, 6+2, 6+3, 6+4, 6+5, 6+6, A106*, A106+1, A106+2*
, A106+3, A106+4, A106+5*, FF+2*, YN+1*, YN+2
Y A1+4, A1+5, A1+6, A5+3, 6+4, A106+3, A106+4*, DONE+1!, FF+1*, FF+2*
, FF+3*, YN+1*, YN+2*
Y(0 A1+6
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