Routine: BCHUDISP

Package	Total	Call Graph
IHS RPMS CHR System	6	HDR^BCHUAR GATHER^BCHUARL EN^BCHUDSP PRINT1^BCHUFPP ^BCHULKUP PAUSE^BCHUTIL1
VA Fileman	3	^%DT ^DIC ^DIR
Registration	2	FULL^VALM1 EN^VALM2

Package	Total	Caller Graph
IHS RPMS CHR System	1	BCH DE DISPLAY CHR RECORD

Name	Comments	DBIA/ICR reference
RECLKUP	;
EN	;EP called from list manager display a record protocol
GETPROV	;get location of encounter
FORMAT	;
EOJ	; END OF JOB
DONE
EXIT	;EP
DSPLY	;
GETDATE	; GET DATE OF ENCOUNTER

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Date entered!" Line Location: BCHUDISP+4
Function Call: WRITE	Prompt: ! Line Location: GETDATE+1
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+6
Function Call: WRITE	Prompt: !,"No records selected." Line Location: EN+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EN+3
Function Call: WRITE	Prompt: !,"Not a valid CHR RECORD." Line Location: EN+5
Routine Call	DIC Line Location: GETPROV+2
Routine Call	DIR Line Location: GETDATE+3 FORMAT+2

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BCHR - [#90002]	EN+5

Name	Line Occurrences
DONE	EN+8, EN+9
DSPLY	BCHUDISP+10
EOJ	BCHUDISP+4, BCHUDISP+7, BCHUDISP+9, BCHUDISP+10, BCHUDISP+12
EXIT	EN+2, EN+3, EN+4, EN+5, DONE
FORMAT	BCHUDISP+8, EN+7
GETDATE	BCHUDISP+3, GETDATE+5, GETDATE+6
GETPROV	BCHUDISP+5
RECLKUP	BCHUDISP+6

Name	Field # of Occurrence
>> %DT	GETDATE+5*
BCHDATE	BCHUDISP+4, GETDATE+2, GETDATE+8, EOJ+1!
BCHDR	EXIT+5!
BCHF	EXIT+5!
BCHODAT	GETDATE+7!, EOJ+1!
BCHPRNM	EXIT+5!
BCHPROV	GETPROV+1, GETPROV+4, EOJ+1!
BCHQUIT	EXIT+5!
BCHR	BCHUDISP+6!, BCHUDISP+7, EOJ+1!, EN+3!, EN+4!, EN+5!, EXIT+5!
>> BCHRCNT	EXIT+3
BCHRDEL	EN+4!, EN+5!, EXIT+5!
BCHRRECS	BCHUDISP+6!
BCHTYPE	BCHUDISP+9, BCHUDISP+10, BCHUDISP+11, EOJ+1!, EN+8, EN+9, EN+10, FORMAT+1, FORMAT+4, EXIT+5!
BCHV	EXIT+5!
BCHVDLT	EXIT+5!
BCHVRECS	BCHUDISP+6!
BCHVRECS("IDX"	EN+4
DA	GETPROV+2!
DFN	EOJ+1!, EXIT+5!
DIC	GETPROV+2*!
DIC("A"	GETPROV+2*
DIC(0	GETPROV+2*
DIR	GETDATE+3!, FORMAT+2!
DIR("A"	GETDATE+3, FORMAT+2
DIR("B"	FORMAT+2*
DIR(0	GETDATE+3, FORMAT+2
>> DIRUT	GETDATE+3, GETDATE+4, FORMAT+2, FORMAT+3
DT	GETDATE+3, GETDATE+6
>> DUOUT	GETDATE+3, FORMAT+2
>> VALMBCK	EXIT+1*
>> VALMCNT	EXIT+3*
VALMY	EN+2, EN+3!
VALMY(0	EN+3
X	GETDATE+6!
XQORNOD	EN+3!
XQORNOD(0	EN+1
>> Y	GETDATE+5, GETDATE+6, GETDATE+8, GETPROV+3, GETPROV+4, FORMAT+4

Information