Routine: ACMSTMP

Information

ACMSTMP ; IHS/TUCSON/TMJ - CREATE SEARCH TEMPLATE FOR CMS REPORTS ;

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE (,IX1)^DIK ^DIR

Package	Total	Caller Graph
Case Management System	1	ACMSRT

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN2+1
Function Call: WRITE	Prompt: !!,"No Search Template selected." Line Location: EN2+3
Function Call: WRITE	Prompt: !!,"A brief report will be printed after the search template is complete.",!,"You must enter a device for this report OR you may queue at this time.",! Line Location: BACK+2
Function Call: WRITE	Prompt: !!,?15,"*CASE MANAGEMENT SYSTEM, SEARCH TEMPLATE CREATION*" Line Location: HDR+1
Function Call: WRITE	Prompt: !!,?1,"Template Created: ",$P(^DIBT(ACMSTMP,0),U) Line Location: HDR+2
Function Call: WRITE	Prompt: !,?1,"Created by: ",$P(^VA(200,DUZ,0),U) Line Location: HDR+3
Function Call: WRITE	Prompt: !,"------------------------------------------------------------------------------",! Line Location: HDR+4
Routine Call	DIE Line Location: DUP+16
Routine Call	DIC Line Location: EN2+2
Routine Call	DIR Line Location: EN1+2 DUP+3

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	EN2+4, DUP+6, DUP+7, DUP+8*, DUP+9, DUP+11, DUP+13!, HDR+2
^VA(200 - [#200]	HDR+3

Name	Line Occurrences
EN1	EN
EN2	DUP

Name	Field # of Occurrence
>> ACMDIC	DUP+14
ACMSDIC	EXIT!
ACMSNAM	EXIT!, EN2+4*, DUP+8, DUP+12
ACMSTMP	EN2+4*, DUP!, DUP+6, DUP+7, DUP+8, DUP+9, DUP+11, DUP+13, DUP+14, DUP+15 , HDR+2
ACMSTN	EXIT!, DUP+7*
DA	DUP+3!, DUP+7, DUP+8, DUP+15*, DUP+17!
DHD	EXIT!, BACK+1*
>> DHIT	DUP+14*
>> DIC	EN2*
>> DIC("A"	EN2*
>> DIC("S"	EN2*
>> DIC(0	EN2*
DIE	DUP+15*, DUP+17!
>> DIK	DUP+7, DUP+8
DIR	EN1+3!, DUP+3!
DIR("A"	EN1, DUP+3
DIR("B"	EN1, DUP+3
DIR(0	EN1, DUP+3
>> DIRUT	DUP+4
DR	DUP+15*, DUP+17!
DT	DUP+15
DUZ	DUP+15, HDR+3
>> FLDS	BACK+1*
>> Q	DUP, DUP+1, DUP+4, DUP+5*
U	EN2+4, DUP, DUP+7, HDR+2, HDR+3
Y	EN1+4, EN2+3, EN2+4, DUP!, DUP+5