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

Package: Inpatient Medications

Routine: PSGOE82


Information

PSGOE82 ;BIR/CML3-NON-VERIFIED ORDER EDIT (CONT.) ;27 Jan 98 9:32 AM

Source Information

Source file <PSGOE82.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Inpatient Medications 8 $$ACTPRO^PSGOE1  ENHLP^PSGOEM  $$CODES2^PSIVUTL  ($$ISCLOZ,PROVCHK)^PSJCLOZ  (DOSECHK,DSPWARN)^PSJDOSE  $$LASTREN^PSJLMPRI  ALLERGY^PSJOC  ($$PADECL,$$PADEWD,READDD)^PSJPAD50  
VA FileMan 4 (,LIST)^DIC  YN^DICN  ^DIE  $$GET1^DIQ  
List Manager 1 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: 5

Package Total Caller Graph
Inpatient Medications 5 PSGOE8  PSGOE81  PSGOE92  PSGOER0  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
40 ; comments
66 ; provider comments
DONE ;
ENFF ; up-arrow to another field
DEL ; delete entry
CLOZPRV ;; START NCC T4 MODS >> 327*RJS
YN ; yes/no as a set of codes
DDOC(PSGX) ; Order check on additional dispense drug for allergy and adv. reactions.
F101 ;;101^PSGOE8
F109 ;;109^PSGOE8
F3 ;;3^PSGOE8
F7 ;;7^PSGOE8
PSGF26 ;;26^PSGOE8
F39 ;;39^PSGOE81
F8 ;;8^PSGOE81
F10 ;;10^PSGOE81
PSGF25 ;;25^PSGOE81
F1 ;;1^PSGOE82
F5 ;;5^PSGOE82
PSGF2 ;;2^PSGOE82

External References

Name Field # of Occurrence
^DIC A1+13, ENFF+3
LIST^DIC 2+4, 2+17
YN^DICN DEL+1
^DIE 2+29, 40+1
$$GET1^DIQ A1+9, 2+5, 2+12, 2+15, 2+18, 2+19, 2+20, 2+21, CLOZPRV+1, CLOZPRV+2
$$ACTPRO^PSGOE1 A1+3
ENHLP^PSGOEM A1+8, A1+11, A5+5, A5+7, A6+4, A6+6
$$CODES2^PSIVUTL ENFF+2
$$ISCLOZ^PSJCLOZ CLOZPRV+1, CLOZPRV+2, CLOZPRV+3
PROVCHK^PSJCLOZ CLOZPRV+6
DOSECHK^PSJDOSE 2+33
DSPWARN^PSJDOSE 2+34
$$LASTREN^PSJLMPRI A1
ALLERGY^PSJOC DDOC+5
$$PADECL^PSJPAD50 2+13
$$PADEWD^PSJPAD50 2+14
READDD^PSJPAD50 2+27
INP^VADPT 2+25
PAUSE^VALM1 A1+1, 2+2
$$GET^XPAR 2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"This order has been renewed. Provider may not be edited at this point. "
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A1+6
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+8
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),"// "
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A5+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A6+0
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: A6+0
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: A6+0
Function Call: WRITE
  • Prompt: " (",$P("NO^YES","^",PSGHSM+1),")"
  • Line Location: A6+1
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A6+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A6+6
Function Call: WRITE
  • Prompt: !,"You are not authorized to edit Dispense Drugs."
  • Line Location: 2+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+30
Function Call: WRITE
  • Prompt: !
  • Line Location: 40+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 66+1
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+13
    • ENFF+3
Routine Call
  • DIC
  • Line Location:
    • 2+4
    • 2+17
Routine Call
  • DIE
  • Line Location:
    • 2+29
    • 40+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.45 - [#53.45] 2+30, DDOC+2, DDOC+8!

Label References

Name Line Occurrences
6 A5+2, A5+6
@( A1+12, A5+4, A6+3, DONE+1
A1 A1+8, A1+12, A1+13, A2+1
A2 A1+10
A5 A5+3, A5+4, A5+5, A5+7
A6 A6+2, A6+3, A6+4, A6+6
CLOZPRV A2
DDOC 2+31
DONE A1+7, A1+9, A2+3, A5, A5+2, A5+6, A6, A6+1, A6+5, 2+35
, 40+1
ENFF A1+12, A5+4, A6+3
YN A5+6, A6+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEL+1*
ANQX A1+9, A1+10, A2*, A2+1!, CLOZPRV+6*, CLOZPRV+7
ARRAY 2+4~, 2+17~
ARRAY("DILIST" 2+4, 2+18
>> BACK 1+1*, 5+1*, 6+1*, 2+3*, 40+1*, DONE+1
BKP A1+3~*, A1+7
BKPN A1+3~*, A1+7
CLOZFLG CLOZPRV+1~*, CLOZPRV+2*, CLOZPRV+3*, CLOZPRV+4
DA 2+10~, 2+29~*, 40+1*
DFN 2+10~, 2+16*, 2+21
DIC A1+13!*, 2+10~, 2+29~, ENFF+3!*
DIC("S" A1+13*, ENFF+3*
DIC(0 A1+13*, ENFF+3*
DIE 2+10~, 2+29~*, 40+1*
DIR 2+10~, 2+29~
DR 2+10~, 2+29~*, 40+1*
DR(2 2+29*
DTIME A1+6, A5, A6
F DONE+2!
F0 DONE+2!
F3 DONE+2!
>> I 2+18*
INTERVEN DDOC+3~, DDOC+4*
>> MSG 1+1*, 5+1*, 6+1*, A6+1*, A6+5*, 2+3*, 2+30*, 40+1*
PSG DONE+2!
>> PSGDRG CLOZPRV+3
PSGF2 1+1*, 5+1*, 6+1*, A6+1*, A6+5*, 2+3*, 40+1*, DONE+1, DONE+2!
>> PSGHSM A6, A6+1*, A6+5*
PSGND1 DDOC+1~
PSGND3 DDOC+1~
>> PSGOEE A1+7*, A5*, A6*, DONE+1*
>> PSGOEEF ENFF+1
>> PSGOEEF( 1+1, 5+1, 6+1, DONE+1, ENFF+2
>> PSGOEEF(109 2+34*
>> PSGOEEF(6 5+1!*, A5+2*, A5+6!*
PSGOEEND 2+3!
>> PSGORD A1, 2+5, 2+12, 2+15, 2+16, 2+21, 2+27, CLOZPRV+1, CLOZPRV+2
PSGORQF DDOC+3~, DDOC+7
>> PSGP A1, 2+16, CLOZPRV+2
>> PSGPD 2+20, 2+27
>> PSGPR A1+3*, A1+5, A1+6, A1+7*, A1+8, A1+9, A2+1*, A2+3*, CLOZPRV+5*, CLOZPRV+6
>> PSGPRN A1+3*, A1+5, A1+6, A1+7*, A1+9, A2+1*, A2+3*, CLOZPRV+5*
>> PSGSM 5+1, A5, A5+2*, A5+6*
PSGX 2+4~*, 2+31, DDOC~, DDOC+2*, DDOC+8
PSGY DDOC+1~, DDOC+2*, DDOC+3, DDOC+8
PSJACT A1+3~*, A1+7
>> PSJALGY1 DDOC+5
PSJALLGY DDOC+1~
PSJALLGY( DDOC+5*
PSJCLND 2+10~, 2+21*, 2+22
PSJCLNK 2+10~, 2+13*, 2+14
PSJDD DDOC+3~*, DDOC+5
PSJDDC 2+10~, 2+18*, 2+19
PSJDDI DDOC+3~
PSJDOSE 2+32~
PSJDRG 2+10~, 2+27
PSJDRG( 2+18*, 2+19
>> PSJDSFLG 2+34
PSJIREQ DDOC+3~, DDOC+4*
PSJLOC 2+10~, 2+22*, 2+24*, 2+25*, 2+27
PSJORCL 2+10~, 2+12*, 2+13
PSJORD 2+10~, 2+16*, 2+21, 2+27
PSJPADLK 2+8~*, 2+26*, 2+29
PSJPDRG DDOC+3~
PSJPNDRN 2+5~*, 2+6*, 2+29
PSJPOI 2+10~, 2+15*, 2+18, 2+19*, 2+20*, 2+27
PSJRXREQ DDOC+3~, DDOC+4*
>> PSJSYSP 2+4, 2+17, 2+18, 2+29, 2+30, 40+1, DDOC+2, DDOC+8
>> PSJSYSU 2+2
PSTMPI A1+5*, A2+1!, CLOZPRV+7!
PSTMPN A1+5*, A2+1!, CLOZPRV+7!
SDT DONE+2!
VAIN 2+25~
VAIN(4 2+14, 2+24, 2+25
>> X A1+6*, A1+7, A1+8*, A1+9*, A1+11, A1+12, A5*, A5+2, A5+3, A5+4
, A5+5, A5+6, A6*, A6+1, A6+2, A6+3, A6+4, A6+5, ENFF+1, ENFF+2*
, YN+1*, YN+2, DDOC+4*
>> Y A1+12, A1+13, A2+3, A5+4, A6+3, ENFF+1*, ENFF+2*, ENFF+3*, CLOZPRV+5, YN+1*
, YN+2*, DDOC+4*
>> Y(0 A2+3, CLOZPRV+5

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