Routine: BCHUDSP

Information

BCHUDSP ; IHS/CMI/LAB - display record in detail ;

Source file <BCHUDSP.m>

Package	Total	Call Graph
VA Fileman	2	EN^DIQ ^DIR

Package	Total	Caller Graph
IHS RPMS CHR System	3	BCHUDEL BCHUDISP BCHUEDT

Name	Comments	DBIA/ICR reference
EN	;EP
HEAD2	; if printer
HEAD1	; if terminal
EOJ	; EOJ CLEANUP
EOP	; pause OR form feed between pages for terminal/printer
DSPLY2
DSPLY3	;
DSPLY1	;DISPLAY V FILE DATA

Name	Field # of Occurrence
EN^DIQ	HEAD2+8, DSPLY3+6
^DIR	EOJ+1, EOP+2

Name	Line Occurrences
Function Call: WRITE	Prompt: X,!! Line Location: HEAD2+4
Function Call: WRITE	Prompt: !,X,!! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?13,"******** CONFIDENTIAL PATIENT INFORMATION ********",! Line Location: HEAD2+6
Function Call: WRITE	Prompt: BCHVDSH," CHR RECORD ",BCHVDSH Line Location: HEAD2+7
Function Call: WRITE	Prompt: !!,X,!! Line Location: DSPLY1+2
Function Call: READ	Timeout: DTIME Variable: BCHX Line Location: DSPLY3+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: DSPLY3+1
Function Call: WRITE	Prompt: !,BCHVDSH," ",$J("",Z),BCHVNM,$J("",Y)," ",BCHVDSH Line Location: DSPLY3+4
Function Call: WRITE	Prompt: ! Line Location: EOJ+1
Function Call: WRITE	Prompt: @IOF Line Location: EOP+1
Function Call: WRITE	Prompt: ! Line Location: EOP+2
Routine Call	DIR Line Location: EOJ+1 EOP+2

FileNo	Call Tags
^BCHR - [#90002]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BCHR - [#90002]	EN+2
^DIC - [#1]	DSPLY1+1, DSPLY2, DSPLY2+1

Name	Field # of Occurrence
BCHBRK	HEAD2+2, DSPLY1+1, DSPLY1+2, DSPLY2+2, DSPLY3+3, EOJ+1, EOJ+2!, EOP+2
>> BCHR	EN+1, EN+2, HEAD2+8
BCHVDFN	DSPLY2+2*, DSPLY3+6, EOJ+2!
BCHVDG	DSPLY2+1*, DSPLY3+6, EOJ+2!
BCHVDSH	HEAD2+3*, HEAD2+7, DSPLY3+4, EOJ+2!
BCHVFLE	DSPLY1+1*, DSPLY2, DSPLY2+1, EOJ+2!
BCHVI	DSPLY2+2*, DSPLY3+4, EOJ+2!
BCHVIGR	DSPLY2+1*, DSPLY2+2, EOJ+2!
BCHVL	DSPLY1+1*, EOJ+2!
BCHVNM	DSPLY2*, DSPLY3+4, EOJ+2!
BCHX	EOJ+2!
D0	HEAD2+1~
DA	HEAD2+1~, HEAD2+8, DSPLY3+6, EOJ+1!
DIC	HEAD2+1~, HEAD2+8, DSPLY3+6
DIQ	HEAD2+1~
DIQ(0	DSPLY3+6*
DIR	EOJ+1!, EOP+2!
DIR("A"	EOJ+1*
DIR(0	EOJ+1, EOP+2
>> DIRUT	EOP+2*
DK	HEAD2+1~
DL	HEAD2+1~
DR	HEAD2+1~, DSPLY3+5!
>> DUOUT	EOP+2
DX	HEAD2+1~
IO("S"	EOP+1
IOF	HEAD1+1, EOP+1
IOSL	DSPLY3+2
IOST	EN+3, EOJ+1, EOP+1
S	HEAD2+1~
U	DSPLY2
>> X	HEAD2+5, DSPLY1+2, DSPLY3+4*
>> Y	DSPLY3+4*
>> Z	DSPLY3+4*