Routine: BUD2STMP

Information

BUD2STMP ; IHS/CMI/LAB - CREATE SEARCH TEMPLATE FOR PGEN (PATIENT) REPORTS ;

Source file <BUD2STMP.m>

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE (,IX1)^DIK ^DIR
IHS Uniform Data System	1	PAUSE^BUD2UPVL

Package	Total	Caller Graph
IHS Uniform Data System	1	BUD2RPTS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* You may enter an existing Template Name or Save results in a New Template *" Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: EN2+1
Function Call: WRITE	Prompt: !!,"No Search Template selected." Line Location: EN2+3
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT.",! Line Location: SETRECS+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: SETRECS+3
Routine Call	DIE Line Location: DUP+16
Routine Call	DIC Line Location: EN2+2
Routine Call	DIR Line Location: DUP+3

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	EN2+4, DUP+6, DUP+7, DUP+8, DUP+9, DUP+11, DUP+13!, SETRECS+4
^XTMP("BUDVL"	SETRECS+2, SETRECS+3

Name	Line Occurrences
EN1	EN+1
EN2	DUP

Name	Field # of Occurrence
>> BUDBTH	SETRECS+2, SETRECS+3
>> BUDDFN	SETRECS+2*, SETRECS+4
>> BUDJOB	SETRECS+2, SETRECS+3
BUDQUIT	EN1+1!, EN2+3*
BUDSDIC	EXIT!
BUDSNAM	EXIT!, EN2+4*, DUP+8, DUP+12
BUDSTMP	EN2+4*, DUP!, DUP+6, DUP+7, DUP+8, DUP+9, DUP+11, DUP+13, DUP+14, DUP+15 , SETRECS+4
BUDSTN	EXIT!, DUP+7*
DA	DUP+3!, DUP+7, DUP+8, DUP+15*, DUP+17!
DHD	EXIT!
>> DHIT	DUP+14*
DIC	EN2!*, EN2+2!
DIC("A"	EN2*
DIC("S"	EN2*
DIC(0	EN2*
DIE	DUP+15*, DUP+17!
>> DIK	DUP+7, DUP+8
DIR	DUP+3!
DIR("A"	DUP+3*
DIR("B"	DUP+3*
DIR(0	DUP+3*
>> DIRUT	DUP+4
DLAYGO	EN2!*, EN2+2!
DR	DUP+15*, DUP+17!
DT	DUP+15
DUZ	DUP+15
IOF	SETRECS+3
>> Q	DUP, DUP+1, DUP+4, DUP+5*
U	EN2+4, DUP, DUP+7
Y	EN2+3, EN2+4, DUP!, DUP+5