Routine: PSSDDUT3

Information

PSSDDUT3 ;BIR/LDT-Pharmacy Data Management DD Utility ; 09/17/97 14:35

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Inpatient Medications	3	$$EN^PSGCT $$ENSD^PSGNE3 ENT^PSIVWL
VA FileMan	2	(C,DW)^%DTC EN^DDIOL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Pharmacy Data Management	2	IV UNIT DOSE
Inpatient Medications	1	PSGOEE

Entry Points

Name	Comments	DBIA/ICR reference
ADTM	;UNIT DOSE MULTIPLE of PHARMACY PATIENT file (55) field 41
SPCIN	;UNIT DOSE MULTIPLE of PHARMACY PATIENT file (55) field 8
SCHTP	;Called from the Unit Dose Multiple of file 55, Schedule Type field 7
CHKSI	;Called from Unit Dose Multiple of file (55), Special Instructions
CHK1	;
EN2	;Called from Unit Dose multiple of file 55, STOP DATE/TIME field 34
ENGO	;
MWF	; if schedule is similar to monday-wednesday-friday
SCHK
CHK
TS
DONE	;
ADD	;
ENDL	;From DD(55.01,.03,0) Replaces call ENDL^PSIVSP
QDL
DLP	;
OV
QDLP
ENI	;^DD(555.01,.03,0)
SPSOL
CHK3
WRITE	;Calls EN^DDIOL to write text
AASCRN(PSSREC)	; Screen the RECOMMENDATION field (#.08) in APSPQA INTERVENTION file ; Input : PSSREC - IEN of APSP INTERVENTION RECOMMENDATION file (#9009032.5) entry ; Output : FALSE - Filter out 'UNABLE TO ASSESS' recommendations if not a NO ALLERGY ASSESSMENT intervention type, ; filter out all recommendation except 'OTHER' and 'UNABLE TO ASSESS' if not a NO ALLERGY ASSESSMENT intervention type ; Output : TRUE - Include only 'UNABLE TO ASSESS' and 'OTHER' recommendations if working on a NO ALLERGY ASSESSMENT intervention type, ; include all recommendatons except 'UNABLE TO ASSESS' and 'OTHER' if not working on a NO ALLERGY ASSESSMENT intervention type

External References

Name	Field # of Occurrence
C^%DTC	MWF+1, ADD+1, OV+2
DW^%DTC	MWF+1, SCHK
EN^DDIOL	CHKSI+4, EN2+3, ENDL+1, ENDL+2, OV, ENI+2, ENI+4, ENI+5, ENI+6, WRITE+1
$$EN^PSGCT	ENGO+9
$$ENSD^PSGNE3	ENGO+6
ENT^PSIVWL	ENDL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: QDL+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ENGO+6, ENGO+9, ENDL+4
^APSPQA(32.3 - [#9009032.3]	AASCRN+6
^APSPQA(32.4 - [#9009032.4]	AASCRN+6
^APSPQA(32.5 - [#9009032.5]	AASCRN+6, AASCRN+7
^DD("DD"	QDL
^PS(51 - [#51]	CHK1+1
^PS(55 - [#55]	EN2+2

Label References

Name	Line Occurrences
ADD	ENGO+12
CHK	MWF+1
CHK1	CHKSI+3
CHK3	DLP+1
DLP	ENDL+3
DONE	EN2+2, ENGO+8, ENGO+9, ENGO+12, MWF+1
MWF	ENGO+8
OV	DLP+2, DLP+3
QDL	ENDL+3
QDLP	DLP+1
SCHK	MWF+1
SPSOL	ENI+5
TS	CHK
WRITE	ADTM+3, SPCIN+3, SCHTP+13

Naked Globals

Name	Field # of Occurrence
^(0	CHK1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	DONE+1!
%T	DONE+1!
%Y	DONE+1!
>> AM	ENGO+9*
>> C	ENGO+12, MWF+1, SCHK+2, TS
>> DA	EN2+2, AASCRN+6
>> DA(1	EN2+2
>> DRG("SOL"	ENI+4, SPSOL
MN	ENGO+3*, ENGO+8, ENGO+9, DONE+1!, ADD+1
ND2	EN2+2*, ENGO+1, ENGO+2, ENGO+3, DONE+1!
ND4	DONE+1!
>> P(11	DLP+2, DLP+3, DLP+4, OV, OV+1, OV+3, CHK3*
>> P(15	ENDL+1, ENI+5, ENI+6
>> P(2	ENDL+1
>> P(23	ENDL+3, ENI+2
>> P(4	ENDL+3, ENI+1, ENI+2
>> P(5	ENDL+3, ENI+2
>> P(9	ENDL+3
PSGDL	ENGO+9, ENGO+12, MWF+1, SCHK+2, TS, DONE+1!
PSGDLS	EN2+2!, ENGO+2, DONE+1!
PSIVMIN	ENDL+1*, ENDL+2!, ENDL+3
>> PSIVSD	ENDL+1, DLP+1, DLP+2, DLP+3, DLP+4, OV+2
>> PSJSYSW0	ENGO+4, ENGO+5, ENGO+7
PSSHLP	WRITE+1!
PSSHLP(1	ADTM+1, SPCIN+1, SCHTP+1, SCHTP+2
PSSHLP(2	ADTM+2, SPCIN+2, SCHTP+3, SCHTP+4
PSSHLP(3	SCHTP+5, SCHTP+6
PSSHLP(4	SCHTP+7, SCHTP+8
PSSHLP(5	SCHTP+9, SCHTP+10
PSSHLP(6	SCHTP+11, SCHTP+12
PSSREC	AASCRN~, AASCRN+6, AASCRN+7
>> Q	ENGO+11, ENGO+12, MWF+1, SCHK, SCHK+2, ADD+1
Q1	TS*, DONE+1!
QQ	CHK*, DONE+1!
SCH	ENGO+1, ENGO+8, MWF+1, SCHK, CHK, DONE+1!
SPSOL	ENI+4!, ENI+5!, ENI+6!, SPSOL*
>> ST	ENGO+2, ENGO+6, ENGO+9, ENGO+10, ENGO+12, MWF+1, SCHK+2
TM	ENGO+10, ENGO+11, SCHK+2, DONE+1!
TS	ENGO+3, ENGO+6, ENGO+8, ENGO+9, ENGO+10, ENGO+11, ENGO+12, MWF+1, SCHK+2, TS , DONE+1!
U	ENGO+4, ENGO+5, ENGO+7, SPSOL
WKD	SCHK, CHK, DONE+1!
X	CHKSI+2!, CHKSI+3, CHKSI+4, CHK1+2!, ENGO+6, ENGO+9, ENGO+12, MWF+1, SCHK, SCHK+2* , CHK, TS, ADD+1, ENDL+1, ENDL+4, QDL, DLP+1, OV!, OV+1, OV+2 , OV+3, ENI+1!, ENI+2, ENI+3!, ENI+4!, ENI+5, ENI+6*
X1	MWF+1, SCHK, SCHK+2, TS, DONE+1!, ADD+1, DLP+4, OV+2*, QDLP!
X2	MWF+1, DONE+1!, ADD+1, DLP+1, DLP+2, OV+1*, OV+2, QDLP!
XXX	SPSOL*, SPSOL+1!
Y	CHKSI+3~, CHKSI+4, CHKSI+5!, CHK1+2, CHK1+3, ENDL+2, QDL, DLP+1, DLP+4, OV+1* , OV+3, CHK3
Y(1	CHKSI+3, CHKSI+4
Y(2	CHKSI+3, CHKSI+4, CHK1+1*, CHK1+2, CHK1+3

Customize PDF page

Package: Pharmacy Data Management