Routine: APCHS1

Package	Total	Call Graph
IHS Patient	2	($$AGE,$$DOB,$$DOD)^AUPNPAT $$ICDD^AUPNVUTL
VA Fileman	2	$$GET1^DIQ ^DIWP
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT
Patient Care Component	1	DSPCMSRG^APCHS
Patient Care Component Reports	1	$$PREFLANG^APCLAPI7
Uncategorized	1	ACTAGR^BCPAPI

Package	Total	Caller Graph
Patient Care Component	3	APCHS1A APCHS1B APCHS1C
Clinical Scheduling for Windows	1	BSDX41A

Entry Points

Name	Comments	DBIA/ICR reference
DEMOG	; ****************** DEMOGRAPHICS ****************** ; <SETUP>
SSN(P)	;EP
DSPCMSRG	; DISPLAY MEMBERSHIP IN CMS REGISTER
V	;
VSTAT
WWDSPL(DFN)	;
BDPDISP	;EP - display providers from desg prov package
DEMDSP	; <DISPLAY>
REM	;
AGE(DFN,D,F)	;EP - Given DFN, return Age.
WWENPROC(DFN)	;
DEMOGX
VSDT

External References

Name	Field # of Occurrence
DSPCMSRG^APCHS	DSPCMSRG+1
$$PREFLANG^APCLAPI7	DEMDSP+36
$$AGE^AUPNPAT	WWDSPL+12
$$DOB^AUPNPAT	AGE+3, AGE+7
$$DOD^AUPNPAT	DEMDSP+2, DEMDSP+7
$$ICDD^AUPNVUTL	DEMDSP+7
ACTAGR^BCPAPI	REM+14
$$GET1^DIQ	WWDSPL+8, WWDSPL+10, WWENPROC+5, WWENPROC+6
^DIWP	DEMDSP+14
$$ICDDX^ICDEX	DEMDSP+7
$$VAL^XBDIQ1	DEMDSP+2, DEMDSP+3, DEMDSP+4, DEMDSP+5, DEMDSP+7, DEMDSP+46, DEMDSP+48, REM+2, REM+3, REM+4 , REM+13, REM+15, BDPDISP+9
$$FMDIFF^XLFDT	AGE+7
$$FMTE^XLFDT	DEMDSP+47, WWDSPL+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEMDSP+18
Function Call: WRITE	Prompt: APCHSNAM Line Location: DEMDSP+22
Function Call: WRITE	Prompt: !,?34,APCHSBT,! Line Location: DEMDSP+29
Function Call: WRITE	Prompt: $E(APCHSTR,1,33) Condition for execution: APCHSTR]"" Line Location: DEMDSP+33
Function Call: WRITE	Prompt: ?34,"SSN: ",APCHSSN Condition for execution: APCHSSN]"" Line Location: DEMDSP+33
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+33
Function Call: WRITE	Prompt: ?34,"MOTHER'S MAIDEN NAME: ",APCHSMNM Condition for execution: APCHSMNM]"" Line Location: DEMDSP+34
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+34
Function Call: WRITE	Prompt: APCHSHPH,APCHSOPH Line Location: DEMDSP+35
Function Call: WRITE	Prompt: ?34,"FATHER'S NAME: ",APCHSFNM Condition for execution: APCHSFNM]"" Line Location: DEMDSP+35
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+35
Function Call: WRITE	Prompt: "OTHER PHONE: ",APCHOTPH Line Location: DEMDSP+38
Function Call: WRITE	Prompt: ?34,"PREFERRED LANGUAGE: ",APCHPLNG Line Location: DEMDSP+39
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+40
Function Call: WRITE	Prompt: APCHSCMR,!! Line Location: DEMDSP+41
Function Call: WRITE	Prompt: "LAST UPDATED: ",APCHSLUD," " Condition for execution: APCHSLUD]"" Line Location: DEMDSP+42
Function Call: WRITE	Prompt: ?34,"ELIGIBILITY: ",APCHSEL Condition for execution: APCHSEL]"" Line Location: DEMDSP+42
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+42
Function Call: WRITE	Prompt: !,"NOTICE OF PRIVACY PRACTICES REC'D BY PATIENT? ",$$VAL^XBDIQ1(9000038,APCHSPAT,.02) Line Location: DEMDSP+46
Function Call: WRITE	Prompt: !," DATE RECEIVED BY PATIENT: ",$$FMTE^XLFDT($P(APCHSNPP,U,3)) Line Location: DEMDSP+47
Function Call: WRITE	Prompt: !," WAS ACKNOWLEDGEMENT SIGNED? ",$$VAL^XBDIQ1(9000038,APCHSPAT,.04) Line Location: DEMDSP+48
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+51
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+53
Function Call: WRITE	Prompt: ?24,$E(1000000+APCHSHRN,2,7)," ",APCHSFAC,! Line Location: DEMDSP+54
Function Call: WRITE	Prompt: "DESIGNATED PRIMARY CARE PROVIDER: ",APCHSPP,! Line Location: DEMDSP+57
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(9002086,APCHSPAT,.25),! Line Location: REM+2
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": ",$E($$VAL^XBDIQ1(9000001,APCHSPAT,1701),1,22),! Line Location: REM+3
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": ",$$VAL^XBDIQ1(9000001,APCHSPAT,1704),! Line Location: REM+4
Function Call: WRITE	Prompt: "REMARKS:",?9,APCHSRE1,! Line Location: REM+5
Function Call: WRITE	Prompt: ?9,APCHSRE2,! Condition for execution: APCHSRE2]"" Line Location: REM+5
Function Call: WRITE	Prompt: "REMARKS:",! Line Location: REM+6
Function Call: WRITE	Prompt: ?1,"[more]",! Line Location: REM+10
Function Call: WRITE	Prompt: ?45,$S(APCHAG:"Opioid Agreement",1:"No Opioid Agreement"),! Line Location: REM+14
Function Call: WRITE	Prompt: !,"Preferred Method of Receiving Reminders: ",$$VAL^XBDIQ1(9000001,APCHSPAT,4002),! Line Location: REM+15
Function Call: WRITE	Prompt: ?30,"DESIGNATED PROVIDERS",! Line Location: BDPDISP+1
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(90360.1,APCHSX,.03),! Line Location: BDPDISP+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	GET1^DIQ
^BWPCD - [#9002086.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	REM+12
^APCHSITE - [#9001023]	V+9, V+10
^AUPNNPP - [#9000038]	DEMDSP+45
^AUPNPAT - [#9000001]	DEMOG+13, V+2, V+15, V+16, V+17, V+28, DEMDSP+7, DEMDSP+54, REM+3, REM+4 , REM+15
^AUTTTRI - [#9999999.03]	V+5
^BCPP(	REM+11
^BDPRECN - [#90360.1]	BDPDISP+5
^BDPRECN("C"	DEMDSP+56, BDPDISP+2
^BDPTCAT - [#90360.3]	BDPDISP+7, BDPDISP+8
^BWP - [#9002086]	REM+2
^BWPCD("C"	WWENPROC+4
^DD("DD"	DEMOG+7, DEMOG+16
^DD(9000001	DEMOG+49, DEMOG+50, V+7
^DIC(16 - [#16]	DEMOG+50
^DIC(23 - [#23]	VSTAT+3
^DIC(4 - [#4]	DEMDSP+54
^DIC(5 - [#5]	V+20
^DIC(6 - [#6]	DEMOG+50
^DPT - [#2]	DEMOG+2, DEMOG+10, DEMOG+24, DEMOG+25, V+1, V+20, V+23, VSTAT+1, VSTAT+2, VSTAT+5 , AGE+2, SSN+2, SSN+3
^LR - [#63]	DEMOG+29, DEMOG+30
^UTILITY($J	DEMDSP+8!, DEMDSP+15, DEMDSP+17, DEMDSP+20!
^VA(200 - [#200]	DEMOG+49

Label References

Name	Line Occurrences
$$AGE	DEMDSP+23
$$SSN	DEMOG+8
$$WWENPROC	WWDSPL+4
BDPDISP	DEMDSP+56
DEMDSP	V+29
DSPCMSRG	REM+16
REM	DEMDSP+56
VSDT	VSTAT+4
VSTAT	V+1

Naked Globals

Name	Field # of Occurrence
^(	V+20, VSTAT+1, VSTAT+5, DEMDSP+54
^("VET"	V+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	AGE+6~, AGE+7*, AGE+8, AGE+12
>> %1	AGE+8*, AGE+9, AGE+12
>> A	REM+2, REM+3, REM+4, BDPDISP+5, BDPDISP+6, BDPDISP+7, BDPDISP+8, BDPDISP+9*
AGE	WWDSPL+1~, WWDSPL+12*, WWDSPL+13
>> APCHAG	REM+14
>> APCHOTPH	V+28*, DEMDSP+38, DEMDSP+40
>> APCHPLNG	DEMDSP+36*, DEMDSP+39, DEMDSP+40
APCHSADR	V+19, V+20, V+21*, V+22, DEMOGX!
>> APCHSBRK	DEMDSP+1
APCHSBT	DEMOG+36, DEMOG+40, DEMOG+41*, DEMDSP+29, DEMDSP+30, DEMOGX!
>> APCHSCKP	DEMDSP+16, DEMDSP+55, REM+8, BDPDISP+3
APCHSCMR	V+8, V+22, DEMDSP+41, DEMOGX!
APCHSDOB	DEMOG+6, DEMOG+7, DEMDSP+23, DEMOGX!
APCHSDSC	DEMDSP+6!, DEMDSP+7*, DEMDSP+20!
APCHSDSC(	DEMDSP+10, DEMDSP+11
APCHSDSC(1	DEMDSP+7*
APCHSEL	V+6, V+7, DEMDSP+42, DEMOGX!
APCHSEX	DEMOG+4*, DEMDSP+24, DEMOGX!, WWDSPL+2
APCHSFAC	DEMDSP+54*, DEMOGX!
APCHSFLD	V+10, V+12, V+16, V+17, DEMOGX+1!
>> APCHSFNM	DEMOG+12*, DEMDSP+35
APCHSFP	DEMDSP+54*, DEMOGX!
APCHSHPH	V+24, V+25, V+26*, V+27, DEMDSP+35, DEMOGX!
APCHSHRN	DEMDSP+54*, DEMOGX!
APCHSI	V+7*, DEMOGX!
APCHSJ	DEMOGX!
APCHSLUD	DEMOG+15, DEMOG+16, DEMDSP+42, DEMOGX!
APCHSMNM	DEMOG+11*, DEMDSP+33, DEMDSP+34, DEMOGX!
APCHSN	DEMOG+2, DEMOG+3, DEMOG+4, DEMOG+5, DEMOG+10, DEMOG+11, DEMOG+12, DEMOG+13, DEMOG+14, DEMOG+40 , DEMOG+46, V+2, V+3, V+6, V+8, V+20, V+23, V+24, VSTAT+2, VSTAT+3 , VSTAT+4, VSTAT+5, DEMOGX!
APCHSNAM	DEMOG+3*, DEMDSP+22, DEMOGX!
APCHSNL	V+9, V+11, V+16, V+17, REM+10, DEMOGX+1!
APCHSNPP	DEMDSP+45*, DEMDSP+47, DEMDSP+49, DEMDSP+50, DEMDSP+52!
APCHSOPH	V+24, V+25, V+27, DEMDSP+35, DEMOGX!
APCHSP	V+7, V+20, DEMOGX!
>> APCHSPAT	DEMOG+2, DEMOG+8, DEMOG+10, DEMOG+13, DEMOG+24, DEMOG+25, V+1, V+2, V+15, V+16 , V+17, V+20, V+23, V+28, VSTAT+1, VSTAT+2, VSTAT+5, DEMDSP+2, DEMDSP+3, DEMDSP+4 , DEMDSP+5, DEMDSP+7, DEMDSP+23, DEMDSP+36, DEMDSP+45, DEMDSP+46, DEMDSP+48, DEMDSP+54, DEMDSP+56, REM+2 , REM+3, REM+4, REM+11, REM+13, REM+14, REM+15, BDPDISP+2
APCHSPP	DEMOG+46, DEMOG+47, DEMOG+48, DEMOG+49, DEMOG+50*, DEMDSP+57, DEMOGX!
>> APCHSQIT	DEMDSP+10, DEMDSP+16, DEMDSP+21, DEMDSP+55, REM+7, REM+8, BDPDISP+3
APCHSRE1	V+13!, REM+6, DEMOGX!, DEMOGX+1!
APCHSRE1(	V+16*, REM+7, REM+9
APCHSRE1(99999	V+17*
APCHSRE2	DEMOGX!
APCHSSN	DEMOG+8*, DEMDSP+33, DEMOGX!
APCHSTR	V+3, V+4, V+5*, DEMDSP+33, DEMOGX!
APCHSVST	V+1, VSTAT, VSTAT+1, VSTAT+3, VSTAT+4, VSTAT+5, DEMDSP+43, DEMOGX!
APCHSX	DEMDSP+9, DEMDSP+10, DEMDSP+11, DEMDSP+20!, REM+7, REM+9, DEMOGX+1!, BDPDISP+2, BDPDISP+5, BDPDISP+9
APCHSZ	DEMDSP+15*, DEMDSP+17, DEMDSP+20!
>> APCHTCNT	V+14, V+15, REM+10
APCHX	DEMOG+43!
APCHX("ABO"	DEMOG+31*, DEMOG+32, DEMOG+35
APCHX("ABO/Rh"	DEMOG+35*, DEMOG+36, DEMOG+39
APCHX("LR"	DEMOG+30*, DEMOG+31, DEMOG+33
APCHX("LRDFN"	DEMOG+25*, DEMOG+27, DEMOG+28, DEMOG+29, DEMOG+30
APCHX("Rh"	DEMOG+33*, DEMOG+34, DEMOG+35
>> C	V+14, V+16, V+17*
D	AGE~, AGE+4*, AGE+7
DFN	AGE~, AGE+1, AGE+2, AGE+3, AGE+7, WWDSPL~, WWDSPL+4, WWDSPL+8, WWDSPL+10, WWDSPL+12 , WWENPROC~, WWENPROC+3, WWENPROC+4
DIWL	DEMDSP+10*, DEMDSP+15, DEMDSP+17, DEMDSP+20!
DIWR	DEMDSP+10*, DEMDSP+20!
DT	DEMDSP+23, DEMDSP+36, AGE+4
DUZ(2	V+9, V+10
E	V+20*, DEMOGX!
F	AGE~, AGE+5*, AGE+9
IEN	WWENPROC+1~, WWENPROC+4*, WWENPROC+5, WWENPROC+6
P	SSN~, SSN+1, SSN+2, SSN+3
PDT	WWENPROC+1~, WWENPROC+2, WWENPROC+3, WWENPROC+4, WWENPROC+6*, WWENPROC+7
SDATE	WWDSPL+1~, WWDSPL+3, WWDSPL+6, WWDSPL+10*, WWDSPL+15
STAT	WWDSPL+1~, WWDSPL+3, WWDSPL+6, WWDSPL+8, WWDSPL+9, WWDSPL+13, WWDSPL+14, WWDSPL+15
U	DEMOG+3, DEMOG+4, DEMOG+5, DEMOG+11, DEMOG+12, DEMOG+14, DEMOG+31, DEMOG+33, DEMOG+40, DEMOG+46 , DEMOG+49, DEMOG+50, V+1, V+3, V+5, V+6, V+7, V+8, V+9, V+10 , V+20, V+24, V+28, VSTAT+1, VSTAT+3, VSTAT+4, VSTAT+5, DEMDSP+7, DEMDSP+47, DEMDSP+49 , DEMDSP+50, DEMDSP+54, REM+2, REM+3, REM+4, REM+15, BDPDISP+5, BDPDISP+8, SSN+3
WW	WWDSPL+1~, WWDSPL+4*, WWDSPL+5, WWDSPL+6
X	V+7, V+15, V+16, V+17, DEMDSP+11, DEMDSP+12, DEMDSP+13, REM+12, DEMOGX!
Y	DEMOG+5, DEMOG+6, DEMOG+7, DEMOG+14, DEMOG+15, DEMOG+16, VSTAT+4, VSTAT+5, VSDT*, DEMOGX!

Customize PDF page

Package: Patient Care Component

Routine: APCHS1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: