Routine: ACMADDM1

Information

ACMADDM1 ; IHS/TUCSON/TMJ - CONTINUATION OF ADD IHS DM REGISTER ; [ 07/07/1999 4:00 PM ]

Source file <ACMADDM1.m>

Package	Total	Call Graph
VA Fileman	3	^DIE (,ENALL)^DIK ^DIR
Case Management System	1	^ACMRGA01

Package	Total	Caller Graph
Case Management System	1	ACMADDM

Name	Comments	DBIA/ICR reference
SETD	;FINDS STANDARD DIAGNOSIS AND PUT IN ^TMP($J,"STD"
CDIAG	;EP;CONVERTS USER DIAGNOSES TO IHS STANDARD DIAGNOSES
CHGCD	;
SETC	;FINDS STANDARD COMPLICATIONS AND PUT IN ^TMP($J,"STD"
CHGD	;LOOPS AND CHANGES DIAGNOSES TO NEW VALUES
FINDD	;FINDS REGISTER DIAGNOSIS AND PUT IN ^TMP($J,"REG"
CHGC	;LOOPS AND CHANGES COMPLICATIONS TO NEW VALUES
CHGD1
FINDC	;FINDS REGISTER COMPLICATION AND PUT IN ^TMP($J,"REG"
DIRYND
CCOMP	;EP;CONVERTS USER COMPLICATIONS TO IHS STANDARD COMPLICATIONS
MATCHD	;
MATCHC	;MATCHES COMPLICATION TO STD
CHGC1
DIRYNC
CHGDD	;
END	;CLEANUP IHS/OHPRD/TMJ Patch #1 - Removed Kill ACMQ

Name	Field # of Occurrence
^ACMRGA01	SETD+1, SETC+1
^DIE	CHGD1+2, CHGC1+2
^DIK	CHGDD+1, CHGDD+2, CHGDD+3, CHGCD+1, CHGCD+2, CHGCD+3
ENALL^DIK	CHGD1+3, CHGC1+3
^DIR	DIRYND+1, MATCHD+3, DIRYNC+1, MATCHC+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"I will now check your patient's diagnoses against the IHS standards:" Line Location: CDIAG+1
Function Call: WRITE	Prompt: ! Line Location: DIRYND+1
Function Call: WRITE	Prompt: !,"Changing diagnosis..." Line Location: CHGD+1
Function Call: WRITE	Prompt: "." Line Location: CHGD1+2
Function Call: WRITE	Prompt: "." Line Location: CHGDD+1
Function Call: WRITE	Prompt: !,"Choose a new diagnosis from the list below:",! Line Location: MATCHD+1
Function Call: WRITE	Prompt: !,"for your diagnosis: ",$P(^ACM(44.1,ACMD,0),U,1) Line Location: MATCHD+2
Function Call: WRITE	Prompt: !,"I will now check your patient's complications against the IHS standards:" Line Location: CCOMP+1
Function Call: WRITE	Prompt: ! Line Location: DIRYNC+1
Function Call: WRITE	Prompt: !,"Changing complication..." Line Location: CHGC+1
Function Call: WRITE	Prompt: "." Line Location: CHGC1+2
Function Call: WRITE	Prompt: "." Line Location: CHGCD+1
Function Call: WRITE	Prompt: !,"Choose a new complication from the list below:",! Line Location: MATCHC+1
Function Call: WRITE	Prompt: !,"for your complication: ",$P(^ACM(42.1,ACMD,0),U,1) Line Location: MATCHC+2
Routine Call	DIE Line Location: CHGD1+2 CHGC1+2
Routine Call	DIR Line Location: DIRYND+1 MATCHD+3 DIRYNC+1 MATCHC+3

Name	Line Occurrences (* Changed, ! Killed)
^ACM(42 - [#9002242]	FINDC+1, CHGC1+3!, CHGCD+1
^ACM(42.1 - [#9002242.1]	SETC+1, FINDC+1, CHGCD+3, MATCHC+2
^ACM(44 - [#9002244]	FINDD+1, CHGD1+3!, CHGDD+1
^ACM(44.1 - [#9002244.1]	SETD+1, FINDD+1, CHGDD+3, MATCHD+2
^TMP($J	SETD+1, FINDD+1, FINDD+2, FINDD+4, CHGD+1, CHGD1, CHGD1+1, CHGD1+2, MATCHD+4, MATCHD+6 , SETC+1, FINDC+1, FINDC+2, FINDC+4, CHGC+1, CHGC1, CHGC1+1, CHGC1+2, MATCHC+4, MATCHC+6 , END+1!

Name	Field # of Occurrence
ACMD	SETD+1, FINDD+1, FINDD+2, CHGD+1, CHGD1, CHGD1+1, CHGD1+2, CHGDD+1, CHGDD+2, CHGDD+3 , MATCHD+2, MATCHD+4, MATCHD+6, SETC+1, FINDC+1, FINDC+2, CHGC+1, CHGC1, CHGC1+1, CHGC1+2 , CHGCD+1, CHGCD+2, CHGCD+3, MATCHC+2, MATCHC+4, MATCHC+6, END+1!
ACMDIR	SETD+1, SETD+2, SETD+3, MATCHD+3, SETC+1, SETC+2, SETC+3, MATCHC+3, END+1!
ACME	SETD+1!, FINDD+1, CHGD1+2, SETC+1!, FINDC+1, CHGC1+2, END+1!
>> ACMQ	FINDD+2, FINDD+3, MATCHD+5, FINDC+2, FINDC+3, MATCHC+5
>> ACMRG	FINDD+1, CHGDD+2, FINDC+1, CHGCD+2
>> ACMX	CHGDD+1, CHGCD+1
DA	CHGD1+2!, CHGDD+1!, CHGDD+2!, CHGDD+3!, CHGC1+2!, CHGCD+1!, CHGCD+2!, CHGCD+3!, END+1!
DA(1	CHGDD+2!, CHGCD+2!
DIE	CHGD1+2, CHGC1+2, END+1!
DIK	CHGD1+3!, CHGDD+1!, CHGDD+2!, CHGDD+3!, CHGC1+3!, CHGCD+1!, CHGCD+2!, CHGCD+3!
DIK(1	CHGD1+3, CHGC1+3
DIR	DIRYND+1!, DIRYNC+1!, END+1!
DIR("A"	DIRYND, MATCHD+3, DIRYNC, MATCHC+3
DIR("B"	DIRYND, DIRYNC
DIR(0	DIRYND, MATCHD+3, DIRYNC, MATCHC+3
DR	CHGD1+2!, CHGC1+2!, END+1!
I	SETD+1, SETD+2, SETD+3, FINDD+1, SETC+1, SETC+2, SETC+3, FINDC+1, END+1!
U	FINDD+1, MATCHD+2, FINDC+1, MATCHC+2
>> Y	DIRYND+1, MATCHD+4, MATCHD+5, DIRYNC+1, MATCHC+4, MATCHC+5
>> Y(0	MATCHD+6, MATCHC+6