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

Customize PDF page

Package: Controlled Substances

Routine: PSDUTL

Call Graph Total: 1

Caller Graph Total: 4