Routine: APCLRIN

Package	Total	Call Graph
VA Fileman	4	COMMA^%DTC ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
Kernel	2	($$FMADD,$$FMTE)^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
Patient Care Component Reports	2	($$ACTCL,$$ALL,$$UP)^APCLRIN1 ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	($$AGE,$$COMMRES,KILL)^AUPNPAT

Name	Comments	DBIA/ICR reference
PER(N,D)	;return % of n/d
BEN	;
HDR	;
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
DEMO	;
DATE	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
PRINT	;EP - called from xbdbque
GROUP	;what set of patients
SUB	;
MFIX	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HDR1	;
COM1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INFORM	;
MFIC
ZIS	;call to XBDBQUE
HEADER	;
COMM	;
C(X,X2,X3)	;
START	;
EXIT	;clean up and exit
TEMPLATE	;If Template was selected
PROC	;

Name	Field # of Occurrence
COMMA^%DTC	C+1
$$ACTCL^APCLRIN1	PROC+13
$$ALL^APCLRIN1	PROC+11
$$UP^APCLRIN1	PROC+12
$$DEMO^APCLUTL	PROC+9
DEMOCHK^APCLUTL	DEMO+1
$$AGE^AUPNPAT	PROC+34, PROC+35, PROC+36, PROC+37
$$COMMRES^AUPNPAT	PROC+38
KILL^AUPNPAT	EXIT+3
^DIC	COMM+18, MFIC+11, TEMPLATE+3
$$GET1^DIQ	PROC+26, PROC+27
^DIR	GROUP+4, COMM+8, COM1+16, BEN+3, DATE+6, HDR+2, EOP+5
^XBDBQUE	DEMO+4
^XBFMK	COMM+15, MFIC+8, EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	PROC+12, PROC+13
$$FMTE^XLFDT	HDR1+5, HDR1+8
$$REPEAT^XLFSTR	SUB+2, HDR1+9, PAD+3
$$STRIP^XLFSTR	PER+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally the number of Patients with internet access" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"documented, the number with internet access and the method of internet" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"access. You will be asked to run this for the user population, " Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"the GPRA defined active clinical population or for a search template" Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"of patients.",!! Line Location: INFORM+8
Function Call: WRITE	Prompt: !!,"User Population and Active Clinical Definitions usually only include" Line Location: COMM+1
Function Call: WRITE	Prompt: !,"patients who live in communities in your service area. You can " Line Location: COMM+2
Function Call: WRITE	Prompt: !,"limit this report to patients in certain communities or you can include" Line Location: COMM+3
Function Call: WRITE	Prompt: !,"all ",$S(APCLGRP="U":"User Population",APCLGRP="C":"Active Clinical",1:""),"patients or just those living in certain communities.",! Line Location: COMM+4
Function Call: WRITE	Prompt: !,"Do you wish to limit the patients reviewed to those living in a particular set" Line Location: COMM+6
Function Call: WRITE	Prompt: !!,"Specify the community taxonomy to determine which patients will be",!,"included in the report. You should have created this taxonomy using QMAN.",! Line Location: COMM+12
Function Call: WRITE	Prompt: !!,"There are no communities in that taxonomy." Line Location: COM1+5
Function Call: WRITE	Prompt: !!,"*** Warning: Community ",C," is in the taxonomy but was not",!,"found in the standard community table." Line Location: COM1+9
Function Call: WRITE	Prompt: !!,"You can run this report based on the current status of patient's internet" Line Location: DATE+2
Function Call: WRITE	Prompt: !,"or run it based on internet access data as of a certain date in the past.",! Line Location: DATE+3
Function Call: WRITE	Prompt: !,"Please enter the 'As of Date', enter T for today to get current information.",! Line Location: DATE+4
Function Call: WRITE	Prompt: ! Line Location: DATE+5
Function Call: WRITE	Prompt: ! Line Location: TEMPLATE+3
Function Call: WRITE	Prompt: !!,"No search template selected.",! Line Location: TEMPLATE+4
Function Call: WRITE	Prompt: !!,?55,"#",?68,"%" Line Location: SUB+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: SUB+2
Function Call: WRITE	Prompt: !!,"Total # of Patients ",?55,$$C($G(APCLDATA("TOTAL PATS")),0,7) Line Location: PRINT+5
Function Call: WRITE	Prompt: !!?2,"Total # w/Internet Access Screening ",?55,$$C($G(APCLDATA("W/DOC")),0,7) Line Location: PRINT+6
Function Call: WRITE	Prompt: ?68,$$PER(APCLDATA("W/DOC"),APCLDATA("TOTAL PATS")) Line Location: PRINT+7
Function Call: WRITE	Prompt: !!?4,"# with Internet Access w/% of those screened ",?55,$$C($G(APCLDATA("YN","YES")),0,7) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?68,$$PER(APCLDATA("YN","YES"),APCLDATA("W/DOC")) Line Location: PRINT+10
Function Call: WRITE	Prompt: !!?3,"GENDER BREAKDOWN:" Line Location: PRINT+12
Function Call: WRITE	Prompt: !?6,"# Females w/internet access",!?10,"with % of those with access",?55,$$C($G(APCLDATA("HAS INTERNET","FEMALE")),0,7) Line Location: PRINT+13
Function Call: WRITE	Prompt: ?68,$$PER($G(APCLDATA("HAS INTERNET","FEMALE")),$G(APCLDATA("YN","YES"))) Line Location: PRINT+14
Function Call: WRITE	Prompt: !?6,"# Males w/internet access",!?10,"with % of those with access",?55,$$C($G(APCLDATA("HAS INTERNET","MALE")),0,7) Line Location: PRINT+15
Function Call: WRITE	Prompt: ?68,$$PER($G(APCLDATA("HAS INTERNET","MALE")),$G(APCLDATA("YN","YES"))) Line Location: PRINT+16
Function Call: WRITE	Prompt: !?6,"# Unknown Gender w/internet access",!?10,"with % of those with access",?55,$$C($G(APCLDATA("HAS INTERNET","UNKNOWN")),0,7) Line Location: PRINT+17
Function Call: WRITE	Prompt: ?68,$$PER($G(APCLDATA("HAS INTERNET","UNKNOWN")),$G(APCLDATA("YN","YES"))) Line Location: PRINT+18
Function Call: WRITE	Prompt: !!,"AGE BREAKDOWN:" Line Location: PRINT+20
Function Call: WRITE	Prompt: !?6,"# < 18 yrs old w/internet access",!?10,"with % of those with access",?55,$$C($G(APCLDATA("YNAGE","< 18")),0,7) Line Location: PRINT+21
Function Call: WRITE	Prompt: ?68,$$PER($G(APCLDATA("YNAGE","< 18")),$G(APCLDATA("YN","YES"))) Line Location: PRINT+22
Function Call: WRITE	Prompt: !?6,"# 18-35 yrs old w/internet access",!?10,"with % of those with access",?55,$$C($G(APCLDATA("YNAGE","18-35")),0,7) Line Location: PRINT+23
Function Call: WRITE	Prompt: ?68,$$PER($G(APCLDATA("YNAGE","18-35")),$G(APCLDATA("YN","YES"))) Line Location: PRINT+24
Function Call: WRITE	Prompt: !?6,"# 36-55 yrs old w/internet access",!?10,"with % of those with access",?55,$$C($G(APCLDATA("YNAGE","36-55")),0,7) Line Location: PRINT+25
Function Call: WRITE	Prompt: ?68,$$PER($G(APCLDATA("YNAGE","36-55")),$G(APCLDATA("YN","YES"))) Line Location: PRINT+26
Function Call: WRITE	Prompt: !?6,"# > 55 yrs old w/internet access",!?10,"with % of those with access",?55,$$C($G(APCLDATA("YNAGE","> 55")),0,7) Line Location: PRINT+27
Function Call: WRITE	Prompt: ?68,$$PER($G(APCLDATA("YNAGE","> 55")),$G(APCLDATA("YN","YES"))) Line Location: PRINT+28
Function Call: WRITE	Prompt: !!,"COMMUNITY BREAKDOWN: (w/ % of total with access)" Line Location: PRINT+30
Function Call: WRITE	Prompt: !!,"PATIENTS INCLUDED IN THIS REPORT:",! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?5,"User Population: ",$S(APCLBEN=1:"AI/AN Only (Classification 01)",APCLBEN=2:"non AI/AN Only (Classification NOT 01)",APCLBEN=3:"All (Both AI/AN and non AI/AN)",1:"") Line Location: HEADER+3
Function Call: WRITE	Prompt: !?5,"Active Clinical Population: ",$S(APCLBEN=1:"AI/AN Only (Classification 01)",APCLBEN=2:"non AI/AN Only (Classification NOT 01)",APCLBEN=3:"All (Both AI/AN and non AI/AN)",1:"") Line Location: HEADER+4
Function Call: WRITE	Prompt: !?5,"Population: Patients in Search Template: ",$P(^DIBT(APCLSEAT,0),U) Line Location: HEADER+5
Function Call: WRITE	Prompt: !?5,"All Patients: ",$S(APCLBEN=1:"AI/AN Only (Classification 01)",APCLBEN=2:"non AI/AN Only (Classification NOT 01)",APCLBEN=3:"All (Both AI/AN and non AI/AN)",1:"") Line Location: HEADER+6
Function Call: WRITE	Prompt: !!,"All Communities Included.",! Line Location: HEADER+7
Function Call: WRITE	Prompt: !?10,"Community Taxonomy Name: ",$P(^ATXAX(APCLTAXI,0),U) Line Location: HEADER+8
Function Call: WRITE	Prompt: !?10,"The following communities are included in this report:",! Line Location: HEADER+9
Function Call: WRITE	Prompt: !!?10,"MFI Visit Location Taxonomy Name: ",$P(^ATXAX(APCLMFIY,0),U) Line Location: HEADER+16
Function Call: WRITE	Prompt: !?10,"The following Locations are used for patient visits in this report:",! Line Location: HEADER+17
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: ?70,"Page ",APCLPG,! Line Location: HDR1+3
Function Call: WRITE	Prompt: !,$$CTR("* PATIENT INTERNET ACCESS *",80) Line Location: HDR1+4
Function Call: WRITE	Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80) Line Location: HDR1+5
Function Call: WRITE	Prompt: !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),80) Line Location: HDR1+6
Function Call: WRITE	Prompt: !,$$CTR("Report Generated by: "_$$USR,80) Line Location: HDR1+7
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HDR1+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HDR1+9
Routine Call	DIC Line Location: COMM+18 MFIC+11 TEMPLATE+3
Routine Call	DIR Line Location: GROUP+4 COMM+8 COM1+16 BEN+3 DATE+6 HDR+2 EOP+5

FileNo	Call Tags
9000001.81	GET1^DIQ
^ATXAX - [#9002226]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	COMM+17, COM1+2, COM1+3, COM1+7, COM1+8, MFIC+10, HEADER+8, HEADER+16, HEADER+18
^AUPNPAT - [#9000001]	PROC+6, PROC+16, PROC+17, PROC+18, PROC+24
^AUTTCOM("B"	COM1+9
^BGPSITE - [#90241.02]	COMM+17, MFIC+1, MFIC+10, PROC+13
^DIBT(	PROC+14, HEADER+5
^DIC(4 - [#4]	HEADER+18, HDR1+6, LOC+1
^DPT - [#2]	PROC+7, PROC+8, PROC+21, PROC+22, PROC+23, PROC+31, PROC+32, PROC+33
^TMP($J	PROC+10!, PROC+44!
^VA(200 - [#200]	USR+1

Name	Line Occurrences
$$C	PRINT+5, PRINT+6, PRINT+9, PRINT+13, PRINT+15, PRINT+17, PRINT+21, PRINT+23, PRINT+25, PRINT+27 , PRINT+33
$$CTR	INFORM+2, INFORM+3, HDR1+4, HDR1+5, HDR1+6, HDR1+7, HDR1+8
$$LOC	INFORM+2
$$PER	PRINT+7, PRINT+10, PRINT+14, PRINT+16, PRINT+18, PRINT+22, PRINT+24, PRINT+26, PRINT+28, PRINT+34
$$USR	INFORM+3, HDR1+7
BEN	DATE+6
COMM	COM1+5, MFIC+1, BEN+4
DATE	GROUP+7, DEMO+2
EXIT	INFORM+9, GROUP+5, COM1+11, DEMO+5
GROUP	GROUP+7, COMM+9
HDR	PRINT+3, PRINT+11, PRINT+19, PRINT+29, PRINT+32, HEADER+1, HEADER+12, HEADER+20
HDR1	HDR+1
HEADER	PRINT+2
MFIC	COMM+11
MFIX	HEADER+7
TEMPLATE	GROUP+7

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PROC+18*, PROC+19
APCLBD	DATE+1!, DATE+6*, PROC+11, PROC+12, PROC+13, PROC+18, PROC+24, HDR1+8
>> APCLBEN	BEN+1, BEN+5, PROC+11, PROC+12, PROC+13, HEADER+3, HEADER+4, HEADER+6
APCLDATA	PROC+1!
APCLDATA("COM"	PROC+40*, PRINT+31, PRINT+33, PRINT+34
APCLDATA("HAS	INTERNET" , PROC+31, PROC+32, PROC+33*, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18
APCLDATA("IM"	PROC+42*
APCLDATA("TOT	AL PATS" , PROC+2, PROC+15, PRINT+5, PRINT+7
APCLDATA("W/DOC"	PROC+3, PROC+20, PROC+21, PROC+22, PROC+23*, PRINT+6, PRINT+7, PRINT+10
APCLDATA("YN"	PROC+4, PROC+5, PROC+29*, PRINT+9, PRINT+10, PRINT+14, PRINT+16, PRINT+18, PRINT+22, PRINT+24 , PRINT+26, PRINT+28, PRINT+34
APCLDATA("YNAGE"	PROC+34, PROC+35, PROC+36, PROC+37, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25, PRINT+26 , PRINT+27, PRINT+28
>> APCLDEMO	DEMO+1, DEMO+2, PROC+9
APCLED	DATE+1!
>> APCLGRP	GROUP+1, GROUP+6, GROUP+7, COMM+4, PROC+11, PROC+12, PROC+13, PROC+14, HEADER+3, HEADER+4 , HEADER+5, HEADER+6
>> APCLGUI	PRINT+1
>> APCLIOSL	PRINT+1*, PRINT+3, PRINT+11, PRINT+19, PRINT+29, PRINT+32, HEADER+12, HEADER+20
>> APCLLD	PROC+25*, PROC+34, PROC+35, PROC+36, PROC+37
APCLLIM	PROC+24!, PROC+27*, PROC+41
APCLLYN	PROC+24!, PROC+26*, PROC+28, PROC+29, PROC+41
APCLMFIT	MFIC+6!
>> APCLMFIY	MFIC+1, MFIC+2, MFIC+7, MFIC+13*, HEADER+16, HEADER+17, HEADER+18
APCLN	HEADER+10, HEADER+11, HEADER+18, HEADER+19, MFIX+1!
>> APCLPG	PRINT+1, HDR+1, HDR1+2, HDR1+3
>> APCLQH	PRINT+1*, HEADER+10, HEADER+11, HEADER+12, HEADER+15, HEADER+19, HEADER+20
APCLQUIT	COM1+11, COM1+15, COM1+17, COM1+18, MFIC!, PRINT+1, PRINT+3, PRINT+11, PRINT+19, PRINT+29 , PRINT+31, PRINT+32, HDR+2*
>> APCLSEAT	GROUP+7, TEMPLATE+1, TEMPLATE+5, PROC+14, HEADER+5
APCLTAX	COMM+13!, COM1+5
APCLTAX(	COM1+3*, HEADER+10
>> APCLTAXI	COMM+11, COMM+14, COMM+20*, COM1+2, COM1+3, COM1+7, COM1+8, PROC+11, PROC+12, PROC+13 , HEADER+7, HEADER+8
APCLX	PRINT+31*, PRINT+33, PRINT+34, MFIX+1!
APCLY	HEADER+10, HEADER+13, HEADER+18, HEADER+21, MFIX+1!
>> APCLYN	COMM+10*
APCLZZ	HEADER+10, HEADER+11, HEADER+13, HEADER+18, HEADER+19, HEADER+21, MFIX+1!
>> B	COMM+17, MFIC+10
>> C	COM1+8, COM1+9, HEADER+11, HEADER+19*
D	PROC+18, PROC+24, PROC+25, PER~, PER+1, PER+3, PAD~, PAD+2, PAD+3
DA	GROUP+4!, COMM+8!, COM1+16!, BEN+3!, TEMPLATE+3!
>> DFN	PROC+6*, PROC+7, PROC+8, PROC+9, PROC+11, PROC+12, PROC+13, PROC+14, PROC+16, PROC+17 , PROC+18, PROC+21, PROC+22, PROC+23, PROC+24, PROC+26, PROC+27, PROC+31, PROC+32, PROC+33 , PROC+34, PROC+35, PROC+36, PROC+37, PROC+38
DFOUT	EOP+4!
DIC	COMM+16, MFIC+9, TEMPLATE+3*!
DIC("A"	COMM+16, MFIC+9, TEMPLATE+3*
DIC("B"	COMM+17, MFIC+10
DIC("S"	COMM+16, MFIC+9, TEMPLATE+3*
DIC(0	COMM+16, MFIC+9, TEMPLATE+3*
DICR	TEMPLATE+3!
DIR	GROUP+4!, COMM+5!, COMM+8!, COM1+16!, BEN+3!, DATE+5!, DATE+6!, HDR+2!, EOP+3~
DIR("A"	GROUP+3, COMM+7, COM1+16, BEN+2, DATE+5*
DIR("B"	GROUP+3, COMM+7, BEN+3*
DIR(0	GROUP+2, COMM+7, COM1+16, BEN+2, DATE+5, HDR+2, EOP+5*
DIRUT	GROUP+5, COMM+9, COM1+17, BEN+4, EOP+4!
DLOUT	EOP+4!
DR	TEMPLATE+3!
DT	HDR1+5
DTOUT	HDR+2, EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	COMM+17, MFIC+1, MFIC+10, PROC+13, HDR1+6, LOC+1
>> G	COM1+6, COM1+9, COM1+11
>> I	PROC+29, PROC+30, PROC+41, PROC+42
IO	HDR+2
IO("S"	EOP+2
IO(0	HDR+2
IOF	INFORM+1, HDR1+1
IOM	CTR+1
IOSL	PRINT+1
IOST	HDR+2, EOP+1
>> IOT	EOP+2
L	PAD~, PAD+2*, PAD+3
N	PER~, PER+3
U	COMM+17, COM1+3, COM1+8, MFIC+1, MFIC+10, PROC+8, PROC+13, PROC+21, PROC+22, PROC+23 , PROC+31, PROC+32, PROC+33, HEADER+5, HEADER+8, HEADER+16, HEADER+18, HDR1+6, USR+1, LOC+1
X	COM1+1, COM1+2, COM1+3, COM1+6, COM1+7, COM1+8, PROC+18, PROC+24, PROC+26, PROC+27 , PROC+38, PROC+39, PROC+40, HDR1+8*, CTR~, CTR+1, C~, C+2
X2	C~
X3	C~
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	GROUP+6, COMM+10, COMM+11, COMM+19, COMM+20, COM1+18, MFIC+12, MFIC+13, BEN+5, DATE+6 , TEMPLATE+4, TEMPLATE+5, HDR+2, CTR~, CTR+1
Z	PER+2~, PER+3*, PER+4
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLRIN

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: