Routine: APCHPWHU

Information

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

Source Information

Source file <APCHPWHU.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIE
IHS VA Utilities	2	^XBFMK EN^XBNEW
DRG Grouper	1	$$CPT^ICPTCOD
Kernel	1	($$FMADD,$$FMTE,$$NOW)^XLFDT
Patient Care Component	1	S^APCHPWH1
Taxonomy	1	$$ICD^ATXAPI

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Patient Care Component	10	APCHPWH1 APCHPWH2 APCHPWH3 APCHPWH4 APCHPWH5 APCHPWH6 APCHPWH8 APCHPWH9 APCHPWHM APCHPWHX

Entry Points

Name	Comments	DBIA/ICR reference
TRAN(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT IN A TRAN CODE
SUBHEAD	;EP - print subheader
LOC()	;EP - Return location name from file 4 based on DUZ(2).
UPDDEF	;EP - called from option to update default PWH for the site
CTR(X,Y)	;EP - Center X in a field Y wide.
EHR(DFN,APCHPWHT)
WRITEF(FORM,TEXT)	;EP
USR()	;EP - Return name of current user from ^VA(200.
CPT(P,BDATE,EDATE,T,F,SCEX)	;EP - return ien of CPT entry if patient had this CPT
RAD(P,BDATE,EDATE,T,F)	;EP - return ien of CPT entry if patient had this CPT
WRITET(TEXT)	;EP
UPDLOG(P,T,D)	;EP - update pwh log

External References

Name	Field # of Occurrence
S^APCHPWH1	SUBHEAD+3, WRITET+4, WRITEF+4
$$ICD^ATXAPI	CPT+16, RAD+15, TRAN+14
^DIC	UPDDEF+4
FILE^DICN	UPDLOG+7
^DIE	UPDDEF+6
$$CPT^ICPTCOD	CPT+25, CPT+26, TRAN+23, TRAN+24
^XBFMK	UPDDEF+7
EN^XBNEW	EHR+1
$$FMADD^XLFDT	CPT+6, RAD+5, TRAN+5
$$FMTE^XLFDT	CPT+24, RAD+23, TRAN+22
$$NOW^XLFDT	UPDLOG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to set the default Patient Wellness Handout" Line Location: UPDDEF+1
Function Call: WRITE	Prompt: !,"for a site." Line Location: UPDDEF+2
Function Call: WRITE	Prompt: !! Line Location: UPDDEF+3
Routine Call	DIE Line Location: UPDDEF+6
Routine Call	DIC Line Location: UPDDEF+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCCCTRL - [#9001000]	Classic Fileman Calls
^APCHPWHL - [#9001027]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHPWHF - [#9001025.06]	WRITEF+2, WRITEF+4
^APCHPWHI - [#9001028]	WRITET+4
^APCHPWHI("B"	WRITET+2
^AUPNVCPT - [#9000010.18]	CPT+16, CPT+23, CPT+24, CPT+25, CPT+26
^AUPNVCPT("AD"	CPT+13, CPT+15
^AUPNVRAD - [#9000010.22]	RAD+14, RAD+22, RAD+23, RAD+24, RAD+25
^AUPNVRAD("AD"	RAD+12, RAD+13
^AUPNVSIT - [#9000010]	CPT+12, CPT+14, CPT+23, CPT+24, CPT+25, CPT+26, RAD+11, RAD+22, RAD+23, RAD+24 , RAD+25, TRAN+11, TRAN+21, TRAN+22, TRAN+23, TRAN+24
^AUPNVSIT("AA"	CPT+10, CPT+11, RAD+9, RAD+10, TRAN+9, TRAN+10
^AUPNVTC - [#9000010.33]	TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24
^AUPNVTC("AD"	TRAN+12, TRAN+13
^DIC(4 - [#4]	LOC+1, UPDDEF+4
^RAMIS(71 - [#71]	RAD+14, RAD+24, RAD+25
^VA(200 - [#200]	USR+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHPWHT	EHR~
BD	CPT+8~, CPT+9, CPT+10, RAD+7~, RAD+8, RAD+9, TRAN+7~, TRAN+8*, TRAN+9
BDATE	CPT~, CPT+6, CPT+9, RAD~, RAD+5, RAD+8, TRAN~, TRAN+5*, TRAN+8
C	RAD+7~, RAD+14*, RAD+15
D	UPDLOG~, UPDLOG+5, CPT+8~, RAD+7~, TRAN+7~
D0	UPDLOG+3~, UPDLOG+6!
>> DA	UPDDEF+6*
DD	UPDLOG+3~, UPDLOG+6!
DFN	EHR~
>> DIADD	UPDLOG+4*
DIC	UPDLOG+3~, UPDLOG+4, UPDDEF+4!
DIC("B"	UPDDEF+4*
DIC("DR"	UPDLOG+5*
DIC(0	UPDLOG+4, UPDDEF+4
>> DIE	UPDDEF+6*
>> DLAYGO	UPDLOG+4*
DO	UPDLOG+3~
>> DR	UPDDEF+6*
DT	UPDLOG+5
DUZ	USR+1
DUZ(2	LOC+1, UPDLOG+5, UPDDEF+4
ED	CPT+8~, CPT+9, CPT+10, CPT+11, RAD+7~, RAD+8, RAD+9, RAD+10, TRAN+7~, TRAN+8* , TRAN+9*, TRAN+10
EDATE	CPT~, CPT+5, CPT+6, CPT+9, RAD~, RAD+4, RAD+5, RAD+8, TRAN~, TRAN+4 , TRAN+5, TRAN+8
F	CPT~, CPT+3, CPT+21, CPT+22, CPT+23, CPT+24, CPT+25, CPT+26, RAD~, RAD+3 , RAD+20, RAD+21, RAD+22, RAD+23, RAD+24, RAD+25, TRAN~, TRAN+3*, TRAN+19, TRAN+20 , TRAN+21, TRAN+22, TRAN+23, TRAN+24
FORM	WRITEF~, WRITEF+2, WRITEF+4
G	CPT+8~, CPT+9, CPT+10, CPT+11, CPT+15, CPT+16, CPT+20, CPT+21, CPT+22, CPT+23 , CPT+24, CPT+25, CPT+26, RAD+7~, RAD+8, RAD+9, RAD+10, RAD+13, RAD+15, RAD+19 , RAD+20, RAD+21, RAD+22, RAD+23, RAD+24, RAD+25, TRAN+7~, TRAN+8, TRAN+9, TRAN+10 , TRAN+13, TRAN+14, TRAN+18, TRAN+19, TRAN+20, TRAN+21, TRAN+22, TRAN+23, TRAN+24
IOM	SUBHEAD+2, CTR+1
P	UPDLOG~, UPDLOG+1, UPDLOG+4, CPT~, CPT+1, CPT+10, CPT+11, RAD~, RAD+1, RAD+9 , RAD+10, TRAN~, TRAN+1, TRAN+9, TRAN+10
SCEX	CPT~, CPT+4*, CPT+14
T	UPDLOG~, UPDLOG+2, UPDLOG+5, CPT~, CPT+2, CPT+16, RAD~, RAD+2, RAD+15, TRAN~ , TRAN+2, TRAN+14
TEXT	WRITET~, WRITET+2, WRITEF~, WRITEF+2
U	USR+1, LOC+1, UPDDEF+4, CPT+14, CPT+16, CPT+23, CPT+24, CPT+25, CPT+26, RAD+14 , RAD+22, RAD+23, RAD+24, RAD+25, TRAN+14, TRAN+21, TRAN+22, TRAN+23, TRAN+24
V	CPT+8~, CPT+11, CPT+12, CPT+13, CPT+14, CPT+15, CPT+23, CPT+24, CPT+25, CPT+26* , RAD+7~, RAD+10, RAD+11, RAD+12, RAD+13, RAD+22, RAD+23, RAD+24, RAD+25, TRAN+7~ , TRAN+10, TRAN+11, TRAN+12, TRAN+13, TRAN+21, TRAN+22, TRAN+23, TRAN+24
X	SUBHEAD+1~, SUBHEAD+2, SUBHEAD+3, WRITET+1~, WRITET+2, WRITET+3, WRITET+4, WRITEF+1~, WRITEF+2, WRITEF+3 , WRITEF+4, CTR~, CTR+1, UPDLOG+3~, UPDLOG+4, CPT+8~, CPT+15, CPT+16, RAD+7~, RAD+13 , RAD+14, RAD+15, TRAN+7~, TRAN+13*, TRAN+14
Y	WRITET+1~, WRITET+4, WRITEF+1~, WRITEF+4, CTR~, CTR+1, UPDDEF+5, UPDDEF+6, CPT+8~, RAD+7~ , TRAN+7~

Customize PDF page

Package: Patient Care Component

Routine: APCHPWHU

Call Graph Total: 9

Caller Graph Total: 10