Routine: ACMDXIT

Information

ACMDXIT ; IHS/TUCSON/TMJ - DEFINE STANDARD INTERVENTIONS ;

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIK ^DIR
Case Management System	1	(DICN,DIE)^ACMEP

Package	Total	Caller Graph
Case Management System	1	ACMEP

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+2
Function Call: WRITE	Prompt: !?20,"SELECT STANDARD INTERVENTIONS FOR DIAGNOSIS",!! Line Location: EN1+3
Function Call: WRITE	Prompt: @IOF,!?10,"STANDARD INTERVENTIONS FOR ",$P(^ACM(44.1,ACMDXDA,0),U),! Line Location: EN2+1
Function Call: WRITE	Prompt: !?5,"NO.",?10,"INTERVENTION",?45,"NO.",?50,"INTERVENTION",!?5,"---",?10,"-------------------------",?45,"---",?50,"-------------------------" Line Location: EN2+11
Function Call: WRITE	Prompt: ! Line Location: EN2+12
Function Call: WRITE	Prompt: ?5,ACM,?10,$P(ACM(ACM),U) Condition for execution: $D(ACM(ACM)) Line Location: EN2+12
Function Call: WRITE	Prompt: ?45,ACM+ACMI,?50,$P(ACM(ACM+ACMI),U) Condition for execution: $D(ACM(ACM+ACMI)) Line Location: EN2+12
Function Call: WRITE	Prompt: !!?10,"'**' Indicates intervention already assigned to this patient." Line Location: EN2+13
Function Call: WRITE	Prompt: ! Line Location: EN41+1
Function Call: WRITE	Prompt: ! Line Location: EN5+0
Function Call: WRITE	Prompt: ! Line Location: EN6+0
Function Call: WRITE	Prompt: !!,"INTERVENTION: ",$P(ACM(ACM),U) Line Location: EN6+8
Routine Call	DIC Line Location: EN1+5 DIC
Routine Call	DIR Line Location: DIR

Name	Line Occurrences (* Changed, ! Killed)
^ACM(43 - [#9002243]	EN2+9, EN5+7, EN6+7, EN6+8
^ACM(43.1 - [#9002243.1]	EN2+4
^ACM(44.1 - [#9002244.1]	EN2+1
^ACM(44.3 - [#9002244.3]	EN11, EN2+4, EN41+5

Name	Field # of Occurrence
^(	EN5+7, EN6+8
^(0	EN2+4

Name	Field # of Occurrence
ACM	EXIT!, EN1+1!, EN2+2!, EN2+3, EN2+4, EN2+7, EN2+8, EN2+9, EN2+12, EN5+5* , EN5+6, EN5+7, EN6+6*, EN6+8
ACM(	EN2+4, EN2+7, EN2+8, EN2+9*, EN2+10!, EN2+12, EN5+6, EN5+7, EN6+6, EN6+8
ACMDIC	EN6+1~, EN6+6*
ACMDR	EN6+1~, EN6+8*
ACMDXDA	EXIT!, EN1+7*, EN11, EN2+1, EN2+4, EN41+5
ACMI	EXIT!, EN2+3, EN2+4, EN2+5, EN2+12, EN5+5, EN6+6*
ACMITDA	EXIT!, EN41+4*, EN41+5
ACMMAX	EXIT!, EN2+5*, EN5+1, EN6+2
>> ACMPTNO	EN2+9, EN2+13, EN3+2, EN5+6, EN5+7, EN6+6, EN6+7, EN6+8
ACMQUIT	EN, EXIT!, EN1+6, EN11+1, EN11+2!, EN4, EN4+1!, EN41+3, DIC, DIR*
>> ACMRG	EN2+9, EN5+7, EN6+7, EN6+8
ACMX	EXIT!, EN2+6, EN2+7, EN2+8, EN2+9, EN2+10, EN6+5*, EN6+6
ACMY	EN5+4, EN5+5, EN6+1~, EN6+6, EN6+7, EN6+8
D	DIC!
DA	EN5+6, EN5+7, EN6+8*, DIC!, FILE!
DD	DIC!, FILE!
DIC	EN1+4, EN41, EN41+5*, DIC!, FILE!
DIC("A"	EN1+4, EN41
DIC("DR"	EN41+5*
DIC(0	EN1+4, EN41, EN41+5*
DIK	EN5+6, EN5+7, DIK!
DINUM	DIC!, FILE!
DIR	DIR!
DIR("A"	EN3, EN5+1, EN6+2*
DIR(0	EN3, EN5+1, EN6+2*
DIRUT	DIR!
DO	FILE!
DR	DIC!, FILE!
DTOUT	DIR!
DUOUT	DIR!
IOF	EN1+2, EN2+1
U	EN2+1, EN2+4, EN2+8, EN2+9, EN2+12, EN5+6, EN5+7, EN6+6, EN6+8
>> X	EN41+5*
>> Y	EN1+6, EN1+7, EN3+2, EN3+3, EN41+4, EN5+3, EN5+4, EN6+4, EN6+5, DIC