Routine: APCLRPLP

Information

APCLRPLP ; IHS/CMI/LAB - print patient list ;

Package	Total	Call Graph
Patient Care Component Reports	2	DONE^APCLOSUT $$PREC^APCLVDR
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT",!! Line Location: APCLRPLP+7
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF PATIENTS: ",APCLPTCT,! Line Location: APCLRPLP+10
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?45,"*** CONFIDENTIAL PATIENT DATA ***" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !!?55,"INDIAN HEALTH SERVICE",?100,"PAGE:",?111,APCLPG Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?52,"PATIENT REGISTRATION SYSTEM",?100,"DATE:",?111,$$FMTE^XLFDT(DT,1) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"AREA: ",$P(^AUTTAREA($P(^AUTTLOC(APCLLOC,0),U,4),0),U),?52,"SU: ",$P(^AUTTSU($P(^AUTTLOC(APCLLOC,0),U,5),0),U),?100,"FACILITY:",?111,$E($P(^DIC(4,APCLLOC,0),U),1,21) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!?46,"BIRTH",?72,"BLOOD",?80,"--- ELIGIBILITY ---" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,?1,"HRN NO",?20,"NAME",?46,"DATE",?56,"SEX",?62,"TRB",?67,"BEN",?72,"QUNTM",?80,"MCR",?84,"MCD",?88,"PVT",?92,"VET",?96,"CHS",?100,"RESIDENCE",?117,"SOC SEC NO" Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,$TR($J("",132)," ","-") Line Location: HEAD1+10
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUTTAREA - [#9999999.21]	HEAD1+7
^AUTTLOC - [#9999999.06]	HEAD1+7
^AUTTSU - [#9999999.22]	HEAD1+7
^DIC(4 - [#4]	HEAD1+7
^XTMP("APCLRPL"	APCLRPLP+7, DONE+2!, PROC+4, V+1

Name	Field # of Occurrence
>> APCLBT	DONE+2
>> APCLBTH	APCLRPLP+7, PROC+4, V+1
>> APCLFRST	PROC+3*
>> APCLJOB	APCLRPLP+7, DONE+2, PROC+4, V+1
>> APCLLOC	HEAD1+7
>> APCLPG	APCLRPLP+5, HEAD, HEAD1+1, HEAD1+3
>> APCLPTCT	APCLRPLP+10
APCLQUIT	APCLRPLP+6!, APCLRPLP+9, PROC+2, PROC+3!, PROC+4, PROC+5, V+1, V+5, HEAD+1*
>> APCLSRTV	PROC+3, PROC+4, V+1
>> DFN	V+1*, V+2
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	HEAD1+5
>> DTOUT	HEAD+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	V+5
IOST	HEAD+1
U	HEAD1+7
>> X	V+2*, V+3, V+4, V+6
>> Y	HEAD+1