Routine: SCDXPOV2

Information

SCDXPOV2 ;ALB/SCK - VISIT REPORT BY NPCDB TRANSMISSION STATUS ; 10/31/96

Source file <SCDXPOV2.m>

Package	Total	Call Graph
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
Kernel	2	HOME^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Scheduling	3	SCDXPOV SCDXPOV1 SCDXPOV3

Name	Comments	DBIA/ICR reference
SHWTOT()	; Selects wether only the grand total page is shown
RPTOPT()	; Selects which parts of the report are shown
CHKELG(SCELG)	; checks for inactive entries in the ELIGIBILTIT CODE File, #8
ELGPRI(SCEL,SCCUR)	; Returns whether heirarchy level of eligibility should change ; Input ; SCEL - Eligibility ; SCCUR - Current Hierarchy level ; Returns ; SCPRI = 1 Change current hierarchy to new ; SCPRI = 0 Do not change
CLEAR	; Clear DIR variables
COVPRI(SCNEW,SCCUR)	; Returns whether heirarchy level of visit should change ; Input ; SCNEW - Eligibility ; SCCUR - Current Hierarchy level ; Returns ; SCPRI = 1 Change current hierarchy to new ; SCPRI = 0 Do not change
QUE	; Sets up the report for queueing
GETDATE(CAPTION)	; Get and return a date value ; Input: ; Caption - Prompt to be displayed in reader call

Name	Line Occurrences (* Changed, ! Killed)
^DIC(8 - [#8]	CHKELG+2, ELGPRI+9

Name	Line Occurrences
CLEAR	GETDATE+8, SHWTOT+6, RPTOPT+5

Name	Field # of Occurrence
CAPTION	GETDATE~, GETDATE+5
DIR	GETDATE+6!, SHWTOT+4!, RPTOPT+3!, CLEAR+1!
DIR("?"	SHWTOT+3*
DIR("??"	GETDATE+5*
DIR("A"	GETDATE+5, SHWTOT+1, SHWTOT+2, RPTOPT+2
DIR("B"	GETDATE+5, SHWTOT+1, RPTOPT+2*
DIR(0	GETDATE+5, SHWTOT+1, RPTOPT+1*
DIROUT	CLEAR+1!
DIRUT	GETDATE+7, SHWTOT+5, RPTOPT+4, CLEAR+1!
DTOUT	CLEAR+1!
DUOUT	CLEAR+1!
IO("Q"	QUE+6!
LV	QUE+1~, QUE+4*
SCCUR	ELGPRI~, ELGPRI+13, COVPRI~, COVPRI+13
SCEL	ELGPRI~, ELGPRI+9
SCELG	CHKELG~, CHKELG+2
SCNEW	ELGPRI+8~, ELGPRI+9*, ELGPRI+10, ELGPRI+11, ELGPRI+12, COVPRI~, COVPRI+10, COVPRI+11, COVPRI+12
SCPRI	ELGPRI+8~, ELGPRI+9, ELGPRI+10, ELGPRI+11, ELGPRI+12, ELGPRI+13, COVPRI+8~, COVPRI+9, COVPRI+10, COVPRI+11* , COVPRI+12*, COVPRI+13
U	CHKELG+2, ELGPRI+9, ELGPRI+13, COVPRI+13
>> X	GETDATE+4
>> Y	GETDATE+4, GETDATE+5, GETDATE+7, GETDATE+9, SHWTOT+5, SHWTOT+7, RPTOPT+4, RPTOPT+6
>> ZTDESCR	QUE+3*
>> ZTRTN	QUE+2*
>> ZTSAVE(	QUE+4*
>> ZTSK	QUE+5