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

Package: Inpatient Medications

Routine: PSIVOPT


Information

PSIVOPT ;BIR/PR,MLM-OPTION DRIVER ;06 Aug 98 / 2:17 PM

Source Information

Source file <PSIVOPT.m>

Call Graph

Call Graph Total: 23

Package Total Call Graph
Inpatient Medications 19 ENL^PSGVDS  CKO^PSIVCHK  (EXPIR,HOLD)^PSIVOE  ($$IVDUPADD,ENLBL)^PSIVOPT  E^PSIVOPT1  (D,R)^PSIVOPT2  LOG^PSIVORAL  SHOW1^PSIVORC  
VF^PSIVORC2  (NATURE,ORPARM)^PSIVOREN  GT531^PSIVORFA  GT55^PSIVORFB  (EN,ENNH)^PSIVORV2  WP^PSJAC  EN1^PSJHL2  EN^PSJLIFN  
EN^PSJLIORD  $$LOCK^PSJOEA  CHK^PSJOEA1  
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Inpatient Medications 15 PSGOEC  PSGVBWP  PSIVOPT  PSIVOPT1  PSIVOPT2  PSIVORA  PSIVORC2  PSIVORE  
PSIVUWL  PSJADT0  PSJCOMR  PSJLIACT  PSJOE  PSJOE0  PSJPR  

Entry Points

Name Comments DBIA/ICR reference
CK ; Check if drugs are still valid.
ENARI(DFN,ON,PSGUOW,PSIVAL) ; Auto-reinstate IV orders if movement is deleted.
E ; Entry for Pharmacy edit
D ; Discontinue order.
O(DFN,ON,STAT,STOP) ; On/Off Call
UPSTAT ; Update orders status.
K ; Kill variables.
S ; View order.
VA200(X) ;Return the IEN for the user.
; X = User name
ENINP(DFN,ON) ; Entry from Inpatient Profile.
UNLOCK ; Unlock order.
R ; Renew order.
ENIN ; Entry for inpatient order entry/profile options.
EXPIR ; Update status of expired orders.
ACT ; Prompt for order action.
ENLBL(PSGTOL,PSGUOW,PSGP,PSGTOO,DA,RES) ;
IVDUPADD(PSGP,ORDERNUM) ;
H(DFN,ON,STAT,STOP)

External References

Name Field # of Occurrence
NOW^%DTC O+1, H+1, ENLBL+5, IVDUPADD+8
^DIC VA200+2
^DIE UPSTAT+1, ENARI+17
^DIK ENARI+25
ENL^PSGVDS ENLBL+5
CKO^PSIVCHK O+4, H+5
EXPIR^PSIVOE EXPIR+2
HOLD^PSIVOE H+5
$$IVDUPADD^PSIVOPT ENARI+11
ENLBL^PSIVOPT H+5, ENARI+26
E^PSIVOPT1 E+1
D^PSIVOPT2 D+1
R^PSIVOPT2 R+1
LOG^PSIVORAL O+4, H+5, ENARI+19
SHOW1^PSIVORC ENIN+1
VF^PSIVORC2 ACT+4, ACT+6
NATURE^PSIVOREN H+3
ORPARM^PSIVOREN ENARI+21
GT531^PSIVORFA ACT+4, ACT+6
GT55^PSIVORFB ENIN+2
EN^PSIVORV2 S+1, ENIN+2
ENNH^PSIVORV2 ENINP+1
WP^PSJAC ENLBL+2
EN1^PSJHL2 ENARI+22
EN^PSJLIFN ACT+7, ACT+9
EN^PSJLIORD ACT+3
$$LOCK^PSJOEA ACT+5
CHK^PSJOEA1 ACT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later."
  • Line Location: PSIVOPT+11
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later."
  • Line Location: PSIVOPT+12
Function Call: WRITE
  • Prompt: !,$C(7),"Only active orders may be placed on hold."
  • Line Location: O+2
Function Call: WRITE
  • Prompt: !,$C(7),"Only active orders may be placed on hold."
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !!,"Order unchanged."
  • Line Location: H+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: S+1
Function Call: WRITE
  • Prompt: $C(7)," This order has expired."
  • Line Location: EXPIR+2
Routine Call
  • DIE
  • Line Location:
    • UPSTAT+1
    • ENARI+17
Routine Call
  • DIC
  • Line Location:
    • VA200+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ENLBL+2
^PS( CK+2
^PS(53.1 - [#53.1] ACT+2, ACT+4, ACT+5, ACT+6, ACT+7
^PS(53.3 - [#53.3] ENARI+19
^PS(53.41 - [#53.41] ENARI+25
^PS(55 - [#55] PSIVOPT+10, UNLOCK+3, ACT+2, ENIN+3, ENARI+4, ENARI+5, ENARI+6, ENARI+8, ENARI+13!, ENARI+14
, ENARI+16, ENARI+21, ENLBL+4, ENLBL+5*, IVDUPADD+5, IVDUPADD+7, IVDUPADD+11, IVDUPADD+14, IVDUPADD+16, IVDUPADD+18
, IVDUPADD+20
^PSDRUG - [#50] CK+2
^TMP("PSJNOTUNDC" ENARI+11*
^TMP("PSJUNDC" ENARI+18*

Label References

Name Line Occurrences
$$VA200 ENARI+9
@( PSIVOPT+14, S+1, ENINP+1
ACT PSIVOPT+15
EXPIR O+1, H+1
K PSIVOPT+11, PSIVOPT+14
PSIVOPT ENIN+2
UPSTAT O+4, H+5, EXPIR+2

Naked Globals

Name Field # of Occurrence
^("I" CK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% K+1!, O+1, H+1, ENLBL+5, IVDUPADD+9
CHKIT ENARI+16~*
DA K+1!, UPSTAT+1~*, ENARI+12~, ENARI+15*, ENARI+25!*, ENARI+26!, ENLBL~, ENLBL+4, ENLBL+5
DA(1 UPSTAT+1*, ENARI+15*, ENARI+25*
DA(2 ENARI+25*
DA(3 ENARI+25*
DA(4 ENARI+25*
>> DATELOOP IVDUPADD+9*, IVDUPADD+11*, IVDUPADD+14
DFN PSIVOPT+10, UNLOCK+3, ACT+2, ACT+3, ACT+4, ACT+5, ACT+6, O~, H~, H+5
, S+1, UPSTAT+1, ENIN+1~*, ENIN+2*, ENIN+3, ENARI~, ENARI+13, ENARI+14, ENARI+15, ENARI+16
, ENARI+18, ENARI+21, ENARI+22, ENARI+25, ENARI+26, ENINP~, ENINP+1, ENLBL+5
DIC VA200+2~*
DIC(0 VA200+2*
DIE K+1!, UPSTAT+1~*, ENARI+12~, ENARI+15*
DIK K+1!, ENARI+12~, ENARI+25!*
DLAYGO K+1!
DNE K+1!
>> DONE PSIVOPT+15*, ACT+4*, ACT+10*
DR K+1!, UPSTAT+1~*, ENARI+12~, ENARI+14*, ENARI+16*
DRG K+1!, CK+2*
DRG( CK+1, CK+2
DRGI K+1!, CK+1*, CK+2
DRGT K+1!, CK+1*, CK+2
DT CK+2
>> DUPFOUND IVDUPADD+3*, IVDUPADD+5, IVDUPADD+11, IVDUPADD+14, IVDUPADD+18, IVDUPADD+23*, IVDUPADD+24
>> DUPLOOP IVDUPADD+2*, IVDUPADD+5*, IVDUPADD+7
DUZ H+5
ENTBY ENARI+8~, ENARI+9*
ERR K+1!, CK+2*
>> EXISTADD IVDUPADD+17*, IVDUPADD+18*, IVDUPADD+20
>> EXISTORD IVDUPADD+12*, IVDUPADD+14*, IVDUPADD+16, IVDUPADD+18, IVDUPADD+20
>> FIL CK+1*, CK+2
HELP K+1!
IOF S+1
J K+1!
>> MATCHADD IVDUPADD+20*, IVDUPADD+22
OD K+1!
ON PSIVOPT+10, UNLOCK+3, ACT+1*, ACT+2, ACT+3, ACT+4, ACT+5~*, ACT+6, ACT+7, ACT+9
, O~, H~, ENIN+1~*, ENIN+2*, ENARI~, ENARI+8, ENARI+13, ENARI+14, ENARI+15, ENARI+16
, ENARI+18, ENARI+19, ENARI+21, ENARI+25, ENARI+26, ENINP~, ENINP+1
ON55 PSIVOPT+10, UNLOCK+3, ACT+1, H+5, S+1, UPSTAT+1, ENIN+2*, ENARI+19*, ENARI+22, ENINP+1~
>> OR55 ENARI+2
ORDERNUM IVDUPADD~, IVDUPADD+5, IVDUPADD+7
P K+1!, ENIN+1~, ENLBL+3~
P("NAT" H+3
P("PON" ENIN+1*, ENIN+2*
P(12 ENARI+21*
P(17 O+3*, H+4*, EXPIR+1*, UPSTAT+1, ENARI+19*
P(3 ENARI+21*
P16 K+1!
>> PSGALO ENARI+11, ENARI+24
>> PSGDT ENLBL+5*
PSGFDX ACT+1~
>> PSGORD ENARI+2
>> PSGORNUM ENARI+2*, ENARI+3, ENARI+4, ENARI+5, ENARI+6, ENARI+11
PSGP ENIN+1, ENIN+2, ENARI+4, ENARI+5, ENARI+6, ENARI+8, ENARI+11, ENARI+25, ENLBL~, ENLBL+2
, ENLBL+4, IVDUPADD~, IVDUPADD+5, IVDUPADD+7, IVDUPADD+11, IVDUPADD+14, IVDUPADD+16, IVDUPADD+18, IVDUPADD+20
PSGSDX ACT+1~
PSGTOL ENARI+23*, ENARI+26, ENLBL~
PSGTOO ENLBL~
PSGUOW ENARI~, ENARI+25, ENARI+26, ENLBL~
PSIVAC PSIVOPT+13*, PSIVOPT+14, ENIN+1~*, ENINP+1~*
PSIVACT UPSTAT+1~*, ENARI+14*
PSIVAL K+1!, ENARI~, ENARI+19*
PSIVALCK ENARI+12~, ENARI+19*
PSIVALT O+3*, H+4*, ENARI+12~, ENARI+19*
PSIVC K+1!
PSIVLOCK PSIVOPT+8~*, PSIVOPT+10*, PSIVOPT+11
PSIVLOG K+1!
PSIVNOL K+1!
PSIVOK K+1!
PSIVOPT K+1!, ENARI+12~, ENARI+19*
PSIVREA K+1!, O+3*, H+4*, H+5, EXPIR+1*, UPSTAT+1, ENARI+12~, ENARI+19*
PSJACNWP ENLBL+2~
PSJACPF ENLBL+2~*
PSJCOM ACT+2*, ACT+4, ACT+5, ACT+8, ACT+9, IVDUPADD+1~, IVDUPADD+5*, IVDUPADD+16
PSJEDIT1 E+1~
PSJIVBD ACT+1!
>> PSJIVORF ENARI+21
PSJO ACT+5~*
PSJORD ACT+1*, ACT+5~*, ACT+8~*, ENIN+1, ENIN+2, ENIN+3, ENARI+2
>> PSJPRF ENIN+2
>> PSJSENTO( ENARI+4*, ENARI+5*, ENARI+6*, ENARI+9*
>> PSJSYSL ENLBL+2
>> PSJSYSW0 ENARI+24, ENLBL+2, ENLBL+4
>> PSJUNDC ENARI+19, ENARI+23, ENARI+24
PSJX ENARI+8~*, ENARI+9
RES ENLBL~, ENLBL+5
SCRNPRO K+1!
STAT O~, O+1, O+2, O+3*, O+4, H~, H+1, H+2, H+4*, H+5
, EXPIR+1, EXPIR+2*
STOP O~, O+1, H~, H+1
>> TARGET IVDUPADD+7*, IVDUPADD+22
TEX PSIVOPT+14*, K+1!, O+3, H+4
U ACT+4, ACT+6, ACT+7, CK+2, ENARI+4, ENARI+5, ENARI+6, ENARI+9, ENARI+14, ENARI+16
, ENARI+19, ENARI+21, ENARI+24, ENLBL+4, ENLBL+5, VA200+4
>> UWLFLAG PSIVOPT+14
X CK+2*, ENARI+12~, ENARI+13*, ENLBL+3~, ENLBL+4*, ENLBL+5, VA200~
XED PSIVOPT+14*, K+1!
Y ACT+5, ENARI+12~, ENARI+21*, ENLBL+3~, ENLBL+4*, ENLBL+5*, VA200+2~, VA200+3, VA200+4
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