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 |  All
Print Page as PDF
Routine: PSDUTL

Package: Controlled Substances

Routine: PSDUTL


Information

PSDUTL ;BIR/CML,JPW,LTL-Utility Routine for FileMan Functions ; 21 Dec 94

Source Information

Source file <PSDUTL.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 2 DRUG  WARD (FOR DRUG)  
Controlled Substances 1 PSDGSK  
Drug Accountability 1 ^PSD(58.8  

Entry Points

Name Comments DBIA/ICR reference
IGSET
STAT ;sets order status cross-reference in file 58.85 (field 6)
KSTAT ;kills order status cross-reference in file 58.85 (field 6)
KAF ;kill 'AF' x-ref on field 3 in 58.81
KAD ;kills 'AD' x-ref in file 58.81 (field 10)
KREQ ;kills request # x-ref in file 58.85 (field 4)
KAFT ;kill 'AF' field 1 in 58.81
REQ ;sets request # x-ref in file 58.85 (field 4)
SAF ;set 'AF' x-ref on field 3 in 58.81
SAD ;sets 'AD' xref in file 58.81 (field 10)
DELR ;deletes inactivation reason when inactivation date deleted
SAFL ;set 'AF' (for loc) on field 3 in 58.81
KASITE ;kill 'ASITE' x-ref on field 2 in 58.8
SASITE ;set 'ASITE' x-ref on field 2 in 58.8
SAFT ;set 'AF' field 1 in 58.81
INACT ;check for inactive date on drug for 'D' x-ref (file 58.8)
NAOU ;checks for NAOU inpatient site
KASITE1 ;k 'ASITE' on field 1 in 58.8
KAFL ;kill 'AF' (for loc) on field 3 in 58.81
IG ;reset sort keys for inventory groups
SASITE1 ;set 'ASITE' x-ref on field 1

External References

Name Field # of Occurrence
^DIE IGSET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: IG+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: NAOU+2
Function Call: WRITE
  • Prompt: !!,"You must define a CS inpatient site for this NAOU.",!,"Use the 'Create the Narcotic Area of Use' option to add this data.",!!,"Press <RET> to continue "
  • Line Location: NAOU+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NAOU+2
Routine Call
  • DIE
  • Line Location:
    • IGSET+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] INACT+1, INACT+2, DELR+1, NAOU+2, SASITE+1, SASITE+2, SASITE+3*, KASITE+1, KASITE+2, KASITE+3!
, SASITE1+1, SASITE1+2*, KASITE1+1, KASITE1+2!
^PSD(58.81 - [#58.81] SAD+1, SAD+2*, KAD+1, KAD+2!, SAF+1, SAF+3*, KAF+1, KAF+3!, SAFL+1, SAFL+3*
, KAFL+1, KAFL+3!, SAFT+1, SAFT+3*, KAFT+1, KAFT+3!
^PSD(58.85 - [#58.85] STAT+1, STAT+3*, KSTAT+1, KSTAT+3!, REQ+1, REQ+3*, KREQ+1, KREQ+3!
^PSI(58.2 - [#58.2] IG+1, IGSET

Label References

Name Line Occurrences
IGSET IG+1

Naked Globals

Name Field # of Occurrence
^(0 DELR+1*, STAT+1, KSTAT+1, REQ+1, KREQ+1, SAF+1, KAF+1, SAFL+1, KAFL+1, SAFT+1
, KAFT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT IGSET*, IGSET+2!
D IGSET+2!
D0 IGSET+2!
D1 IGSET+2!
DA DELR+1, IGSET+1*, IGSET+2!, STAT+1, STAT+3, KSTAT+1, KSTAT+3, REQ+1, REQ+3, KREQ+1
, KREQ+3, SAD+1, SAD+2, KAD+1, KAD+2, SAF+1, SAF+3, KAF+1, KAF+3, SAFL+1
, SAFL+3, KAFL+1, KAFL+3, SASITE+1, SASITE+2, SASITE+3, KASITE+1, KASITE+2, KASITE+3, SASITE1+1
, SASITE1+2, KASITE1+1, KASITE1+2, SAFT+1, SAFT+3, KAFT+1, KAFT+3
DA(1 INACT+1, INACT+2, DELR+1, IGSET+1*
DA(2 INACT+1, INACT+2
DIC IGSET+2!
DIE IGSET+1*!, IGSET+2!
DQ IGSET+2!
DR IGSET+1*, IGSET+2!
DT INACT+2
DTIME NAOU+2
INVGRP IG+1*, IG+2!, IGSET, IGSET+1
IOF NAOU+2
NAOU IGSET*, IGSET+2!
NAOULP IGSET+2!
NAOULP( IGSET*, IGSET+1
NSK IGSET+1*, IGSET+2!
>> PSDA NAOU+2
PSDATT SAFL+1*, SAFL+2!, SAFL+3!, KAFL+1*, KAFL+2!, KAFL+3!, SAFT+1*, SAFT+2!, SAFT+3!, KAFT+1*
, KAFT+2!, KAFT+3!
PSDD STAT+1~*, STAT+2, STAT+3, KSTAT+1~*, KSTAT+2, KSTAT+3, REQ+1~*, REQ+2, REQ+3, KREQ+1~*
, KREQ+2, KREQ+3
PSDDS SASITE1+1*!, SASITE1+2!, KASITE1+1*!, KASITE1+2!
PSDFLAG INACT+1!*, INACT+2*
PSDNL STAT+1~*, STAT+2, STAT+3, KSTAT+1~*, KSTAT+2, KSTAT+3, REQ+1~*, REQ+2, REQ+3, KREQ+1~*
, KREQ+2, KREQ+3, SAD+1*!, SAD+2!, KAD+1*!, KAD+2!, SAF+1*, SAF+2!, SAF+3!, KAF+1*
, KAF+2!, KAF+3!, SAFT+1*, SAFT+2!, SAFT+3!, KAFT+1*, KAFT+2!, KAFT+3!
PSDREQ STAT+1~*, STAT+2, STAT+3, KSTAT+1~*, KSTAT+2, KSTAT+3
PSDTYPE SAF+1*, SAF+2!, SAF+3!, KAF+1*, KAF+2!, KAF+3!, SAFL+1*, SAFL+2!, SAFL+3!, KAFL+1*
, KAFL+2!, KAFL+3!, SASITE+2*, SASITE+3!, KASITE+2*, KASITE+3!
>> SITE NAOU+1*, NAOU+2*
SK IGSET*, IGSET+1*, IGSET+2!
X IGSET+2!, NAOU+2*, NAOU+3!, STAT+3, KSTAT+3, REQ+3, KREQ+3, SAD+2, KAD+2, SAF+3
, KAF+3, SAFL+3, KAFL+3, SASITE+3, KASITE+3, SASITE1+2, KASITE1+2, SAFT+3, KAFT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All