Routine: NURARPC0

Information

NURARPC0 ;HIRMFO/MD-DRIVER TO PRINT AMIS 1106 ACUITY REPORTS ;2/28/96

Source file <NURARPC0.m>

Package	Total	Call Graph
Nursing Service	6	^NURAKILL ^NURARPC3 LOSER^NURARST (EN12,EN8,EN9)^NURSAGSP EN7^NURSUT0 CLOSE^NURSUT1
VA Fileman	2	^%DT ^DIC

Package	Total	Caller Graph
Nursing Service	3	NURAPR-RES-PC NURARMC0 NURARMH0

Name	Comments	DBIA/ICR reference
QUIT	; KILL LOCAL VARIABLES
BEDSEL	; SELECT BED SECTION FOR REPORT
REPTYPE	;
START	;
HSKEEP	; SET LOCAL VARIABLES
RPTYPSEL	; SELECT WHETHER REPORT IS BED SECTION OR WARD
ERROR	; ERROR IN SELECTION PROCESS
EN1	; ENTRY FROM OPTION NURAPR-RES-PCSER
EN2	; ENTRY FROM OPTION NURAPR-RES-PCLOC
HOSPSEL	; SET UP FOR WHOLE HOSPITAL REPORT
TIME	;
ASK
WARDSEL	; SELECT WARD FOR REPORT
TIMESEL	; SELECT REPORT RANGE (DAILY, MONTHLY, QUARTERLY OR ANNUALLY)

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HSKEEP+6
Function Call: WRITE	Prompt: !!!!,?21,"Patient Classification Data",!!,?19,"AMIS Report 10-1106 Segment 200" Line Location: RPTYPSEL+1
Function Call: WRITE	Prompt: ! Line Location: REPTYPE+2
Function Call: WRITE	Prompt: !!,?13,"Please select whether this report is to show",!,?13,"acuity by unit or bed section" Line Location: REPTYPE+3
Function Call: WRITE	Prompt: $C(7) Line Location: REPTYPE+8
Function Call: READ	Prompt: "Select Nursing Unit: " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Select Nursing Bed Section (Press return for all bed sections): " Line Location: BEDSEL+1
Function Call: READ	Timeout: DTIME Variable: NBDSECT Line Location: BEDSEL+2
Function Call: WRITE	Prompt: !!,?13,"Select report range: ",!!,?18,"Daily",!,?18,"Monthly",!,?18,"Quarterly",!,?18,"Annually" Line Location: TIMESEL+1
Function Call: WRITE	Prompt: $C(7) Line Location: TIME+5
Function Call: WRITE	Prompt: !!,$C(7),"CANNOT RUN REPORT, PARAMETERS WERE BADLY CHOSEN" Line Location: ERROR+1
Routine Call	DIC Line Location: ASK+1 BEDSEL+4

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls
^NURSF(213.3 - [#213.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	NURARPC0+2
^TMP("NURBDSM"	START+1!
^TMP($J	START+1!

Name	Line Occurrences
@(	HSKEEP+4, HSKEEP+6
ASK	ASK+2
BEDSEL	BEDSEL+4
EN1	NURARPC0+3
EN2	NURARPC0+3
HSKEEP	EN1+2, START+3
QUIT	NURARPC0+3, HSKEEP+3, HSKEEP+4, HSKEEP+5, HSKEEP+7, HSKEEP+8
REPTYPE	HSKEEP+3, REPTYPE+8
RPTYPSEL	HSKEEP+3
TIME	TIME+5
TIMESEL	HSKEEP+5
WARDSEL	HSKEEP+3

Name	Field # of Occurrence
>> %DT	HSKEEP+1*
DIC	ASK+1!, BEDSEL+4!
DIC("S"	WARDSEL+1*
DIC(0	REPTYPE+2, ASK+1, BEDSEL+4*
DTIME	REPTYPE+4, ASK, BEDSEL+2, TIME+1
>> NBDSECT	HSKEEP+1, BEDSEL+2, BEDSEL+3, BEDSEL+4, BEDSEL+5*
>> NHOSPSW	EN1+1, EN2+1, HSKEEP+3, HSKEEP+4, REPTYPE+2
>> NRPTDAT	HSKEEP+2*
>> NURMDSW	NURARPC0+3*, REPTYPE+2
>> NURMDSW(1	HSKEEP+1*
>> NURMDSW(2	HSKEEP+1*
>> NURMDSW(3	NURARPC0+3*
>> NUROUT	NURARPC0+3, HSKEEP+3, HSKEEP+4, HSKEEP+5, HSKEEP+7, START+3, REPTYPE+2, REPTYPE+5, ASK, BEDSEL+2 , TIME+2, ERROR+2
>> NURPAGE	HSKEEP+1*
>> NURQUEUE	NURARPC0+3*
>> NURSTYPE	EN1+1, EN2+1, HSKEEP+4, REPTYPE+4, REPTYPE+5, REPTYPE+6, REPTYPE+7
>> NURSUMSW	EN1+1*, REPTYPE+2, BEDSEL+1
>> NURSWARD	HSKEEP+1, HOSPSEL+1, ASK+3*
>> NURSWARD(0	ASK+3*
>> NURSWHEN	HSKEEP+1, HSKEEP+6, TIME+1, TIME+2, TIME+3*, TIME+4
>> POP	HSKEEP+8
>> SEL	NURARPC0+3
>> X	HSKEEP+1, ASK, BEDSEL+4*
>> Y	HSKEEP+2, ASK+2, ASK+3, BEDSEL+4, BEDSEL+5
>> Y(0	ASK+3
>> ZTRTN	HSKEEP+8*
>> ZTSK	HSKEEP+8, START+3