Routine: APCLW6P

Information

APCLW6P ; IHS/CMI/LAB - print dx by age ;

Package	Total	Call Graph
IHS Patient	1	($$COMMRES,$$HRN,$$TRIBE)^AUPNPAT
Patient Care Component Reports	1	DONE^APCLOSUT
VA Fileman	1	^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO PATIENT DATA TO REPORT",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF PATIENTS: ",APCLGRAN Line Location: START+9
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),"^",2),$$CTR(X,80),?71,"Page ",APCLPG,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"List of Patients moving from the normal to the " Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"NHANES 85th-94th Percentile or have moved from the NHANES 85th-94th" Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"Percentile to the NHANES >= 95th Percentile" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!,$$CTR(APCLTEXT,80) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+9
Function Call: WRITE	Prompt: !?(80-APCLLENG)/2,APCLTEXT Line Location: HEAD1+11
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?31,"HRN #",?38,"AGE",?42,"M/F",?46,"COMMUNITY",?63,"TRIBE" Line Location: HEAD1+12
Function Call: WRITE	Prompt: !,APCL80 Line Location: HEAD1+13
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	HEAD1+10
^DIC(4 - [#4]	HEAD1+3
^DPT - [#2]	PAT+5
^VA(200 - [#200]	HEAD1+4
^XTMP("APCLW6"	START+4, DONE+1!, START1+1, PAT+1, PAT+2, PAT+3

Name	Field # of Occurrence
>> APCL80	START+1*, HEAD1+13
>> APCLAGE	START1+1*, PAT+1, PAT+2, PAT+3, PAT+5
>> APCLGRAN	START+9
APCLH	START+4, DONE+1!, START1+1, PAT+1, PAT+2, PAT+3
>> APCLHGHA	HEAD1+9
APCLJ	START+4, DONE+1!, START1+1, PAT+1, PAT+2, PAT+3
>> APCLLENG	HEAD1+11*
>> APCLLOWA	HEAD1+9
>> APCLMOVE	START+5, START+7, START1+1, PAT+1, PAT+2, PAT+3
>> APCLNAME	PAT+1*, PAT+2, PAT+3, PAT+5
>> APCLPG	START+2, HEAD, HEAD1+1, HEAD1+4
APCLQUIT	START+3!, START+6, START+8, START1+1, PAT+1, PAT+2, PAT+4, HEAD+1*
>> APCLSEAT	HEAD1+10, HEAD1+11
>> APCLSEX	HEAD1+8
>> APCLSEXP	START+2*
>> APCLTEXT	HEAD1+8, HEAD1+10, HEAD1+11
>> APCLTYPE	HEAD1+9
D	DATE~, DATE+1, DATE+2
>> DFN	PAT+2*, PAT+3, PAT+5
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ	HEAD1+4
DUZ(2	PAT+5, HEAD1+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOM	CTR+1
IOSL	PAT+4
IOST	HEAD+1
>> R	PAT+3*, PAT+6, PAT+7
U	PAT+5, PAT+6, PAT+7, HEAD1+10
X	HEAD1+3, HEAD1+4, HEAD1+9, CTR~, CTR+1
Y	HEAD+1, CTR~, CTR+1