Routine: PXRMLPHS

Name	Comments	DBIA/ICR reference
HSI(PLNODE)	;Print health summary for selected patients.
HSEL(IEN)	;Select Health Summary Type
HSA(LISTIEN)	;Run health summary for all patients on this patient list.
HS1
PRINT(HSIEN,PLNODE)	;Print HS for Patient List IEN
SORT(LISTIEN,PLNODE)	;Sort workfile as required
QUE(HSIEN,PLNODE)	;Determine whether the report should be queued.

Name	Line Occurrences
Function Call: WRITE	Prompt: IORESET Line Location: HSA+5
Function Call: WRITE	Prompt: ! Line Location: HS1+2
Function Call: WRITE	Prompt: !,"A health summary type name must be entered" Line Location: HS1+4
Function Call: WRITE	Prompt: IORESET Line Location: HSI+5
Routine Call	DIC Line Location: HS1+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SORT+8
^PXRMXP(810.5 - [#810.5]	SORT+4, SORT+5
^XTMP(	HSA+11!, HSA+12, PRINT+4, PRINT+5, PRINT+9!, SORT+9

Name	Field # of Occurrence
%ZIS	QUE+1~, QUE+2*, QUE+7
DATA	SORT+1~, SORT+5*, SORT+6
DFN	PRINT+1~, PRINT+5, PRINT+6, SORT+1~, SORT+6, SORT+8, SORT+9
DIC	HSEL+1~, HS1*
DIC("A"	HS1+1*
DIC(0	HS1*
DIROUT	PRINT+1~, PRINT+4
DT	HSA+12
>> DTOUT	HSA+8, HS1+5*, HS1+7, HSI+8
>> DUOUT	HSA+8, HS1+6*, HS1+7, HSI+8
HSIEN	HSA+1~, HSA+8, HSA+14, HSI+1~, HSI+8, HSI+9, PRINT~, PRINT+6, QUE~
IEN	HSEL~, HS1+9*
IND	SORT+1~, SORT+3, SORT+4, SORT+5
>> IORESET	HSA+5, HSI+5
LISTIEN	HSA~, HSA+13, SORT~, SORT+4, SORT+5
PLNODE	HSA+1~, HSA+10*, HSA+11, HSA+12, HSA+13, HSA+14, HSI~, HSI+9, PRINT~, PRINT+4 , PRINT+5, PRINT+9, QUE~, SORT~, SORT+9
PNAME	SORT+1~, SORT+8*, SORT+9
PXRMQUE	QUE+1~, QUE+7*
SUB	PRINT+1~, PRINT+3, PRINT+4, PRINT+5
U	HSA+12, HS1+5, HS1+9, SORT+6, SORT+8
>> VALMBCK	QUE+8*
X	HSEL+1~, HS1+4, HS1+5
Y	HSEL+1~, HS1+6, HS1+9
ZTDESC	QUE+1~, QUE+3*, QUE+7
ZTRTN	QUE+1~, QUE+4*, QUE+7
ZTSAVE	QUE+1~, QUE+7
ZTSAVE("HSIEN"	QUE+5*
ZTSAVE("PLNODE"	QUE+6*
ZTSK	QUE+1~

Information