Routine: BDGPI1

Information

BDGPI1 ; IHS/ANMC/LJF - PI EXPANDED DEMOGRAPHICS ;

Source file <BDGPI1.m>

Package	Total	Call Graph
IHS Changes To ADT	3	$$CONF^BDGF ($$CWAD,$$HRCN)^BDGF2 $$STATE^BDGPI
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS VA Utilities	2	ENP^XBDIQ1 GUIR^XBLM
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To Scheduling	1	PCP^BSDU1
Patient Care Component	1	^APCHS5
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGPI

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BDG PI - DEMOGRAPHICS
INSUR	; set up insurance info for display ; -- insurance (from health summary)
HDR	; -- header code
NOK	; set up next of kin info for display
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
PCP	; set up primary care provider info for display
EXPND	; -- expand code
EC	; set up emergency contact info for display
INIT	; -- init variables and list array
EXIT	; -- exit code
SET(LINE,NUM)	; puts display line into array
BASIC	; -- set up demographic data for display ; very similar code to SECTION1^BDGPI
HELP	; -- help code

Name	Field # of Occurrence
^APCHS5	INSUR+2
$$CONF^BDGF	HDR+1
$$CWAD^BDGF2	BASIC+4
$$HRCN^BDGF2	BASIC+5
$$STATE^BDGPI	BASIC+16
PCP^BSDU1	PCP+2
$$GET1^DIQ	BASIC+4, BASIC+6, BASIC+10, BASIC+11, BASIC+12, BASIC+16, BASIC+17, BASIC+18, BASIC+22
EN^VALM	EN+2
TERM^VALM0	EN+1
CLEAR^VALM1	EN+1, EN+3
ENP^XBDIQ1	EC+2, NOK+2
GUIR^XBLM	INSUR+7
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BDGPI1"	INIT+1!, EXIT+1!, SET+2*
^TMP("BDGPI1A"	INSUR+4!, INSUR+9, INSUR+10, INSUR+11!

Name	Line Occurrences
$$PAD	BASIC+5, BASIC+6, BASIC+10, BASIC+12, BASIC+17, BASIC+18, EC+9, NOK+9, SP+1
$$SP	HDR+1, PCP+8, PCP+13, EC+9, EC+11, NOK+9, NOK+11
BASIC	INIT+3
EC	INIT+3
INSUR	INIT+3
NOK	INIT+3
PCP	INIT+3
SET	BASIC+7, BASIC+13, BASIC+19, BASIC+23, PCP+5, PCP+10, PCP+16, INSUR+8, INSUR+10, EC+1 , EC+5, EC+7, EC+10, EC+12, NOK+1, NOK+5, NOK+7, NOK+10, NOK+12

Name	Field # of Occurrence
APCHSBRK	INSUR+3~, INSUR+5*
APCHSCKP	INSUR+3~, INSUR+5*
APCHSCVD	INSUR+3~, INSUR+6*
APCHSNPG	INSUR+3~, INSUR+5*
APCHSPAT	INSUR+3~, INSUR+5*
APCHSQ	INSUR+3~
BDGR	BASIC+2~
BDGX	PCP+1~, PCP+2*, EC+2!, EC+13!, NOK+2!, NOK+13!
BDGX(	EC+5, EC+6, EC+9, EC+11, NOK+5, NOK+6, NOK+9, NOK+11
BDGX(1	PCP+4
BDGX(2	PCP+7, PCP+9
BDGX(3	PCP+12, PCP+14, PCP+15
D	PAD~, PAD+2
>> DFN	BASIC+4, BASIC+5, BASIC+6, BASIC+10, BASIC+11, BASIC+12, BASIC+16, BASIC+17, BASIC+18, BASIC+22 , PCP+2, INSUR+5, EC+2, NOK+2
DUZ(2	BASIC+5
L	PAD~, PAD+2
LINE	BASIC+2~, BASIC+4, BASIC+5, BASIC+6, BASIC+7, BASIC+10, BASIC+11, BASIC+12, BASIC+13, BASIC+16* , BASIC+17, BASIC+18, BASIC+19, BASIC+22, BASIC+23, PCP+3, PCP+4, PCP+5, PCP+8, PCP+9* , PCP+10, PCP+13, PCP+14, PCP+15, PCP+16, EC+4, EC+5, EC+6, EC+7, EC+9 , EC+10, EC+11, EC+12, NOK+4, NOK+5, NOK+6, NOK+7, NOK+9, NOK+10, NOK+11* , NOK+12, SET~, SET+2
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
VALMCNT	EN+1~, INIT+2*, BASIC+7, BASIC+13, BASIC+19, BASIC+23, PCP+5, PCP+10, PCP+16, INSUR+8 , INSUR+10, EC+1, EC+5, EC+7, EC+10, EC+12, NOK+1, NOK+5, NOK+7, NOK+10 , NOK+12
>> VALMHDR(1	HDR+1*
X	HELP+1, INSUR+3~, INSUR+9, INSUR+10