Routine: BCHHS

Information

BCHHS ; IHS/CMI/LAB - CHR HEALTH SUMMARY CALL ;

Source file <BCHHS.m>

Name	Comments	DBIA/ICR reference
GETTYPE	;
EN	;EP ; generate health summary from protocol
EXIT	;EP
GETPAT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+10
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"The CHR Health Summary type is Missing. You need version 2.0 of Health Summary.",! Line Location: GETTYPE+2
Function Call: WRITE	Prompt: !,"Error in Health Summary file!",$C(7),$C(7) Line Location: GETTYPE+3
Routine Call	DIC Line Location: GETPAT+2
Routine Call	DIR Line Location: EN+10

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	GETTYPE+3
^APCHSCTL("B"	GETTYPE+1
^DPT - [#2]	EN+7

Name	Field # of Occurrence
%	EN+7*, EN+8, EN+9!
AMCHDAYS	EN+9!
AMCHDOB	EN+9!
APCHSMTY	EN+9!
APCHSPAT	EN+4, EN+7, EN+9!, GETPAT+1, GETPAT+4, EXIT+5!
APCHSTAT	EN+9!
APCHSTYP	EN+6, EN+9!, GETTYPE+1, GETTYPE+2, GETTYPE+3
BCHDR	EXIT+5!
BCHF	EXIT+5!
BCHQUIT	EXIT+5!
BCHR	EXIT+5!
>> BCHRCNT	EXIT+3
BCHRDEL	EXIT+5!
BCHV	EXIT+5!
BCHVDLT	EXIT+5!
DA	EN+10!
DIC	GETPAT+2*!
DIC("A"	GETPAT+2*
DIC(0	GETPAT+2*
DIR	EN+10!
DIR("A"	EN+10*
DIR(0	EN+10*
U	EN+7
>> VALMBCK	EXIT+1*
>> VALMCNT	EXIT+3*
>> Y	GETPAT+3, GETPAT+4