Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: IG+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls