Routine: APCLVL01

Package	Total	Call Graph
VA Fileman	4	DD^%DT (C,YX)^%DTC (,IX)^DIC ^DIR
PCC Medical Query	1	PEP^AMQQGTX0

Package	Total	Caller Graph
Patient Care Component Reports	28	APCLAL1 APCLAL2 APCLAL3 APCLAL4 APCLAL5 APCLDE1 APCLDE2 APCLDE3 APCLDE4 APCLDE5 APCLEM1 APCLEM2 APCLFPC APCLFPCP APCLFPR APCLFPRP APCLGV APCLRPL APCLSIL3 APCLSILO APCLSTMP APCLTEN APCLTENP APCLVL APCLVL0 APCLVL03 APCLVLP1 APCLVLS
Patient Care Component Surveillance	3	APCSCERT APCSSILI APCSSLAB
IHS Designated Provider	1	BDPNODP
Referred Care Information System	1	BMCPXTEN

Entry Points

Name	Comments	DBIA/ICR reference
Q1
PLDXS1	;
ADD1	;
LABL4	;
LABL1	;
LABL2	;
LABL3	;
PLDOOED	;get ending date
APPTS	;EP - Appointments
LABLOINC	;EP
APPCLNS1	;
APPTBD	;get beginning date
INFORM	;EP
INFORMQ
Q11
FAMHXR	;EP - family history with relation
SETPLDOO	;
C	;EP
PAUSE	;EP
SETAPPT	;
J	;EP - JUST A HIT
PLDXS	;
N	;EP
LABLIST	;
PLDOO	;EP - Appointments
Y	;EP - called from apclvl0
APPTED	;get ending date
LABL	;
ADD	;EP
PLDOOBD	;get beginning date
S	;EP
APPCLNS	;
GETREL	;
GETREG	;EP

External References

Name	Field # of Occurrence
DD^%DT	APPTED+1, PLDOOED+1
C^%DTC	APPTED+4, PLDOOED+4
YX^%DTC	ADD1+2
PEP^AMQQGTX0	FAMHXR+7, PLDXS1+5
^DIC	ADD1+2, LABL2+1, LABL4+1, GETREG+3, FAMHXR+5, PLDXS1+3
IX^DIC	ADD+8
^DIR	ADD+5, PAUSE+2, N+3, Y+1, C+3, LABL+4, LABL1+2, LABL3+2, GETREL+2, APPTBD+1 , APPTED+1, APPCLNS+3, APPCLNS1+1, PLDOOBD+1, PLDOOED+1, PLDXS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?((80-$L(APCLLHDR))/2),APCLLHDR Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"This report will list or count "_$S(APCLPTVS="V":"visits",1:"patients")_" based on selection criteria" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"entered by the user. You will be asked, in three separate steps, to identify" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"your selection criteria, what you wish displayed for each "_$S(APCLPTVS="V":"visit",1:"patient")_", and the ",!,"sorting order for your list. You may save the logic used to produce the report " Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"for future use. If you design a report that is 80 characters or less in width,",!,"it can be displayed on your screen or printed. If your report is 81-132" Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"characters wide, it must be printed - and only on a printer capable of ",!,"producing 132 character lines. You may limit the "_$S(APCLPTVS="V":"visits",1:"patients")_" in your report to",!,"pre-established Search" Line Location: INFORM+9
Function Call: WRITE	Prompt: " Templates you have created in QMan, Case Management, or",!,"other RPMS tools. If your" Line Location: INFORM+10
Function Call: WRITE	Prompt: " template was created in Case Management or in QMan,",!,"using Patients as the Search Subject, this is a Search Template of Patients.",! Line Location: INFORM+11
Function Call: WRITE	Prompt: "If your template was created in QMan using Visits as the Search Subject, this is",!,"a Search Template of Visits." Line Location: INFORM+13
Function Call: WRITE	Prompt: !,"Select one of the following and then proceed to the Date Range and" Line Location: INFORM+14
Function Call: WRITE	Prompt: !,"Selection Criteria screens:" Line Location: INFORM+15
Function Call: WRITE	Prompt: !! Line Location: ADD+2
Function Call: WRITE	Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!" Line Location: ADD1+2
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !!,"No numeric range entered. All numerics will be included." Line Location: N+4
Function Call: WRITE	Prompt: !! Line Location: N+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. E.g. 0-5, 0-99, 5-20." Line Location: N+6
Function Call: WRITE	Prompt: !!,"Enter a string which will be searched for in the narrative text.",!,"The system will check for any narrative that contains this string.",! Line Location: C+1
Function Call: WRITE	Prompt: !!,"No range entered. All ",APCLTEXT," will be included." Line Location: C+4
Function Call: WRITE	Prompt: !! Line Location: C+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter an free text range in the format AAA:AAA. E.g. 94-01:94-200,CA:CZ, A:Z." Line Location: C+6
Function Call: WRITE	Prompt: !,"This selection item allows you to search for visits on which selected" Line Location: LABLOINC+2
Function Call: WRITE	Prompt: !,"lab test were done. You can search by selected lab test names, a taxonomy" Line Location: LABLOINC+3
Function Call: WRITE	Prompt: !,"of lab test names, by selected loinc codes, by a taxonomy of LOINC codes," Line Location: LABLOINC+4
Function Call: WRITE	Prompt: !,"or by any combination of the above." Line Location: LABLOINC+5
Function Call: WRITE	Prompt: !,"Please select which of the items below you want to use to search" Line Location: LABL+2
Function Call: WRITE	Prompt: !,"for lab tests:" Line Location: LABL+3
Function Call: WRITE	Prompt: !,"Please enter an '^' when you are finished selecting lab tests" Line Location: LABL1+1
Function Call: WRITE	Prompt: !,"Please enter an '^' when you are finished selecting lab tests" Line Location: LABL3+1
Function Call: WRITE	Prompt: !!,"So far you have selected the following lab tests and/or LOINC Codes:" Line Location: LABLIST+1
Function Call: WRITE	Prompt: ! Line Location: LABLIST+5
Function Call: WRITE	Prompt: ! Line Location: LABLIST+11
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: FAMHXR+5
Function Call: WRITE	Prompt: !!,$C(7),"** No ",$P(^APCLVSTS(APCLCRIT,0),U)," selected, all will be included." Line Location: FAMHXR+8
Function Call: WRITE	Prompt: !!,"All diagnosis will be included." Line Location: FAMHXR+9
Function Call: WRITE	Prompt: !!,"No relationships selected, ANY non-null relationship will be included." Line Location: FAMHXR+13
Function Call: WRITE	Prompt: ! Line Location: APPTBD+1
Function Call: WRITE	Prompt: ! Line Location: APPTED+1
Function Call: WRITE	Prompt: !!,"No Clinics chosen....item will not be used as a selection item..." Line Location: APPCLNS+4
Function Call: WRITE	Prompt: !!,"No clinics chosen...." Line Location: APPCLNS1+2
Function Call: WRITE	Prompt: !!,"No clinics chosen...." Line Location: APPCLNS1+3
Function Call: WRITE	Prompt: ! Line Location: PLDOOBD+1
Function Call: WRITE	Prompt: ! Line Location: PLDOOED+1
Function Call: WRITE	Prompt: !!,"No dx chosen....item will not be used as a selection item..." Line Location: PLDXS+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: PLDXS1+3
Function Call: WRITE	Prompt: !!,$C(7),"** No ",$P(^APCLVSTS(APCLCRIT,0),U)," selected." Line Location: PLDXS1+6
Function Call: WRITE	Prompt: !!,"*** All items selected, if you want all then choose ANY diagnosis." Line Location: PLDXS1+7
Routine Call	DIC Line Location: ADD1+2 LABL2+1 LABL4+1 GETREG+3 FAMHXR+5 PLDXS1+3
Routine Call	DIR Line Location: ADD+5 PAUSE+2 N+3 Y+1 C+3 LABL+4 LABL1+2 LABL3+2 GETREL+2 APPTBD+1 APPTED+1 APPCLNS+3 APPCLNS1+1 PLDOOBD+1 PLDOOED+1 PLDXS+3
Routine Call	DIC Line Location: ADD+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCLVRPT - [#9001003.8]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls
^ATXLAB - [#9002228]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLVRPT - [#9001003.8]	ADD+12, ADD+13, ADD1+6!, N+1!, N+7, N+8, N+9, J+1, J+2, Y+4* , Y+5, C+2!, C+7, C+8, LABLIST+15, LABLIST+16, GETREG+6, GETREG+7, FAMHXR+14, FAMHXR+17* , FAMHXR+19, FAMHXR+22, FAMHXR+24, SETAPPT+2, SETAPPT+3, SETAPPT+4, SETAPPT+5, SETAPPT+6, SETPLDOO+1, SETPLDOO+2 , SETPLDOO+3, SETPLDOO+4
^APCLVSTS - [#9001003.7]	N+2, N+5, N+6, S+2, FAMHXR+8, PLDXS1+6
^ATXAX - [#9002226]	LABL4+3
^ATXLAB - [#9002228]	LABL2+3
^LAB(60 - [#60]	LABLIST+6
^LAB(95.3 - [#95.3]	LABL3+4
^UTILITY("AMQQ TAX"	FAMHXR+4!, PLDXS1+2!
^VA(200 - [#200]	ADD1+2
^XTMP("APCLVL"	FAMHXR+4!, FAMHXR+8, FAMHXR+9!, FAMHXR+15, FAMHXR+21, Q1+1!, PLDXS1+2!, PLDXS1+6, PLDXS1+7!, PLDXS1+8 , Q11+1!

Label References

Name	Line Occurrences
ADD1	ADD+3, ADD+4, ADD+7
APPCLNS	APPCLNS1+2, APPCLNS1+3
APPCLNS1	APPCLNS1+4
APPTBD	APPTED+2
GETREL	FAMHXR+12, GETREL+7
INFORMQ	INFORM+12
LABL	LABL+12
LABL1	LABL+8, LABL1+5
LABL2	LABL+9, LABL2+4
LABL3	LABL+10, LABL3+6
LABL4	LABL+11, LABL4+4
LABLIST	LABL+1
N	N+5, N+6
PAUSE	FAMHXR+8, FAMHXR+9, FAMHXR+13, APPCLNS+4, PLDXS+4
PLDOOBD	PLDOOED+2
PLDXS	PLDXS1+6, PLDXS1+7
Q1	FAMHXR+15
SETAPPT	APPCLNS+5
SETPLDOO	PLDXS+5

Naked Globals

Name	Field # of Occurrence
^(0	ADD+12
^(25	N+5
^(26	N+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	ADD1+2*
AMQQSQNM	Q1!, Q11!
AMQQTAXN	FAMHXR+3!, Q1!, PLDXS1+1!, Q11!
>> APCLBD	ADD+12
APCLBDAT	APPTS+3~, APPTBD+3, APPTED+1, APPTED+4, SETAPPT+4, SETAPPT+6, PLDOO+3~, PLDOOBD+3, PLDOOED+1, PLDOOED+4 , SETPLDOO+3, SETPLDOO+4
APCLCAND	ADD+1!, ADD+10*
>> APCLCH	LABL+7*, LABL+8, LABL+9, LABL+10, LABL+11
APCLCLN	APPTS+3~, APPCLNS+1!, APPCLNS+7!, SETAPPT+1!, PLDOO+3~
APCLCLN(	APPCLNS1+4*, SETAPPT+5
APCLCLN(0	APPCLNS1+2, APPCLNS1+3
>> APCLCNT	C+8, SETAPPT+3, SETAPPT+6, SETPLDOO+2*, SETPLDOO+4
>> APCLCRIT	N+1, N+2, N+5, N+6, N+7, N+8, N+9, J+1, J+2, Y+4 , Y+5, C+2, C+7, C+8, S+2, LABLIST+15, LABLIST+16, GETREG+6, GETREG+7, FAMHXR+8 , FAMHXR+14, FAMHXR+17, FAMHXR+19, FAMHXR+22, FAMHXR+24, SETAPPT+2, SETAPPT+3, SETAPPT+4, SETAPPT+5, SETAPPT+6 , PLDXS1+6, SETPLDOO+1, SETPLDOO+2, SETPLDOO+3, SETPLDOO+4
>> APCLCTYP	ADD+12*
>> APCLED	ADD+12
APCLEDAT	APPTS+3~, APPTED+3, SETAPPT+4, PLDOO+3~, PLDOOED+3, SETPLDOO+3
>> APCLEP1	ADD+4, ADD+8
APCLEXRG	GETREG+2!, GETREG+5*
APCLLABT	LABLOINC+6!, LABL+1, LABLIST+14
APCLLABT("LAB"	LABL1+4, LABL2+3, LABLIST+2
APCLLABT("LOINC"	LABL3+5, LABL4+3, LABLIST+8
>> APCLLHDR	INFORM+3*, INFORM+4
>> APCLNCAN	ADD+3
APCLPDOO	PLDXS+1!, PLDXS+7!
APCLPDOO(	PLDXS1+8*
>> APCLPTVS	INFORM+3, INFORM+5, INFORM+7, INFORM+9, INFORM+12, Y+1
APCLQMAN	FAMHXR+6, FAMHXR+7, Q1!, PLDXS1+4, PLDXS1+5, Q11!
>> APCLQUIT	ADD+6, ADD+9, ADD1+2*
APCLREL	FAMHXR+12!, FAMHXR+17, FAMHXR+22, Q1+2!
APCLREL(	FAMHXR+18, FAMHXR+23, GETREL+6*
APCLREL(0	FAMHXR+13
>> APCLRPT	ADD+10, ADD+12, ADD+13, ADD1+3, ADD1+6, N+1, N+7, N+8, N+9, J+1 , J+2, Y+4, Y+5, C+2, C+7, C+8, LABLIST+15, LABLIST+16, GETREG+6, GETREG+7 , FAMHXR+14, FAMHXR+17, FAMHXR+19, FAMHXR+22, FAMHXR+24, SETAPPT+2, SETAPPT+3, SETAPPT+4, SETAPPT+5, SETAPPT+6 , SETPLDOO+1, SETPLDOO+2, SETPLDOO+3, SETPLDOO+4
APCLSDAT	APPTS+3~, APPTED+4, PLDOO+3~, PLDOOED+4
>> APCLSEAT	ADD+4
>> APCLSORT	ADD+12*
>> APCLSORV	ADD+12*
>> APCLSPAG	ADD+12*
APCLT	APPTS+3~, APPCLNS+2, PLDOO+3~, PLDXS+2
>> APCLTCW	INFORM+1, ADD+13
>> APCLTEXT	Y+1, C+4
>> C	LABLIST+2, LABLIST+3, LABLIST+4, LABLIST+5, LABLIST+6, LABLIST+8, LABLIST+9, LABLIST+10, LABLIST+11, LABLIST+12 , SETAPPT+5*
>> D	ADD+8*
DA	ADD+8!, ADD1+2!, ADD1+4!, LABL+4!, LABL1+2!, LABL3+2!, FAMHXR+5!, APPCLNS+3!, APPCLNS1+1!, PLDXS+3! , PLDXS1+3!
DD	ADD1+4!, FAMHXR+5!, PLDXS1+3!
DIADD	ADD1+2*!, ADD1+4!, LABL2+1!, LABL4+1!
DIC	ADD+8!, ADD1+2!, ADD1+4!, LABL2+1!, LABL4+1!, GETREG+3!, FAMHXR+5!, FAMHXR+11!, PLDXS1+3!*
DIC("A"	ADD+8, GETREG+3
DIC("DR"	ADD1+2*
DIC("S"	ADD+8, LABL4+1, FAMHXR+5, PLDXS1+3
DIC(0	ADD+8, ADD1+2, LABL2+1, LABL4+1, GETREG+3, FAMHXR+5, PLDXS1+3*
DICR	FAMHXR+5!, PLDXS1+3!
DINUM	ADD1+4!, FAMHXR+5!, PLDXS1+3!
DIR	ADD+5!, PAUSE+2!, N+3!, Y+1!, C+3!, LABL+4!, LABL1+2!, LABL3+2!, Q1+2!, GETREL+1! , GETREL+2!, APPTBD+1!, APPTED+1!, APPCLNS+3!, APPCLNS1+1!, PLDOOBD+1!, PLDOOED+1!, PLDXS+3!
DIR("?"	N+2*
DIR("A"	ADD+5, PAUSE+2, N+2, Y+1, C+3, LABL+4, LABL1+2, LABL3+2, GETREL+2, APPTBD+1 , APPTED+1, APPCLNS+3, APPCLNS1+1, PLDOOBD+1, PLDOOED+1, PLDXS+3
DIR("B"	ADD+5, Y+1, APPTED+1, APPCLNS+3, PLDOOED+1, PLDXS+3
DIR(0	ADD+5, PAUSE+2, N+2, Y+1, C+3, LABL+4, LABL1+2, LABL3+2, GETREL+2, APPTBD+1 , APPTED+1, APPCLNS+3, APPCLNS1+1, PLDOOBD+1, PLDOOED+1, PLDXS+3
>> DIRUT	ADD+5, ADD+6, PAUSE+2, N+3, Y+1, Y+2, C+3, LABL+5, LABL1+3, LABL3+3 , GETREL+2, GETREL+3, APPTBD+1, APPTBD+2, APPTED+1, APPTED+2, APPCLNS+4, APPCLNS1+2, PLDOOBD+1, PLDOOBD+2 , PLDOOED+1, PLDOOED+2, PLDXS+4
DLAYGO	ADD1+2*!, ADD1+4!, LABL2+1!, LABL4+1!
DR	ADD+8!, ADD1+2!, ADD1+4!
>> DUOUT	ADD+5, PAUSE+2, N+3, Y+1, C+3, GETREL+2, APPTBD+1, APPTED+1, PLDOOBD+1, PLDOOED+1
DUZ	ADD1+2
IO	PAUSE+1
IO(0	PAUSE+1
IOF	INFORM+2
IOST	PAUSE+1
U	ADD+12, ADD+13, ADD1+2, N+9, LABL2+3, LABL3+4, LABL4+3, LABLIST+6, FAMHXR+8, SETAPPT+4 , SETAPPT+5, PLDXS1+6, SETPLDOO+3
V	Q1!, Q11!
X	ADD+13, ADD1+2, ADD1+4!, N+5, C+8, LABL2+3, LABL4+3, LABLIST+2, LABLIST+6, LABLIST+8* , LABLIST+12, FAMHXR+5!, FAMHXR+16, FAMHXR+17, FAMHXR+19, FAMHXR+21, FAMHXR+22, FAMHXR+24, Q1!, APPTED+4 , SETAPPT+5, PLDOOED+4, PLDXS1+3!, PLDXS1+8, Q11!
>> X1	APPTED+4, PLDOOED+4
>> X2	APPTED+4, PLDOOED+4
Y	ADD+7, ADD+9, ADD+10, ADD1+2, ADD1+3, ADD1+4!, N+4, N+5, N+6, N+8 , N+9, Y+3, Y+5, C+4, LABL+6, LABL+7, LABL1+4, LABL2+2, LABL2+3, LABL3+4 , LABL4+2, LABL4+3, GETREG+4, GETREG+5, GETREG+7, FAMHXR+5!, FAMHXR+6, FAMHXR+17, FAMHXR+19, FAMHXR+21* , FAMHXR+22, FAMHXR+24, Q1!, GETREL+4, GETREL+5, GETREL+6, APPTBD+3, APPTED+1, APPTED+3, APPCLNS+5 , APPCLNS1+3, APPCLNS1+4, PLDOOBD+3, PLDOOED+1, PLDOOED+3, PLDXS+5, PLDXS1+3!, PLDXS1+4, PLDXS1+8*, Q11!
Z	LABL2+3, LABL3+4, LABL3+5, LABL4+3, FAMHXR+17, FAMHXR+18, FAMHXR+19, FAMHXR+22, FAMHXR+23*, FAMHXR+24 , Q1!, Q11!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLVL01

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 33

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: