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

Package: Inpatient Medications

Routine: PSGOE42


Information

PSGOE42 ;BIR/CML3-REGULAR ORDER ENTRY (CONT.) ;09 JAN 97 / 9:25 AM

Source Information

Source file <PSGOE42.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGOE3  PSGOE4  PSGOE41  

Entry Points

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

External References

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

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: $C(7)," <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

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)
^PS(53.45 - [#53.45] 2+1, 2+3
^VA(200 - [#200] A1+2

Label References

Name Line Occurrences
1 A1+1, A1+4, A1+5
5 1+1, A1+2
6 A5+5, 6+3, 6+4, 6+5, 6+7
@( A1+4, A5+3, 6+4, 2+5
A5 A5+2, A5+3, A5+4, A5+6
DEL A5+2, 6+3
DONE 1+1, A1, 5+1, A5, A5+1, A5+2, A5+5, 6+1, 6+2, 6+3
, 6+6
FF A1+4, A5+3, 6+4
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!*
DIC("S" A1+5*
DIC(0 A1+5*
>> DIE 2+2*
DR 2+2!*
DR(2 2+2*
DTIME A1, A5, 6+1
F DONE+1!
F0 DONE+1!
F1 DONE+1!
F3 DONE+1!
>> FB 2+5
PSG DONE+1!
>> PSGDRG 2+1
PSGF2 A1+1*, A1+3*, A5+3*, A5+4*, 6+4*, 6+7*, DONE+1!
>> PSGFOK(1 A1+2*, A1+6*
>> PSGFOK(13 2+2, 2+4
>> PSGFOK(5 A5+5*
>> PSGHSM A5+2*, 6+1, 6+2*, 6+3*, 6+6*
>> PSGOROE1 A1*, A5*, 6+1*
>> PSGPR A1, A1+1, A1+2, A1+6*
>> PSGPRN A1, A1+2, A1+6*
>> PSGSM A5, A5+1*, A5+2*, A5+5*
>> PSGUD 2+1
>> PSJSYSP 2+1, 2+2, 2+3
>> PSJSYSU 1+1
>> PSJSYSW0 1+1, 5+1
SDT DONE+1!
>> 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, YN+1*, YN+2
>> Y A1+4, A1+5, A1+6, A5+3, 6+4, FF+1*, 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