Routine: APCHPWHR

Information

APCHPWHR ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;

Source Information

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
Kernel	3	($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Patient	1	$$HRN^AUPNPAT
Patient Care Component	1	$$DATE^APCHSMU
Patient Care Component Reports	1	($$DEMO,DEMOCHK)^APCLUTL
Registration	1	(CLEAR,FULL)^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOCT	;
PROVT1	;
S(T)	;
USR()	;EP - Return name of current user from ^VA(200.
HELP	;EP -- help code
PRINT	;
HDR	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HDR1	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
LMEXIT	; -- exit code
SORT	;
LOCT1	;
EN	;
ZIS	;EP
ED	;get ending date
N	;
HEADER	;
PROVT	;
TYPE1	;
EXIT1	;
HEAD1	;
LIST	;
EXPND	; -- expand code
GETDATES	;
EXIT	;
TYPE	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
$$DATE^APCHSMU	PRINT+29
$$DEMO^APCLUTL	EN+11
DEMOCHK^APCLUTL	ZIS+1
$$HRN^AUPNPAT	PRINT+28
^DIC	TYPE1+1, LOCT1+1, PROVT1+1
^DIR	BD+1, ED+1, TYPE+2, LOCT+2, PROVT+3, LIST+2, SORT+3, ZIS+3, HEADER+2, HDR+2
CLEAR^VALM1	EXIT1+1, LMEXIT+2
FULL^VALM1	EXIT1+2, LMEXIT+3
^XBDBQUE	ZIS+8, BROWSE+2
$$VAL^XBDIQ1	PRINT+16, PRINT+18, PRINT+19, PRINT+20, PRINT+28, PRINT+29, PRINT+30, EN+16, EN+17, EN+18
$$VALI^XBDIQ1	PRINT+17, PRINT+28, PRINT+29, PRINT+30
^XBFMK	EXIT+4, EXIT1+5
EN^XBVK	EXIT+2, EXIT1+3
$$FMADD^XLFDT	EN+4
$$FMTE^XLFDT	HEAD1+3, HEAD1+4, HDR1+3, HDR1+5
$$REPEAT^XLFSTR	HEAD1+6
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will tally the number of Patient Wellness Handouts given to" Line Location: APCHPWHR+4
Function Call: WRITE	Prompt: !,"patients. The user will be able to tally based on handout type, location" Line Location: APCHPWHR+5
Function Call: WRITE	Prompt: !,"date the handout was generated and user/provider who generated the handout." Line Location: APCHPWHR+6
Function Call: WRITE	Prompt: !,"Optionally, the user can produce a list of patients receiving the handout." Line Location: APCHPWHR+7
Function Call: WRITE	Prompt: !! Line Location: APCHPWHR+8
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: TYPE+2
Function Call: WRITE	Prompt: ! Line Location: TYPE1+1
Function Call: WRITE	Prompt: !,"No handout types selected." Line Location: TYPE1+2
Function Call: WRITE	Prompt: ! Line Location: LOCT+2
Function Call: WRITE	Prompt: ! Line Location: LOCT1+1
Function Call: WRITE	Prompt: !,"No locations selected." Line Location: LOCT1+2
Function Call: WRITE	Prompt: ! Line Location: PROVT+3
Function Call: WRITE	Prompt: ! Line Location: PROVT1+1
Function Call: WRITE	Prompt: !,"No providers selected." Line Location: PROVT1+2
Function Call: WRITE	Prompt: !! Line Location: LIST+2
Function Call: WRITE	Prompt: !! Line Location: ZIS+3
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT+4
Function Call: WRITE	Prompt: !! Line Location: N+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"Patient Wellness Handout",?45,"Report Date: ",$$FMTE^XLFDT(DT),?72,"Page: ",APCHPG,!,$TR($J("",(IOM-2))," ","-"),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"HRN",?8,"Patient Name",?30,"Date",?39,"Type",?60,"Provider",?75,"Loc" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: !,"******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********",! Line Location: HDR1+3
Function Call: WRITE	Prompt: $$CTR("PATIENT WELLNESS HANDOUT TALLY",80),! Line Location: HDR1+4
Function Call: WRITE	Prompt: $$CTR("Date Range: "_$$FMTE^XLFDT(APCHBD)_" - "_$$FMTE^XLFDT(APCHED)),! Line Location: HDR1+5
Function Call: WRITE	Prompt: "--------------------------------------------------------------------",! Line Location: HDR1+12
Function Call: WRITE	Prompt: "LOCATION",?55,"#",! Line Location: HDR1+13
Function Call: WRITE	Prompt: "--------------------------------------------------------------------",! Line Location: HDR1+14
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	DIC Line Location: TYPE1+1 LOCT1+1 PROVT1+1
Routine Call	DIR Line Location: BD+1 ED+1 TYPE+2 LOCT+2 PROVT+3 LIST+2 SORT+3 ZIS+3 HEADER+2 HDR+2

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^APCHPWHT - [#9001026]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHPWHL - [#9001027]	EN+9, EN+10
^APCHPWHL("AC"	EN+7, EN+8
^APCHPWHT - [#9001026]	HDR1+6
^DIC(4 - [#4]	LOC+1, HDR1+8
^VA(200 - [#200]	HEAD1+3, USR+1, HDR1+3, HDR1+10
^XTMP("APCHPWHR"	PRINT+3, PRINT+13, PRINT+22, PRINT+25, PRINT+26, EN+3!, EN+4, EN+19*

Label References

Name	Line Occurrences
$$CTR	HDR1+4, HDR1+5
BD	ED+2
BROWSE	ZIS+6
EXIT	BD+2, LIST+3, SORT+4, ZIS+4, ZIS+6
EXIT1	ZIS+9
GETDATES	TYPE+3
HDR	PRINT+4, PRINT+6, PRINT+8
HDR1	HDR+1
HEAD1	HEADER+1
HEADER	PRINT+3, PRINT+24, PRINT+27
LIST	PROVT+5, PROVT1+3, ZIS+2
LOCT	TYPE+4, TYPE1+3, PROVT+4, PROVT1+2
LOCT1	LOCT1+5
N	PRINT+23
PROVT	LOCT+4, LOCT1+3
PROVT1	PROVT1+5
S	EN+22, EN+23, EN+25, EN+26, EN+27
TYPE	TYPE1+2, LOCT+3, LOCT1+2
TYPE1	TYPE1+5
ZIS	LIST+5

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCHBD	BD+3*, ED+1, ED+4, HDR1+5
>> APCHCNT	EN+1, S+1, S+2
>> APCHDEMO	ZIS+1, ZIS+2, EN+11
>> APCHED	ED+3*, EN+7, HDR1+5
>> APCHH	APCHPWHR+9*, PRINT+3, PRINT+13, PRINT+22, PRINT+25, PRINT+26, EN+3, EN+19
>> APCHIEN	PRINT+13, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22, PRINT+26, PRINT+28, PRINT+29 , PRINT+30, EN+8*, EN+9, EN+10, EN+16, EN+17, EN+18, EN+19
>> APCHJ	APCHPWHR+9*, PRINT+3, PRINT+13, PRINT+22, PRINT+25, PRINT+26, EN+3, EN+19
>> APCHLIST	LIST+1, LIST+4, LIST+5, PRINT+3, PRINT+23
APCHLOCT	LOCT+1!, LOCT+5!, LOCT1+2, LOCT1+3, EN+14, HDR1+9
APCHLOCT(	LOCT1+4*, EN+14, HDR1+8
APCHN	EN+5~, EN+9*, EN+12, EN+13, EN+14, EN+15
>> APCHOPT	ZIS+5*
>> APCHPG	PRINT+1, HEADER+1, HEAD1+2, HEAD1+4, HDR+1, HDR1+2*
APCHPRVT	PROVT+2!, PROVT+6!, PROVT1+2, PROVT1+3, EN+15, HDR1+11
APCHPRVT(	PROVT1+4*, EN+15, HDR1+10
>> APCHPWHC	PRINT+4, EN+1, EN+19
APCHPWHT	EN+2!, LMEXIT+1!
APCHPWHT(	PRINT+7, PRINT+9, S+2*
APCHQUIT	PRINT+2!, PRINT+8, PRINT+11, PRINT+25, PRINT+26, PRINT+27, HEADER+2, HDR+2
>> APCHSD	ED+4, EN+7, EN+8
>> APCHSORT	LIST+5, SORT+1, SORT+5*, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20
>> APCHSV	PRINT+25*, PRINT+26
APCHT	EN+2!, LMEXIT+1!
APCHT(	EN+16, EN+17, EN+18*, EN+21, EN+23, EN+24, EN+25, EN+26, EN+27
APCHTYPE	TYPE+1!, TYPE1+2, TYPE1+3, EN+13, HDR1+7
APCHTYPE(	TYPE1+4*, EN+13, HDR1+6
>> APCHX	PRINT+7*, PRINT+9
DA	TYPE+2!, LOCT+2!, PROVT+3!, LIST+2!, SORT+3!, ZIS+3!
DFN	EXIT+3!, EXIT1+4!
DIC	TYPE1+1, LOCT1+1!, PROVT1+1*!
DIC("A"	TYPE1+1, LOCT1+1, PROVT1+1*
DIC(0	TYPE1+1, LOCT1+1, PROVT1+1*
DIR	BD+1!, ED+1!, TYPE+2!, LOCT+2!, PROVT+3!, LIST+2!, SORT+3!, ZIS+3!, HEADER+2!, HDR+2!
DIR("A"	BD+1, ED+1, TYPE+2, LOCT+2, PROVT+3, LIST+2, SORT+2, ZIS+3
DIR("B"	TYPE+2, LOCT+2, PROVT+3, LIST+2, SORT+3, ZIS+3
DIR(0	BD+1, ED+1, TYPE+2, LOCT+2, PROVT+3, LIST+2, SORT+2, ZIS+3, HEADER+2, HDR+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2, TYPE+3, LOCT+3, PROVT+4, LIST+3, SORT+4, ZIS+4
DT	HEAD1+3, HEAD1+4, EN+4, HDR1+3
>> DTOUT	HEADER+2, HDR+2
>> DUOUT	BD+1, ED+1
DUZ	HEAD1+3, USR+1, HDR1+3
DUZ(2	PRINT+28, LOC+1
IO	HEADER+2, HDR+2
IO(0	HEADER+2, HDR+2
IOF	APCHPWHR+3, HEAD1+1, HDR1+1
IOM	HEAD1+4, CTR+1
IOSL	PRINT+8, PRINT+27
IOST	HEADER+2, HDR+2
L	EN+5~, EN+21*, EN+23, EN+24, EN+25, EN+26, EN+27
P	EN+5~, EN+10, EN+11, EN+26, EN+27
T	EN+5~, EN+24*, EN+25, EN+26, EN+27, S~, S+2
U	HEAD1+3, USR+1, LOC+1, EN+10, EN+12, EN+13, EN+14, EN+15, HDR1+3, HDR1+6 , HDR1+8, HDR1+10
>> V	PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21*, PRINT+22
X	ED+4, CTR~, CTR+1, EN+5~, HDR1+6, HDR1+8, HDR1+10, HELP+1
>> X1	ED+4*
>> X2	ED+4*
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+7*
>> XBRC	ZIS+7, BROWSE+2
>> XBRP	ZIS+7, BROWSE+1
>> XBRX	ZIS+7, BROWSE+2
Y	BD+3, ED+1, ED+3, TYPE+4, TYPE1+2, TYPE1+3, TYPE1+4, LOCT+4, LOCT1+2, LOCT1+3 , LOCT1+4, PROVT+5, PROVT1+2, PROVT1+3, PROVT1+4, LIST+4, SORT+5, ZIS+5, ZIS+6, HEADER+2 , CTR~, CTR+1, EN+5~, EN+23, EN+25, EN+27, HDR+2, HDR1+6, HDR1+7, HDR1+8 , HDR1+9, HDR1+10*, HDR1+11

Customize PDF page

Package: Patient Care Component

Routine: APCHPWHR

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: