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 |  Marked Items |  All
Print Page as PDF
Routine: PSGOE92

Package: Inpatient Medications

Routine: PSGOE92


Information

PSGOE92 ;BIR/CML3-ACTIVE ORDER EDIT (CONT.) ;27 Jan 98 / 9:32 AM

Source Information

Source file <PSGOE92.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 7 NEWUDAL^PSGAL5  DDOC^PSGOE82  ENHLP^PSGOEM  $$CODES2^PSIVUTL  CMPLX^PSJCOM1  (DOSECHK,DSPWARN)^PSJDOSE  $$COMPLEX^PSJOE  
VA Fileman 3 ^DIC  YN^DICN  ^DIE  
Registration 1 (FULL,PAUSE)^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGOE9  PSGOE91  

Entry Points

Name Comments DBIA/ICR reference
F41 ;;41^PSGOE91
YN ; yes/no as a set of codes
PSGF2 ;;2^PSGOE92
DEL ; delete entry
1 ; provider
A1
2 ; dispense drug multiple
A5
6 ; hospital supplied self med
5 ; self med
A6
ENFF ; up-arrow to another field
F34 ;;34^PSGOE91
72 ; provider comments
F10 ;;10^PSGOE91
F1 ;;1^PSGOE92
F3 ;;3^PSGOE9
15 ; comments
F5 ;;5^PSGOE92
F7 ;;7^PSGOE9
F8 ;;8^PSGOE91
PSGF26 ;;26^PSGOE9
F109 ;;109^PSGOE9
DONE ;
F101 ;;101^PSGOE9

External References

Name Field # of Occurrence
^DIC A1+7, ENFF+3
YN^DICN DEL+1
^DIE 2+7, 15+3
NEWUDAL^PSGAL5 2+26
DDOC^PSGOE82 2+9
ENHLP^PSGOEM A1+3, A1+5, A5+4, A5+6, A6+6, A6+8
$$CODES2^PSIVUTL ENFF+2
CMPLX^PSJCOM1 2+3
DOSECHK^PSJDOSE 2+11
DSPWARN^PSJDOSE 2+12
$$COMPLEX^PSJOE A1, 5+1, A6, 2+1, 15+1
FULL^VALM1 2+3
PAUSE^VALM1 A1+1, 5+2, A6+1, 15+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Provider may not be edited for active complex orders."
  • Line Location: A1+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: !!?5,"Self Med may not be edited for active complex orders."
  • Line Location: 5+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)," (Required)"
  • Line Location: A5+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+6
Function Call: WRITE
  • Prompt: !!?5,"Hospital Supplied Self Med may not be edited for active complex orders."
  • Line Location: A6+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: " (",$P("NO^YES","^",PSGHSM+1),")"
  • Line Location: A6+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A6+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A6+8
Function Call: WRITE
  • Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order."
  • Line Location: 2+3
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+8
Function Call: WRITE
  • Prompt: !!?5,"Comments may not be edited for active complex orders."
  • Line Location: 15+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 15+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ENFF+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: YN+2
Routine Call
  • DIE
  • Line Location:
    • 2+7
    • 15+3
Routine Call
  • DIC
  • Line Location:
    • A1+7
    • ENFF+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)
^PS(53.1 - [#53.1] 2+2
^PS(53.45 - [#53.45] 2+5, 2+8, 2+17, 2+18
^PS(55 - [#55] 2+2, 2+20, 2+21
^PSDRUG - [#50] 2+19, 2+22
^VA(200 - [#200] A1+4

Label References

Name Line Occurrences
6 A5+1, A5+5
@( A1+6, A5+3, A6+5, DONE+1
A1 A1+3, A1+6, A1+7
A5 A5+2, A5+3, A5+4, A5+6
A6 A6+4, A6+5, A6+6, A6+8
DONE A1, A1+2, A1+4, A1+8, 5+1, A5, A5+1, A5+5, A6, A6+2
, A6+3, A6+7, 2+27, 15+1, 15+3
ENFF A1+6, A5+3, A6+5
YN A5+5, A6+7

Naked Globals

Name Field # of Occurrence
^("PS" A1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEL+1*
>> BACK 1+1*, 5+3*, 6+1*, 2+4*, 15+3*, DONE+1
DA 2+7~*, 15+3*
>> DFN 2+20, 2+21, 2+26
DIC A1+7!*, ENFF+3!*
DIC("S" A1+7*, ENFF+3*
DIC(0 A1+7*, ENFF+3*
DIE 2+7~*, 15+3*
DR 2+7~*, 15+3*
DR(2 2+7*
DTIME A1+2, A5, A6+2
F DONE+2!
F0 DONE+2!
F3 DONE+2!
>> MSG 1+1*, 5+3*, 6+1*, A6+3*, A6+7*, 2+4*, 2+8*, 15+3*
>> ON 2+20, 2+21, 2+26
P2ND 2+2~*
PARENT 2+2~*, 2+3
PSG DONE+2!
PSGF2 1+1*, 5+3*, 6+1*, A6+3*, A6+7*, 2+4*, 15+3*, DONE+1, DONE+2!
>> PSGHSM A6+2, A6+3*, A6+7*
>> PSGOEE A1*, A1+2*, 5+1*, A5*, A6*, A6+2*, 15+1*, DONE+1*
>> PSGOEEF ENFF+1
>> PSGOEEF( 1+1, 5+3, 6+1, DONE+1, ENFF+2
>> PSGOEEF(109 2+12*
>> PSGOEEF(6 5+3!*, A5+1*, A5+5!*
PSGOEEND 2+4*, 2+27!
>> PSGORD 2+1, 2+2, 2+3
>> PSGP A1, 5+1, A6, 2+1, 2+2, 2+3, 15+1
>> PSGPR A1+2, A1+3, A1+4, A1+8*
>> PSGPRN A1+2, A1+4, A1+8*
>> PSGSM 5+3, A5, A5+1*, A5+5*
PSGX 2+5~*, 2+9
PSGXX 2+5~*, 2+6!
PSJDD55 2+16*, 2+20*, 2+21, 2+22, 2+27!
PSJDD55( 2+21*, 2+22
PSJDD551 2+16*, 2+22*, 2+26, 2+27!
PSJDDTMP 2+16*, 2+17*, 2+18, 2+19, 2+27!
PSJDDTMP( 2+18*, 2+19
PSJDOSE 2+10~
>> PSJDSFLG 2+12
PSJDTMP1 2+16*, 2+19*, 2+26, 2+27!
>> PSJORD A1, 5+1, A6, 15+1
>> PSJSYSP 2+5, 2+7, 2+8, 2+17, 2+18, 15+3
SDT DONE+2!
X A1+2*, A1+3*, A1+4*, A1+5, A1+6, A5*, A5+1, A5+2, A5+3, A5+4
, A5+5, A6+2*, A6+3, A6+4, A6+5, A6+6, A6+7, 2+2~, ENFF+2*, YN+1*
, YN+2
Y A1+6, A1+7, A1+8, A5+3, A6+5, 2+2~, ENFF+1*, ENFF+2*, ENFF+3*, YN+1*
, YN+2*
Y(0 A1+8

Marked Items

Name Field # of Occurrence
$T(@(3) ENFF+3
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 |  Marked Items |  All