Routine: APCLPP2

Information

APCLPP2 ; IHS/CMI/LAB - ; 23 May 2014 10:44 AM

Source Information

Source file <APCLPP2.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	3	C^%DTC ^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLPP21

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
DEMO	;
DX1	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
SET	;EP - ENTRY POINT
LOC()	;EP - Return location name from file 4 based on DUZ(2).
SETC	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
EXCL1	;which ones to exclude
INFORM	;tell user what is going on
PROV1	;
LS	;
FAC	;
PROVC	;cohort
ZIS	;
ED	;
START	;
XIT	;
SET1	;
EXCL	;exclude any diagnoses codes?
PROV	;
ST	;;template of patients?
GETDATES	;

External References

Name	Field # of Occurrence
C^%DTC	ED+5
PEP^AMQQGTX0	PROVC+3, DX1+2
DEMOCHK^APCLUTL	DEMO+1
KILL^AUPNPAT	XIT+2
^DIC	PROV1+1, PROVC+2, FAC+3, DX1+1, ST+7
^DIR	BD+1, ED+1, PROV+3, LS+3, EXCL+5, ST+2, DEMO+3, EOP+5
^XBDBQUE	DEMO+7, BROWSE+2
$$VAL^XBDIQ1	PROV1+3, PROVC+8
^XBFMK	XIT+3
EN^XBVK	XIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the time frame of interest.",! Line Location: BD+1
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: PROVC+2
Function Call: WRITE	Prompt: !,"all not allowed with this report" Line Location: PROVC+5
Function Call: WRITE	Prompt: !!,"For use in reporting Hospital and In-Hospital information, please enter",!,"your Service Unit's Hospital. If there is no hospital in your service unit",!,"press ENTER to bypass the prompt.",! Line Location: FAC+2
Function Call: WRITE	Prompt: !!,"In the list of leading purpose of visits you have the option of excluding ",!,"certain ICD diagnoses from the list of top ten diagnoses.",! Line Location: EXCL+2
Function Call: WRITE	Prompt: !,"Do you wish to exclude any diagnoses codes from the list of " Line Location: EXCL+4
Function Call: WRITE	Prompt: !,"Enter the diagnoses to be excluded.",! Line Location: EXCL1+3
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: DX1+1
Function Call: WRITE	Prompt: ! Line Location: ST+7
Function Call: WRITE	Prompt: $$CTR("*********** PROVIDER PRACTICE DESCRIPTION REPORT **********",80) Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"This report will present a profile of services provided by a selected provider." Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"You will be asked to enter a date range and to identify the provider's name.",! Line Location: INFORM+4
Routine Call	DIC Line Location: PROV1+1 PROVC+2 FAC+3 DX1+1 ST+7
Routine Call	DIR Line Location: BD+1 ED+1 PROV+3 LS+3 EXCL+5 ST+2 DEMO+3 EOP+5

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(9000001	PROV1+1, PROV1+2, PROV1+3, PROVC+7, PROVC+8
^DIC(16 - [#16]	PROV1+2, PROVC+7
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	PROV1+2, PROVC+7, USR+1
^XTMP("APCLPP2"	START+3!, SET1+2*

Label References

Name	Line Occurrences
$$CTR	INFORM+2
BROWSE	DEMO+5
DEMO	ST+4
ED	ED+3
EXCL	DX1+3, ST+3, DEMO+2
FAC	PROV1+4, FAC+6, LS+4
GETDATES	PROV+4, PROV1+1
INFORM	START+4
LS	FAC+4, EXCL+6
PROV	PROVC+4, PROVC+5, FAC+5
PROVC	PROV+6
SET1	SETC+1, SETC+2, SETC+3, SETC+4, SETC+5, SETC+6, SETC+7, SETC+8, SETC+9, SETC+10 , SETC+11
SETC	SET+1
ST	ST+8
XIT	START+1, BD+2, ED+2, PROVC+2, DX1+1, DEMO+4, DEMO+5
ZIS	EXCL1+2

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SET1+2*
>> APCL1	SETC+1, SETC+2, SETC+3, SETC+4, SETC+5, SETC+6, SETC+7, SETC+8, SETC+9, SETC+10 , SETC+11*, SET1+2
>> APCL2	SET1+1*, SET1+2
>> APCL3	SETC+1, SETC+2, SETC+3, SETC+4, SETC+5, SETC+6, SETC+7, SETC+8, SETC+9, SETC+10 , SETC+11*, SET1+1
>> APCL4	SETC+1, SETC+2, SETC+3, SETC+4, SETC+5, SETC+6, SETC+7, SETC+8, SETC+9, SETC+10 , SETC+11*, SET1+1, SET1+2
>> APCLBD	BD+3*, ED+3, ED+5
>> APCLBTH	START+2*, START+3, SET1+2
>> APCLC	SET+1*, SET1+1, SET1+2
>> APCLDEMO	DEMO+1, DEMO+2
APCLDXT	EXCL+1!, EXCL1+1!, DX1+3, DX1+4!
APCLDXT("*"	DX1+4
>> APCLED	ED+4*
APCLEXCL	EXCL+1!, EXCL+3, EXCL+7, EXCL1+2
>> APCLJOB	START+2*, START+3, SET1+2
>> APCLLSV	LS+1, LS+5, EXCL+5
APCLPROV	PROV+1!, PROVC+1!, PROVC+4, PROVC+5!
APCLPROV(	PROV1+2, PROVC+6, PROVC+7, SET+1
APCLPROV("*"	PROVC+5
APCLPRVD	PROV+1!, PROVC+1!
APCLPRVD(	PROV1+3, PROVC+8
APCLPRVN	PROV+1!, PROVC+1!
APCLPRVN(	PROV1+2, PROVC+7
>> APCLPT	PROV+2, PROV+5, PROV+6
>> APCLSD	ED+5*
>> APCLSEAT	ST+1, ST+5, ST+8, ST+9
>> APCLSUH	FAC+1, FAC+7
DA	PROV+3!, PROV1+1!, PROVC+2!, LS+3!, EXCL+5!, DX1+1!, ST+2!, ST+7!, DEMO+3!
DFOUT	EOP+4!
DIC	PROV1+1!, PROVC+2!, FAC+3, DX1+1!, ST+7*!
DIC("A"	PROV1+1, ST+7
DIC("S"	PROVC+2, DX1+1, ST+7*
DIC(0	PROV1+1, PROVC+2, FAC+3, DX1+1, ST+7*
DICR	ST+7!
DIR	BD+1!, ED+1!, PROV+3!, LS+3!, EXCL+5!, ST+2!, DEMO+3!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, PROV+3, LS+2, EXCL+5, ST+2, DEMO+3, EOP+5
DIR("B"	PROV+3, LS+3, EXCL+5, ST+2, DEMO+3*
DIR(0	BD+1, ED+1, PROV+3, LS+2, EXCL+5, ST+2, DEMO+3, EOP+5
DIRUT	BD+1, BD+2, ED+1, ED+2, PROV+4, LS+4, EXCL+6, ST+3, DEMO+4, EOP+4!
DLOUT	EOP+4!
DR	ST+7!
DTOUT	FAC+5, EOP+4!
DUOUT	BD+1, ED+1, FAC+5, EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
IO("S"	EOP+2
IOF	INFORM+1
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
U	PROV1+1, PROV1+2, PROV1+3, PROVC+7, PROVC+8, USR+1, LOC+1
X	ED+5, PROVC+2, FAC+4, DX1+1, SET1+2*, CTR~, CTR+1
>> X1	ED+5*
>> X2	ED+5*
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+6, BROWSE+2
>> XBRC	DEMO+6, BROWSE+2
>> XBRP	DEMO+6, BROWSE+1
>> XBRX	DEMO+6, BROWSE+2
Y	BD+3, ED+3, ED+4, PROV+5, PROV1+1, PROV1+2, PROV1+3, PROVC+2, PROVC+3, PROVC+6* , PROVC+7, PROVC+8, FAC+6, FAC+7, LS+5, EXCL+7, DX1+1, DX1+2, ST+4, ST+8 , ST+9, DEMO+5, CTR~, CTR+1
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPP2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: