Routine: APSPDUE

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIR
IHS Changes To Pharmacy	1	^APSPDUED

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
DRUGX	; Exit point from DRUG subroutine
END
DISPX
EOJ	; Clean up local variables
DUE	; Do lookup of DUE Criteria name
DRUG	; Do lookup of DRUG names
ASKX	; Exit point from ASK subroutine
START	;
ADD	; Add to DUR multiple in Drug File
NAMES	; Add to DUR multiple in Drug File for Multiple Drug Entires
DUEX	; Exit point from DUE subroutine
ASK	; Ask if want to delete or add

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DUE+7
Function Call: WRITE	Prompt: !!,"The following drugs have been marked to be part of this study",! Line Location: DISP+2
Function Call: WRITE	Prompt: ?45 Condition for execution: APSPDUE("CNT") Line Location: DISP+4
Function Call: WRITE	Prompt: $P(^(0),U,1) Line Location: DISP+4
Function Call: WRITE	Prompt: ! Line Location: DISP+5
Function Call: WRITE	Prompt: !,"Do you want to include all drugs beginning with this name " Line Location: DRUG+5
Function Call: WRITE	Prompt: !!,"If you enter Yes, all drugs in the drug file beginning with the first part of",!,"the drug name you selected will automatically be included.",!! Line Location: DRUG+7
Function Call: WRITE	Prompt: "." Line Location: ADD+6
Function Call: WRITE	Prompt: "Done" Line Location: ADD+7
Function Call: WRITE	Prompt: "." Line Location: NAMES+8
Routine Call	DIE Line Location: ADD+5 NAMES+7
Routine Call	DIC Line Location: DUE+3 DRUG+3
Routine Call	DIR Line Location: ASK+6

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^APSPDUE(32.1 - [#9009032.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	DISP+4, DRUG+8, NAMES+4
^PSDRUG("APSPCN"	DISP+1, DISP+4, NAMES+4
^PSDRUG("B"	NAMES+3
^TMP("APSPDUE"	START+1!, DRUG+9*, ADD+2, EOJ+1!

Name	Field # of Occurrence
^(0	DISP+4, DRUG+8

Name	Field # of Occurrence
%	DRUG+5*, DRUG+7, DRUG+8, EOJ+1!
APSPDUE	START+4, START+5, ASK+7*, EOJ+1!
APSPDUE("CLASS"	NAMES+2, NAMES+3
APSPDUE("CNT"	DISP+3, DISP+4
APSPDUE("DFN"	NAMES+1, NAMES+3, NAMES+4, NAMES+6
APSPDUE("DRUGS"	START+6, DRUG+8, DRUG+9, DRUGX+1!, ADD+1, ADD+2*, ADD+3, NAMES+2, NAMES+3
APSPDUE("NAME"	START+3, DUE+5*, DUEX+1!, DISP+1, DISP+4, ADD+4, NAMES+4, NAMES+5
APSPDUEI	DISP+4*, DISP+6!, EOJ+2!
DA	DUEX+1!, DRUGX+1!, ADD+3, ADD+5!, NAMES+6, NAMES+7!, EOJ+1!
DIC	DUE+1, DUEX+1!, DRUG+1, DRUGX+1!, EOJ+1!
DIC("A"	DUE+2, DRUG+2
DIC(0	DUE+1, DRUG+1
DIE	ADD+3, ADD+5!, NAMES+5, NAMES+7!
DIR	EOJ+1!
DIR("?"	ASK+3, ASK+4, ASK+5*
DIR("B"	ASK+2*
DIR(0	ASK+1*
DO	ADD+5!, NAMES+7!
DR	ADD+4, NAMES+5, NAMES+7!
DTOUT	ASK+7, EOJ+1!
DUOUT	ASK+7, EOJ+1!
I	ADD+2, NAMES+3, EOJ+1!
U	DISP+4
X	DUE+4, DUEX+1!, DRUG+4, DRUGX+1!, ADD+5!, NAMES+7!, EOJ+1!
Y	DUE+4, DUE+5, DUEX+1!, ASK+7, DRUG+4, DRUG+8, DRUGX+1!, ADD+5!, NAMES+7!, EOJ+1!