Routine: APCLNJ1

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOC	;
SC1	;enter sc
ZIS	;
ED	;get ending date
CLINIC1	;
LOC1	;enter location
AGER	;Age Screening
CLINIC	;
GETDATES	;
XIT
TYPE1	;
DEMO	;
SC	;
TYPE	;
AGE	;Age Screening

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
PEP^AMQQGTX0	LOC1+2, TYPE1+2, SC1+2, CLINIC1+2
DEMOCHK^APCLUTL	DEMO+1
^DIC	LOC1+1, TYPE1+1, SC1+1, CLINIC1+1
^DIR	BD+1, ED+1, LOC+4, TYPE+4, SC+3, CLINIC+2, AGE+4, AGER+2
^XBDBQUE	DEMO+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCLNJ1+4
Function Call: WRITE	Prompt: !!?20,"LISTING OF VISITS INJURY DIAGNOSES" Line Location: APCLNJ1+4
Function Call: WRITE	Prompt: !!,"This report will list visits which have an injury diagnosis. The user",!,"can select which visits to print based on any of the following criteria:",! Line Location: APCLNJ1+5
Function Call: WRITE	Prompt: ?15,"- Visit date",!?15,"- Clinic of Visit",!?15,"- Service Category of Visit",!?15,"- Type of Visit",!?15,"- Location of Encounter",!?15,"- Age Range",!! Line Location: APCLNJ1+6
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: LOC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: LOC1+1
Function Call: WRITE	Prompt: ! Line Location: TYPE+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: TYPE1+1
Function Call: WRITE	Prompt: ! Line Location: SC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SC1+1
Function Call: WRITE	Prompt: ! Line Location: CLINIC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC1+1
Function Call: WRITE	Prompt: ! Line Location: AGE+2
Function Call: WRITE	Prompt: ! Line Location: AGER+1
Function Call: WRITE	Prompt: !!,"No age range entered." Line Location: AGER+3
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: AGER+4
Routine Call	DIC Line Location: LOC1+1 TYPE1+1 SC1+1 CLINIC1+1
Routine Call	DIR Line Location: BD+1 ED+1 LOC+4 TYPE+4 SC+3 CLINIC+2 AGE+4 AGER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Label References

Name	Line Occurrences
AGE	CLINIC+4, AGER+3, DEMO+2
AGER	AGER+4
BD	ED+2, LOC+5, SC+4
CLINIC	SC+5, CLINIC1+3, AGE+5
LOC	LOC1+3, TYPE+5
SC	TYPE+6, SC1+3, CLINIC+3
TYPE	LOC+6, TYPE1+3
XIT	BD+2, LOC1+1, TYPE1+1, SC1+1, CLINIC1+1
ZIS	AGE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	XIT!, XIT+1!
%T	XIT+1!
%Y	XIT+1!
AMQQATN	XIT+5!
AMQQCOMP	XIT+5!
AMQQCTXS	XIT+5!
AMQQLINK	XIT+5!
AMQQTAX	XIT+1!, XIT+5!
AMQQTDFN	XIT+1!
APCL65	XIT+1!
APCLAGE	AGE+1!, XIT!, XIT+1!
APCLAGET	AGE+1!, AGER+5*, XIT!
APCLBD	BD+3*, ED+1, ED+4, XIT!, XIT+1!
APCLBDD	XIT+1!
APCLBICD	XIT!, XIT+6!
APCLBT	XIT!
APCLCL	XIT!, XIT+4!
APCLCLNT	CLINIC+1!, CLINIC1+3, CLINIC1+4!, XIT!
APCLCLNT("*"	CLINIC1+4
APCLCLS	XIT+1!
APCLCLX	XIT+4!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDFN	XIT!
APCLED	ED+3*, XIT!, XIT+1!
APCLEDD	XIT+1!
APCLEICD	XIT!, XIT+6!
APCLFLG	XIT+6!
APCLFOUN	XIT!
APCLFPV	XIT+1!
APCLFR	XIT+1!
APCLFVS	XIT+1!
APCLHRCN	XIT+4!
APCLICD	XIT!, XIT+6!
APCLIOM	XIT+1!
APCLJOB	XIT!
APCLLOC	LOC+1!
APCLLOCT	LOC+1!, LOC1+3, LOC1+4!, XIT!
APCLLOCT("*"	LOC1+4
APCLMCR	XIT+1!
APCLNAME	XIT+2!
APCLNAR	XIT+2!
APCLPA	XIT+1!
APCLPAGE	XIT+6!
APCLPGRD	XIT+4!
APCLPOV	XIT+1!
APCLPRC	XIT+2!, XIT+6!
APCLPROV	XIT!
APCLPRV	XIT+2!
APCLPS	XIT+2!
APCLPTOT	XIT+2!
APCLPV	XIT+2!, XIT+6!
APCLSC	SC+2!, XIT+1!
APCLSCT	SC+1!, SC+2!, SC1+3, SC1+4!, XIT!
APCLSCT("*"	SC1+4
APCLSD	ED+4*, XIT!
APCLSTOP	XIT+3!
APCLSTR	XIT+2!, XIT+4!
APCLTYP	TYPE+1!
APCLTYPE	XIT+1!
APCLTYPT	TYPE+1!, TYPE1+3, TYPE1+4!, XIT!
APCLTYPT("*"	TYPE1+4
APCLVDFN	XIT+3!
APCLVDT	XIT+3!
APCLVGRA	XIT+6!
APCLVPOV	XIT+3!
APCLVPRC	XIT+3!
APCLVRV	XIT+3!
APCLVTOT	XIT+3!
DA	LOC1+1!, TYPE1+1!, SC1+1!, CLINIC1+1!, XIT+1!
DFN	XIT+1!
DIC	LOC1+1!, TYPE1+1!, SC1+1!, CLINIC1+1!, XIT+4!
DIC("S"	LOC1+1, TYPE1+1, SC1+1, CLINIC1+1
DIC(0	LOC1+1, TYPE1+1, SC1+1, CLINIC1+1
DIR	BD+1!, ED+1!, LOC+4!, TYPE+4!, SC+3!, CLINIC+2!, AGE+4!
DIR("?"	LOC+3, TYPE+3, SC+3, AGE+3
DIR("A"	BD+1, ED+1, LOC+2, TYPE+2, SC+2, CLINIC+2, AGE+2, AGER+2
DIR("B"	LOC+2, TYPE+2, SC+2, CLINIC+2, AGE+2*
DIR(0	BD+1, ED+1, LOC+2, TYPE+2, SC+2, CLINIC+2, AGE+2, AGER+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2, LOC+5, TYPE+5, SC+4, CLINIC+2*, CLINIC+3, AGE+5
DOB	XIT+4!
DR	XIT+4!
>> DUOUT	BD+1, ED+1, CLINIC+2
G	XIT+1!
I	XIT+4!
IOF	APCLNJ1+4
LKPRINT	XIT+4!
POP	XIT+1!
SEX	XIT+4!
X	ED+4, LOC1+1, TYPE1+1, SC1+1, CLINIC1+1, XIT+4!
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	BD+3, ED+1*, ED+3, LOC+6, LOC1+1, LOC1+2, TYPE+6, TYPE1+1, TYPE1+2, SC+5 , SC1+1, SC1+2, CLINIC+4, CLINIC1+1, CLINIC1+2, AGE+6, AGER+3, AGER+4, AGER+5, XIT! , XIT+3!
ZTQUEUED	XIT!
ZTSK	XIT!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLNJ1

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: