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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSIVOPT2

Package: Inpatient Medications

Routine: PSIVOPT2


Information

PSIVOPT2 ;BIR/PR,MLM-OPTION DRIVER (CONT) ;29-May-2012 14:34;PLS

Source Information

Source file <PSIVOPT2.m>

Call Graph

Call Graph Total: 29

Package Total Call Graph
Inpatient Medications 22 ($$REQPROV,AC,ASET)^PSGOEC  ($$EXPIRED,EXPOE)^PSGOER  $$ENRNAT^PSGOU  ENQ^PSIV  ^PSIVCHK  EDIT^PSIVEDT  ^PSIVHLP  (ENARI,ENLBL)^PSIVOPT  
HL^PSIVORA  LOG^PSIVORAL  GTPD^PSIVORE2  (NATURE,ORPARM,RUPDATE,STIX)^PSIVOREN  SET55^PSIVORFB  ^PSIVORLB  GTOT^PSIVUTL  ^PSJCOMR  
EN1^PSJHL2  VF1^PSJLIACT  ORDCHK^PSJLIFN  ENUDTX^PSJOREN  EFDIV^PSJUTL  ($$DATE,$$DATE2)^PSJUTL2  
VA Fileman 4 NOW^%DTC  FILE^DICN  FILE^DIE  ^DIR  
IHS Changes To Pharmacy 2 $$INPTCOM^APSPFUNC  ($$OI,OI)^APSPMULT  
Pharmacy Data Management 1 ($$LS,UNL)^PSSLOCK  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Inpatient Medications 7 PSGOEC  PSIVOPT  PSIVOPT1  PSIVORA  PSIVOREN  PSIVSPDC  PSJADT0  

Entry Points

Name Comments DBIA/ICR reference
OK ;Print example label, run order through checker, ask if it is ok.
D ; Discontinue order.
UPDREN(DFN,ORD,RNWDT,PROV,OSTOPDT,PSJNOO) ;
RD ; Delete for renew.
R ; Renew order.
D1
RI ; Reinstate Auto-DC'ed order.
R1 ;

External References

Name Field # of Occurrence
NOW^%DTC D+15, RI+3
$$INPTCOM^APSPFUNC D+2
$$OI^APSPMULT R+5
OI^APSPMULT R+5
FILE^DICN UPDREN+5
FILE^DIE D1+8
^DIR RI+2, RI+4
$$REQPROV^PSGOEC D+6
AC^PSGOEC D+16
ASET^PSGOEC D+16
$$EXPIRED^PSGOER R1+1
EXPOE^PSGOER R1+15
$$ENRNAT^PSGOU R1+6
ENQ^PSIV OK+8
^PSIVCHK OK+2
EDIT^PSIVEDT R1+5, RI+6
^PSIVHLP OK+8
ENARI^PSIVOPT RI+7
ENLBL^PSIVOPT D1+10, R1+20
HL^PSIVORA D+14
LOG^PSIVORAL D+9, D+14
GTPD^PSIVORE2 OK+1
NATURE^PSIVOREN D+4, R1+10
ORPARM^PSIVOREN D1+11, R1+9
RUPDATE^PSIVOREN R1+13
STIX^PSIVOREN R1+21
SET55^PSIVORFB R1+12
^PSIVORLB OK+4
GTOT^PSIVUTL OK+1
^PSJCOMR R+2
EN1^PSJHL2 R1+17
VF1^PSJLIACT R1+19
ORDCHK^PSJLIFN R+4
ENUDTX^PSJOREN R1+17
EFDIV^PSJUTL OK+6
$$DATE^PSJUTL2 D1+1
$$DATE2^PSJUTL2 R1+4
$$LS^PSSLOCK D+12, R1+14
UNL^PSSLOCK R1+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Order Unchanged."
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !,$C(7),"Order Unchanged."
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !,$C(7),"Order Unchanged."
  • Line Location: D+6
Function Call: WRITE
  • Prompt: !
  • Line Location: R+4
Function Call: WRITE
  • Prompt: $C(7),"Sorry, this drug is not currently available in this facility"
  • Line Location: R+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"*** This change will cause a new order to be created. ***"
  • Line Location: OK+7
Function Call: WRITE
  • Prompt: !!,$C(7),"This order has been Auto-DC'ed."
  • Line Location: RI+1
Function Call: WRITE
  • Prompt: !!,$C(7),"This order's provider is no longer valid. Please enter a valid provider."
  • Line Location: RI+6
Function Call: WRITE
  • Prompt: $C(7),"Order unchanged."
  • Line Location: RI+6
Routine Call
  • DIE
  • Line Location:
    • D1+8
Routine Call
  • DIR
  • Line Location:
    • RI+2
    • RI+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OK+4
^PS(53.1 - [#53.1] D+16
^PS(55 - [#55] D+9, D+11, D+13, D+14, D1+1, D1+4, R+5, R1+4, R1+6, R1+13
, R1+14, RI+3
^VA(200 - [#200] RI+5

Label References

Name Line Occurrences
D1 D+8, D+14
OK R1+7, OK+8
R1 R1+7
RD R1+7, R1+10
RI R+3
UPDREN R1+17

Naked Globals

Name Field # of Occurrence
^(4 D+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% D+15, D1~, RI+3
>> CF D+16*
COMFLG D+10~*, D+11~*, D+12*, D+13
>> COMQUIT D+4*, D+6*, R+3*, R+6*, OK+2*, OK+3*
DA D+15!*, D1~, RI+1~, UPDREN+2!
DA(1 D+15*, UPDREN+4*
DA(2 UPDREN+4*
DD UPDREN+2!
DFN D+9, D+12, D+14, D+15, D1+1, D1+3, D1+4, D1+5, D1+6, D1+10
, R+5, R1+1, R1+4, R1+6, R1+13, R1+14, R1+15, R1+17, R1+19, R1+20
, R1+21, RI+3, RI+7, UPDREN~, UPDREN+1, UPDREN+3, UPDREN+4
DIC UPDREN+2!, UPDREN+3*, UPDREN+4*
DIC("DR" UPDREN+5*
DIC("P" UPDREN+4*
DIC(0 UPDREN+4*
DIE D1~, RI+1~, UPDREN+2!
DINUM UPDREN+4*, UPDREN+7!
DIR RI+1~, RI+2!, RI+4!
DIR("A" RI+2*, RI+4*
DIR(0 RI+2*, RI+4*
DIU D1~, RI+1~
DO UPDREN+2!, UPDREN+7!
>> DONE RI+6
DR RI+1~, UPDREN+2!
DT RI+5
>> DUOUT OK+2
DUZ D+16, D1+10, R1+20, RI+7, UPDREN+5
>> EDIT R1+5*, RI+6*
ERR R+3~, OK+3, OK+8, RI+2*, RI+4*, RI+5*, RI+6*
>> HELP OK+8*
INCOM D+1~, D+2*, D+3
ND0 UPDREN+2~, UPDREN+3*
>> ND14 UPDREN+4*
NSTOP D1~, D1+1*, D1+3, D1+6
O D+11~*, D+13~*
>> OD R1+18*
OI R+5~*
>> ON D+9*, D+14*, R1+11*, RI+7, UPDREN+3
>> ON55 D+9, D+11, D+12, D+14*, D1+1, D1+3, D1+4, D1+5, D1+6, D1+10
, R1+1, R1+4, R1+6, R1+11, R1+13, R1+14, R1+15, R1+17, R1+19, R1+20
, R1+21, RI+3
OO D+11~*, D+12, D+13~*, D+14, D+15
ORD UPDREN~, UPDREN+1, UPDREN+3, UPDREN+4
OREASON R1+4~, R1+9*, R1+12
OSTOPDT UPDREN~, UPDREN+1, UPDREN+5
>> P("21FLG" R1+12*
>> P("FRES" R1+9*
>> P("NAT" D+4, D+15, R1+9, R1+10, R1+17
>> P("PD" OK+1
>> P("RES" R1+9*, R1+12*, R1+16*
>> P(11 R1+6*
>> P(12 R+3
>> P(16 R1+12*
>> P(17 D1+1*, R+3, R1+9*
>> P(2 R1+4, R1+5*, R1+13, R1+18, OK+4
>> P(3 D+9*, D+14*, OK+4
>> P(4 OK+1
>> P(6 R1+17, RI+5
>> P(9 R1+6
>> P16 OK+1*
P2 R1+5*!
PROV UPDREN~, UPDREN+1, UPDREN+5
PSGALO D1+10, RI+7~*
>> PSGALR D+15*
>> PSGDT D+15*, R1+4
PSGOEORD UPDREN+2~, UPDREN+3*, UPDREN+5
>> PSGOLDOE UPDREN+3
PSGORD D+15~*, D+16
PSGORQF R+4~, R+6
>> PSGP D+15*
>> PSGUOW D1+10
>> PSIVAC D1+10
PSIVACT D1+7*, R1+12*, RI+1~
PSIVALCK D+9*, D+14*, RI+1~
PSIVALT D+9*, D+14*, RI+1~
>> PSIVCHG R1+8*, OK+7
>> PSIVCT OK+1*
PSIVEXAM OK+1*, OK+4!
>> PSIVNOL OK+1*
>> PSIVOK R1+5*, RI+6*
PSIVREA D+9*, D+14*, OK+7, RI+1~
PSIVRNFG R+4*!
>> PSJCOM D+7, D+10, D+11, D+13, R+2
>> PSJIVORF D1+11, R1+9, R1+14
PSJNOO D+15~*, UPDREN~, UPDREN+1
PSJORD D+14~*, D+15~*, R+5
>> PSJORIFN R1+12*
PSJOSTOP R1+4~*, R1+17, R1+21
>> PSJREN R1+16*
PSJRNWDT R1+4~*, R1+5, R1+17
>> PSJSYSP0 D+16
>> PSJSYSU D+15
>> PSJSYSW0 D1+10
RNWDT UPDREN~, UPDREN+1, UPDREN+5
STP D1~, D1+1*, D1+4
>> T D+15*
TMP D1+2!, D1+9!
TMP( D1+3*, D1+4*, D1+5*, D1+6*
U D+9, D+14, D+16, D1+1, D1+4, D1+10, R1+4, R1+6, R1+7, R1+13
, R1+14, RI+3, RI+5
>> VAIN(4 R1+6
>> X D1+10*, R1+5, R1+7, R1+14*, OK+2*, OK+3*, OK+8*, RI+5*, UPDREN+5*
>> Y OK+4*, RI+2, RI+4
>> ZZND OK+6

Marked Items

Name Field # of Occurrence
$T(OI^APSPMULT R+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All