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

Package: Inpatient Medications

Routine: PSGOE92


Information

PSGOE92 ;BIR/CML3 - ACTIVE ORDER EDIT (CONT.) ;2/18/10 4:15pm

Source Information

Source file <PSGOE92.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Inpatient Medications 8 NEWUDAL^PSGAL5  (CLOZPRV,DDOC)^PSGOE82  ENHLP^PSGOEM  $$CODES2^PSIVUTL  CMPLX^PSJCOM1  (DOSECHK,DSPWARN)^PSJDOSE  $$COMPLEX^PSJOE  ($$PADECL,$$PADEWD,READDD)^PSJPAD50  
VA FileMan 4 (,LIST)^DIC  YN^DICN  ^DIE  $$GET1^DIQ  
List Manager 1 (FULL,PAUSE)^VALM1  
Registration 1 INP^VADPT  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Inpatient Medications 3 PSGOE9  PSGOE91  PSJCLOR4  

Entry Points

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

External References

Name Field # of Occurrence
^DIC A1+11, ENFF+3
LIST^DIC 2+7, 2+20, 2+38, 2+42
YN^DICN DEL+1
^DIE 2+28, 15+3
$$GET1^DIQ A1+7, 2+4, 2+13, 2+14, 2+15, 2+21, 2+22, 2+41, 2+45
NEWUDAL^PSGAL5 2+49
CLOZPRV^PSGOE82 A2
DDOC^PSGOE82 2+30
ENHLP^PSGOEM A1+5, A1+8, A5+4, A5+6, A6+6, A6+8
$$CODES2^PSIVUTL ENFF+2
CMPLX^PSJCOM1 2+5
DOSECHK^PSJDOSE 2+32
DSPWARN^PSJDOSE 2+33
$$COMPLEX^PSJOE A15+1, A62+3, 15+1
$$PADECL^PSJPAD50 2+17
$$PADEWD^PSJPAD50 2+18
READDD^PSJPAD50 2+26
INP^VADPT 2+24
FULL^VALM1 2+5
PAUSE^VALM1 A1+1, 5+2, A6+1, 2+2, 15+2
$$GET^XPAR 2+10

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
  • Variable: X
  • Timeout: DTIME
  • 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+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!?5,"Self Med may not be edited for active complex orders."
  • Line Location: 5+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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: !,"You are not authorized to edit Dispense Drugs."
  • Line Location: 2+2
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+5
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+29
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
  • DIC
  • Line Location:
    • A1+11
    • ENFF+3
Routine Call
  • DIC
  • Line Location:
    • 2+7
    • 2+20
    • 2+38
    • 2+42
Routine Call
  • DIE
  • Line Location:
    • 2+28
    • 15+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
^PS(53.45 - [#53.45] Classic Fileman Calls
53.4502 GET1^DIQ,  LIST^DIC
55.01 GET1^DIQ
55.06 GET1^DIQ
55.07 LIST^DIC

Label References

Name Line Occurrences
6 A5+1, A5+5
@( A1+9, A5+3, A6+5, DONE+1
A1 A1+5, A1+9, A1+11, A2+1
A2 A1+6
A5 A5+2, A5+3, A5+4, A5+6
A6 A6+4, A6+5, A6+6, A6+8
DONE A1A1+2, A1+7, A2+3, 5+1, A5A5+1, A5+5, A6A6+2
A6+3, A6+7, 2+50, 15+1, 15+3
ENFF A1+9, A5+3, A6+5
YN A5+5, A6+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEL+1*
ANQX A1+6, A2+1!
ARR1 2+42~
ARR1("DILIST" 2+43, 2+44
ARRAY 2+7~, 2+20~, 2+38~
ARRAY("DILIST" 2+7, 2+21, 2+29, 2+39, 2+40
>> BACK 1+1*, 5+3*, 6+1*, 2+6*, 15+3*, DONE+1
DA 2+11~, 2+28~*, 15+3*
DFN 2+11~, 2+19*, 2+22, 2+42, 2+49
DIC A1+11!*, 2+11~, ENFF+3!*
DIC("S" A1+11*, ENFF+3*
DIC(0 A1+11*, ENFF+3*
DIE 2+11~, 2+28~*, 15+3*
DIR 2+11~
DR 2+11~, 2+28~*, 15+3*
DR(2 2+28*
DTIME A1+2, A5A6+2
F DONE+2!
F0 DONE+2!
F3 DONE+2!
>> I 2+21*, 2+39*, 2+40, 2+43*, 2+44
>> MSG 1+1*, 5+3*, 6+1*, A6+3*, A6+7*, 2+6*, 2+29*, 15+3*
>> ON 2+42, 2+49
PARENT 2+4~*, 2+5
PSG DONE+2!
PSGF2 1+1*, 5+3*, 6+1*, A6+3*, A6+7*, 2+6*, 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+33*
>> PSGOEEF(6 5+3!*, A5+1*, A5+5!*
PSGOEEND 2+6*, 2+50!
>> PSGORD 2+3, 2+4, 2+5, 2+13, 2+14, 2+15, 2+19, 2+22, 2+26
>> PSGP A15+1, A62+3, 2+4, 2+5, 2+14, 2+15, 2+19, 15+1
>> PSGPDRG 2+26
>> PSGPR A1+2, A1+4, A1+5, A1+7, A2+1*, A2+3*
>> PSGPRN A1+2, A1+4, A1+7, A2+1*, A2+3*
>> PSGSM 5+3, A5A5+1*, A5+5*
PSGX 2+7~*, 2+30
PSJCLND 2+11~*, 2+13*, 2+14*, 2+15*, 2+16
PSJCLNK 2+11~, 2+17*, 2+18
PSJDD55 2+37*, 2+43*, 2+44, 2+45, 2+50!
PSJDD55( 2+44*, 2+45
PSJDD551 2+37*, 2+45*, 2+49, 2+50!
PSJDDC 2+11~, 2+21*
PSJDDTMP 2+37*, 2+39*, 2+40, 2+41, 2+50!
PSJDDTMP( 2+40*, 2+41
PSJDOSE 2+31~
PSJDRG 2+11~, 2+26
PSJDRG( 2+21*
>> PSJDSFLG 2+33
PSJDTMP1 2+37*, 2+41*, 2+49, 2+50!
PSJLOC 2+11~, 2+22*, 2+23*, 2+24*, 2+26
PSJORCL 2+11~, 2+16*, 2+17
PSJORD A15+1, A62+11~, 2+19*, 2+22, 2+26, 15+1
PSJPADLK 2+9~*, 2+25*, 2+28
>> PSJSYSP 2+7, 2+20, 2+21, 2+28, 2+38, 15+3
>> PSJSYSU 2+2
PSTMPI A1+4*, A2+1!
PSTMPN A1+4*, A2+1!
SDT DONE+2!
VAIN 2+24~
VAIN(4 2+18, 2+23, 2+24
X A1+2*, A1+5*, A1+7*, A1+8, A1+9, A5*, A5+1, A5+2, A5+3, A5+4
A5+5, A6+2*, A6+3, A6+4, A6+5, A6+6, A6+7, 2+4~, ENFF+2*, YN+1*
YN+2
Y A1+9, A1+11, A2+3, A5+3, A6+5, 2+4~, ENFF+1*, ENFF+2*, ENFF+3*, YN+1*
YN+2*
Y(0 A2+3

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 |  Label References |  Local Variables |  Marked Items  | All