Routine: BWUINC

Information

BWUINC ; IHS/CMI/LAB/PLS - update income status ;06-Oct-2003 15:36;DKM

Source Information

Source file <BWUINC.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 ($$FTIME,CLEAR,FULL)^VALM1 EN^VALM2
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 ^XBFMK
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
IHS Patient	1	(,KILL)^AUPNPAT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Women's Health	1	BW UPDATE INCOME STATUS

Entry Points

Name	Comments	DBIA/ICR reference
INCWH(V,F)	;EP - income stat at procedure date
EN	; -- main entry point for BW UPDATE PATIENT CASE DATA
HDR	; -- header code
EDIT	;
EOJ	;
INCV(V,F)	;EP - patient's income level at date of visit v
GATHER	;
GETPAT	;
UR	;EP - called from protocol
START	;EP - update case data
INIT	; -- init variables and list array
PAUSE	;EP
EXIT	; -- exit code
EP1(DFN)	;EP - CALLED FROM PROTOCOL
GETIS	;
ADD	;EP called from protocol to open a new case
EP	;EP CALLED FROM DATA ENTRY
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
^AUPNPAT	EP+4
KILL^AUPNPAT	EOJ+6
^DIC	GETPAT+3
FILE^DICN	ADD+7
^DIE	EDIT+8, UR+6
^DIR	GETIS+2, PAUSE+1
EN^VALM	EN+1
TERM^VALM0	EXIT+2
$$FTIME^VALM1	HDR+2
CLEAR^VALM1	EOJ+4
FULL^VALM1	EP1+5, START+3, ADD+1, EDIT+7, UR+4
EN^VALM2	EDIT+2
$$VAL^XBDIQ1	GATHER+7, INCV+13, INCWH+13
$$VALI^XBDIQ1	INCV+13, INCWH+13
^XBFMK	UR+5, UR+7
$$FMTE^XLFDT	ADD+6
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: START+2
Function Call: WRITE	Prompt: !!,"* Update Patient Income Category Data *",!! Line Location: START+2
Function Call: WRITE	Prompt: !!,"This patient is not on the Women's Health Register. Cannot update.",! Line Location: GETPAT+5
Function Call: WRITE	Prompt: !! Line Location: GETIS+1
Function Call: WRITE	Prompt: !!!!,"Adding New Income Status Entry for ",$P(^DPT(DFN,0),U),!! Line Location: ADD+3
Function Call: WRITE	Prompt: !,"Adding Income Status..." Line Location: ADD+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Adding Income Status entry failed Record failed !! Deleting Record.",! Line Location: ADD+8
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EDIT+3
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDIT+4
Function Call: WRITE	Prompt: !,"Not a valid INCOME STATUS RECORD." Line Location: EDIT+6
Function Call: WRITE	Prompt: !!,"DFN undefined!" Line Location: UR+1
Function Call: WRITE	Prompt: !!,"Race values currently entered for this patient:" Line Location: UR+2
Function Call: WRITE	Prompt: !?10 Line Location: UR+3
Function Call: WRITE	Prompt: $P(^BWRACE(Y,0),U) Line Location: UR+3
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: EDIT+8 UR+6
Routine Call	DIC Line Location: GETPAT+3
Routine Call	DIR Line Location: GETIS+2 PAUSE+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNINCS - [#9000026]	Classic Fileman Calls
^BWP - [#9002086]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNINCS - [#9000026]	GATHER+6, EDIT+6
^AUPNINCS("AA"	GATHER+3, GATHER+4, GATHER+5, INCV+7, INCV+8, INCV+9, INCWH+7, INCWH+8, INCWH+9
^AUPNPAT - [#9000001]	HDR+2
^AUPNVSIT - [#9000010]	INCV+4, INCV+5, INCV+6
^BWP - [#9002086]	HDR+3, UR+2, UR+3
^BWPCD - [#9002086.1]	INCWH+4, INCWH+5, INCWH+6
^BWRACE - [#9002086.34]	HDR+3, UR+3
^DPT - [#2]	EP1+2, EP1+3, HDR+2, ADD+3

Name	Line Occurrences
EN	EP1+4, EP+5, START+3
EOJ	START+4
EXIT	START+3, ADD+10, EDIT+3, EDIT+4, EDIT+6, EDIT+9, UR+1, UR+8
GATHER	INIT+2, EXIT+4
GETIS	ADD+4
GETPAT	START+3
HDR	EXIT+6
PAUSE	ADD+8, EDIT+6, UR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GATHER+6*, EOJ+2!
BALMON	EOJ+5!
BWCASE	START+1!, EN+2!, GATHER+1!, EXIT+1!, EOJ+3!
BWCASE(	GATHER+8*
BWCASE("IDX"	GATHER+8*, EDIT+5
BWD	EN+2!, GATHER+3*, GATHER+4, GATHER+5, EOJ+3!
BWDN	EN+2!, GETIS+2, GETIS+4, ADD+5, ADD+6, EOJ+3!
BWLINE	EN+2!, INIT+3, GATHER+2, GATHER+6, GATHER+8, EXIT+5, EOJ+3!
>> BWPAT	EP+1, EP+2, EP+4
BWPC	ADD+9, EDIT+1, EDIT+5*, EDIT+6, EDIT+8, EXIT+1!
BWR	EP+3~, EDIT+6!
BWR1	EDIT+4*!, EDIT+5, EXIT+1!
BWRCNT	EN+2!, GATHER+2, GATHER+6, GATHER+8, EOJ+3!
BWX	START+1!, EN+2!, GATHER+4*, GATHER+5, EXIT+1!, EOJ+3!
BWY	START+1!, GATHER+5*, GATHER+6, GATHER+7, GATHER+8, EXIT+1!
>> D	INCV+6, INCV+9, INCWH+6, INCWH+9
D0	ADD+6!, ADD+7!
DA	GETIS+2!, ADD+6!, EDIT+8, UR+6, EOJ+2!
DD	ADD+6!
DDS	EOJ+2!
DDSFILE	EOJ+1!
DFN	EP1~, EP1+1, EP1+2, EP1+3, EP+2, START+3, HDR+2, HDR+3, GETPAT+2, GETPAT+6 , GATHER+3, GATHER+4, GATHER+5, ADD+3, ADD+6, UR+1, UR+2, UR+3, UR+6
DIADD	ADD+6*, ADD+7!
DIC	GETPAT+3!, ADD+6!, ADD+7!, EOJ+2!
DIC("DR"	ADD+6*
DIC(0	GETPAT+3, ADD+6
DIE	ADD+7!, EDIT+8, UR+6
DINUM	ADD+6!
DIPGM	EOJ+1!
DIR	GETIS+2!, PAUSE+1!
DIR("A"	GETIS+2, PAUSE+1
DIR(0	GETIS+2, PAUSE+1
>> DIRUT	GETIS+3, PAUSE+1*
DLAYGO	ADD+6*, ADD+7!
DO	ADD+6!
DR	ADD+6!, ADD+7!, EDIT+8, UR+6, EOJ+2!
DT	ADD+6
>> DUOUT	PAUSE+1
DUZ(2	HDR+2
F	INCV~, INCV+1, INCV+13, INCWH~, INCWH+1, INCWH+13
I	EXIT+7!
IOF	START+2, ADD+2
>> IOINORM	HDR+2
>> IORVON	HDR+2
P	INCV+3~, INCV+5, INCV+7, INCV+8, INCV+9, INCV+14, INCWH+3~, INCWH+5, INCWH+7, INCWH+8 , INCWH+9, INCWH+14
U	EP1+3, HDR+2, HDR+3, ADD+3, UR+3, INCV+5, INCV+6, INCWH+5, INCWH+6
V	INCV~, INCV+2, INCV+4, INCV+5, INCV+6, INCWH~, INCWH+2, INCWH+4, INCWH+5, INCWH+6
VALM	EOJ+5!
VALMAR	EOJ+5!
VALMBCK	EXIT+3*, EOJ+5!
VALMBG	EOJ+5!
VALMCAP	EOJ+5!
VALMCC	EOJ+5!
VALMCNT	INIT+3, EXIT+5, EOJ+5!
VALMCOFF	EOJ+5!
VALMCON	EOJ+5!
VALMEVL	EOJ+5!
VALMHDR	EP1+6!, EOJ+5!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+4*
VALMHDR(4	HDR+5*
VALMHDR(5	HDR+6*
VALMHDR(6	HDR+7*
VALMIOXY	EOJ+5!
VALMKEY	EOJ+5!
VALMLFT	EOJ+5!
VALMLST	EOJ+5!
VALMMENU	EOJ+5!
>> VALMSG	INIT+1*
VALMSGR	EOJ+5!
VALMUP	EOJ+5!
VALMVAR	EOJ+5!
VALMWD	EOJ+4, EOJ+5!
VALMY	EDIT+3, EDIT+4!
VALMY(0	EDIT+4
X	HDR+3, HDR+4, ADD+6, ADD+7!, EDIT+5, UR+3, HELP+1, EXIT+7!, EOJ+2!, INCV+3~ , INCV+7, INCV+8, INCV+9, INCWH+3~, INCWH+7*, INCWH+8, INCWH+9
XQORNOD	EDIT+4!
XQORNOD(0	EDIT+2
Y	EP+4, HDR+3, GETPAT+4, GETPAT+6, GATHER+6, GATHER+7, GATHER+8, GETIS+4, ADD+8, ADD+9 , EDIT+5, UR+3, EXIT+7!, EOJ+1!, EOJ+2!, INCV+3~, INCV+7, INCV+8, INCV+9, INCV+12 , INCV+13, INCWH+3~, INCWH+7, INCWH+8, INCWH+9, INCWH+12, INCWH+13
Z	HDR+3, EXIT+7!, INCV+3~, INCV+8, INCV+9, INCWH+3~, INCWH+8*, INCWH+9

Customize PDF page

Package: Women's Health

Routine: BWUINC

Information

Source Information

Call Graph

Call Graph Total: 13

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

Local Variables

Legend: