Routine: PSDUTL

Information

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

Source file <PSDUTL.m>

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

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