Routine: BWMPMAIN

Information

BWMPMAIN ;IHS/CIA/PLS - Main driver for Mammography Project Add/Edit ;01-Oct-2003 16:55;PLS

Source file <BWMPMAIN.m>

Package	Total	Call Graph
Women's Health	5	(DDS,DIE,FILE)^BWFMAN DATECHK^BWPROC DIRZ^BWUTL3 ($$ACCSSN,$$CDCID,TITLE)^BWUTL5 PATLKUP^BWUTL8
VA Fileman	3	IX^DIC $$GET1^DIQ ^DIR
Kernel	1	$$DT^XLFDT

Package	Total	Caller Graph
Women's Health	1	BW MP MAIN

Name	Comments	DBIA/ICR reference
CDCID(BWDFN)	;
ADDEDIT	;
EN
HELP
EDIT
EN1	;
ADD	; Add a procedure
LOOKUP	; Lookup existing Mammography Project procedure
SCREEN(BWPCDDA)	;
PATSEL()	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Select the patient you wish to add or edit." Line Location: PATSEL+4
Function Call: WRITE	Prompt: ! Line Location: ADDEDIT+4
Routine Call	DIR Line Location: ADDEDIT+5
Routine Call	DIC Line Location: LOOKUP+13

FileNo	Call Tags
^BWPCD - [#9002086.1]	Classic Fileman Calls
^BWPN - [#9002086.2]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BWPCD - [#9002086.1]	LOOKUP+5
^BWPCD("C"	LOOKUP+4
^BWPN("B"	ADD+2

Name	Field # of Occurrence
>> BWACC	ADD+12*, ADD+13, ADD+17
BWDFN	PATSEL+3~, PATSEL+7*, PATSEL+8, ADD+16, LOOKUP+4, LOOKUP+12, CDCID~, CDCID+2, CDCID+4
BWPCDDA	ADD+1~, ADD+17, ADD+18, EDIT, SCREEN~, SCREEN+3
>> BWPCDN	ADD+2*, ADD+3, ADD+6, ADD+12, ADD+16
>> BWPCDT	ADD+16
>> BWPOP	ADD+11, CDCID+4
BWQUIT	EN1+1~, ADD+10*, SCREEN+3
BWX	LOOKUP+1~, LOOKUP+3, LOOKUP+4, LOOKUP+5
D	LOOKUP+2~, LOOKUP+11*
DIC	LOOKUP+2~, LOOKUP+11*
DIC("S"	LOOKUP+12*
DIC(0	LOOKUP+11*
DIR	ADDEDIT+1~
DIR("A"	ADDEDIT+3*
DIR(0	ADDEDIT+2*
DR	SCREEN+1~, SCREEN+2*, SCREEN+3
DRSTR	ADD+1~, ADD+16*, ADD+17
DUZ	ADD+16
DUZ(2	ADD+16, CDCID+2
>> ERROR	ADD+15, ADD+20
FLG	LOOKUP+1~, LOOKUP+3, LOOKUP+4, LOOKUP+5, LOOKUP+6
U	LOOKUP+5
X	EN1+1~, LOOKUP+2~, LOOKUP+12, CDCID+1~, CDCID+2, CDCID+3, CDCID+4
Y	PATSEL+3~, PATSEL+5, PATSEL+6, PATSEL+7, ADDEDIT+6, ADDEDIT+8, LOOKUP+2~, LOOKUP+14