Routine: ACDPDIF

Information

ACDPDIF ;IHS/ADC/EDE/KML - DISPLAY DEMOGRAPHIC DIFFERENCE;

Source file <ACDPDIF.m>

Package	Total	Call Graph
Alcohol Chemical Dependency	4	(GETCDMIS,GETREG)^ACDDEGP2 (CONF,DEV)^ACDDEU DIC^ACDFMC ^ACDKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Name	Comments	DBIA/ICR reference
PATIENT	; PROCESS ONE PATIENT
DSPDIFFQ	; EP - FOR TASKMAN
EOJ	;
GETPAT	; GET CLIENT/PATIENT
START	;
DSPDIFF	; DISPLAY DIFFERENCES IN DEMO DATA VALUES
MAIN	; PROCESS PATIENTS UNTIL NO MORE WANTED

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"----------",!,"Not a CDMIS patient!",!,"----------",! Line Location: PATIENT+4
Function Call: WRITE	Prompt: !,"No differences found",! Line Location: DSPDIFF+7
Function Call: WRITE	Prompt: !! Line Location: DSPDIFFQ+4
Function Call: WRITE	Prompt: ?8,$S(Y=1:"SEX",Y=2:"AGE",Y=3:"IS CLIENT A VET (Y/N)",Y=4:"RESIDENT STATE",1:"TRIBE"),": ",ACDPRD(X)," versus our ",$S(@X="":"NULL",1:@X),! Line Location: DSPDIFFQ+7
Function Call: WRITE	Prompt: !,"PATIENT: ",ACDDFN,!,?4,"PATIENT REGISTRATION DATA DIFFERS FOR THE FOLLOWING ITEMS:",! Line Location: DSPDIFFQ+9
Function Call: WRITE	Prompt: @IOF Line Location: DSPDIFFQ+13
Routine Call	%ZIS Line Location: DSPDIFFQ+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACDVIS - [#9002172.1]	PATIENT+5
^DPT - [#2]	GETPAT+6

Name	Field # of Occurrence
>> ACDAGE	PATIENT+5*
>> ACDDFN	GETPAT+6*, DSPDIFFQ+9
>> ACDDFNP	GETPAT+6*
>> ACDPRD(	DSPDIFFQ+7
>> ACDQ	MAIN+1, GETPAT+1, GETPAT+7, PATIENT+8
ACDSLAVE	PATIENT+9, PATIENT+10!, DSPDIFFQ+1, DSPDIFFQ+13
>> ACDY	PATIENT+2, PATIENT+4, PATIENT+5, PATIENT+7, DSPDIFF+7, DSPDIFFQ+5, DSPDIFFQ+7, DSPDIFFQ+10*
>> AUPNLK("ALL"	GETPAT+2*, GETPAT+4!
>> DIC	GETPAT+3*
>> DIC("S"	GETPAT+3*
>> DIC(0	GETPAT+3*
IO	PATIENT+9, PATIENT+10*, DSPDIFFQ+2, DSPDIFFQ+3
IO("Q"	DSPDIFF+1
IO(0	PATIENT+9, PATIENT+10, DSPDIFFQ+3
IOF	DSPDIFFQ+3, DSPDIFFQ+13
>> IOP	DSPDIFFQ+1*
IOST	DSPDIFFQ+8
U	GETPAT+6, PATIENT+5
>> X	DSPDIFFQ+5*, DSPDIFFQ+6, DSPDIFFQ+7
>> Y	GETPAT+5, GETPAT+6, DSPDIFFQ+6*, DSPDIFFQ+7
>> ZTDESC	DSPDIFF+2*
>> ZTDTH	DSPDIFF+2*
>> ZTQUEUED	DSPDIFFQ+14
>> ZTREQ	DSPDIFFQ+14*
>> ZTRTN	DSPDIFF+2*
>> ZTSAVE("ACD*"	DSPDIFF+2*