Routine: BMCSMHS

Information

BMCSMHS ; IHS/PHXAO/TMJ - print face sheet ffrom screenman ;

Source file <BMCSMHS.m>

Package	Total	Call Graph
VA Fileman	3	REFRESH^DDSUTL ^DIC ^DIR
IHS VA Utilities	2	VIEWR^XBLM EN^XBNEW

Name	Comments	DBIA/ICR reference
EN	;EP - called from screenman screen to display hs
GETTYP	; EP - get health summary TYPE
REFRESH	;
EN1	;EP - called from XBNEW from EN
XIT	;
PROC	;
DIR	;call to XBDBQUE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DIR+3
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,8) Line Location: REFRESH+2
Routine Call	DIC Line Location: GETTYP+7
Routine Call	DIR Line Location: DIR+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	REFRESH+1
^APCCCTRL - [#9001000]	GETTYP+3
^APCHSCTL - [#9001015]	GETTYP+4
^DISV(	GETTYP+4
^DPT - [#2]	EN1+4

Name	Field # of Occurrence
^("^APCHSCTL("	GETTYP+4
^(0	GETTYP+3, GETTYP+4

Name	Field # of Occurrence
APCHSPAT	EN+3*, EN1+1, EN1+4, XIT+1!
APCHSTYP	EN1+3, GETTYP+1!, GETTYP+7*, XIT+1!
>> BMCDFN	EN+3
BMCOPT	DIR+2!, DIR+5*
BMCQUIT	EN+1!, DIR+4*
DA	DIR+1~, DIR+3!, GETTYP+8!
>> DDGLDEL	REFRESH+2
>> DDGLVID	REFRESH+2
DDS	DIR+1~
DIC	GETTYP+2!*, GETTYP+8!
DIC("A"	GETTYP+2*
DIC("B"	GETTYP+6*
DIC(0	GETTYP+2*
DIE	DIR+1~
DIR	DIR+3!
DIR("A"	DIR+3*
DIR("B"	DIR+3*
DIR(0	DIR+3*
DIR0	DIR+1~
>> DIRUT	DIR+4
DUZ	GETTYP+4
DUZ(2	GETTYP+3
IOF	EN+2
U	EN1+4, GETTYP+3, GETTYP+4
>> X	GETTYP+3, GETTYP+4, GETTYP+5, GETTYP+6, REFRESH+1
>> Y	DIR+5, GETTYP+4*, GETTYP+7