Routine: NURARPC4

Information

NURARPC4 ;HIRMFO/MD-CONTINUATION OF DRIVER TO PRINT AMIS 1106 PATIENT CATEGORY TOTAL ;5/9/97

Package	Total	Call Graph
Nursing Service	4	$$NOVALU^NURARPC1 (BRK,BRK2,HEADER,HEADER1)^NURARPC2 EN6^NURSAUTL $$EN12^NURSUT3

Package	Total	Caller Graph
Nursing Service	1	NURARPC3

Name	Comments	DBIA/ICR reference
A
P0
SET	; ACCUMULATE PERIOD TOTALS IN TMP GLOBAL
E
C
WRITE	;
PERSORT	; TOTAL SUBROUTINE FOR MONTHLY QUARTERLY AND YEARLY CATEGORY TOTALS
P1
B
PERRPT	; PERIOD REPORT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WARD: ",$S(NBDSECT="":NF1,1:NF2) Line Location: WRITE+6
Function Call: WRITE	Prompt: !,"BED SECTION: ",NF1 Line Location: WRITE+7
Function Call: WRITE	Prompt: !,?6,NF2 Line Location: B+0
Function Call: WRITE	Prompt: !,?6,$S(NBDSECT="":NF2,1:NF1) Line Location: B+1
Function Call: WRITE	Prompt: ?34,$J($P(CATL,U),3),?42,$J($P(CATL,U,2),3),?50,$J($P(CATL,U,3),3),?58,$J($P(CATL,U,4),3),?66,$J($P(CATL,U,5),3),?74,$J(CATL("CEN"),3) Line Location: C+0

Name	Line Occurrences (* Changed, ! Killed)
^NURSA(213.4 - [#213.4]	PERSORT+2, PERSORT+3, PERSORT+4, PERSORT+7, SET+1
^NURSF(213.3 - [#213.3]	A, A+1, A+2, A+3, SET+1
^TMP("NURBDSM"	SET+3, SET+4*
^TMP($J	SET+6, SET+7, PERRPT+2, P0, P1, WRITE+2

Name	Field # of Occurrence
^(	SET+3*, SET+4, SET+7
^(0	PERSORT+7, A, A+1, A+2, A+3, SET+1

Name	Field # of Occurrence
>> CATL	WRITE+2*, WRITE+3, C, E
>> CATL("CEN"	PERRPT+1, WRITE+3, WRITE+4, C, E+1*
>> D1	PERSORT+7*, SET+1, SET+7
>> F1	A, A+1, A+2, A+3, SET+6, SET+7
>> F2	A, A+1, A+2, A+3, SET+6, SET+7
IOSL	WRITE+1
>> NBDSECT	A+1, A+2, A+3, WRITE+6, B+1
NBED	PERSORT+7!
NBED(	SET+1*, SET+7
NBED("BEDSEC"	SET+1*, SET+2, SET+3, SET+4
>> NDA	PERSORT+1, PERSORT+2, PERSORT+3, PERSORT+4, PERSORT+7, SET+1
>> NF1	P0*, P1, WRITE+2, WRITE+6, WRITE+7, B+1
>> NF2	P1*, WRITE+2, WRITE+6, B, B+1
>> NHOSPSW	PERSORT+4, PERSORT+5, PERSORT+6, A, A+1, A+2, A+3, SET+2, PERRPT+2
>> NPWARD	A, A+1
>> NTC(	P0+1, E
>> NTCEN	WRITE+4*
>> NURFAC	SET+2
>> NURFAC(1	PERSORT+6
>> NURFAC(2	PERSORT+4, PERSORT+5, PERSORT+6, SET+6, SET+7, PERRPT+2*, P0, P1, WRITE+2
>> NURMDSW	PERSORT+4, SET+2, PERRPT+2
>> NURMDSW(1	PERRPT+2, WRITE+1, E+1*
>> NURMDSW(2	P0, WRITE+6, WRITE+7, E+1
>> NUROUT	PERRPT+2, P0, P1, WRITE+1
>> NURSTYPE	A, WRITE+6, B
>> NURSUMSW	PERRPT+2, WRITE+5
>> NURSWARD	A+2, A+3
>> NURSWARD(0	A+2, A+3
>> NURTYPE	PERSORT+2, PERSORT+3
U	PERSORT+2, PERSORT+3, PERSORT+4, PERSORT+7, A, A+1, A+2, A+3, SET+1, SET+2 , SET+3, SET+4, SET+7, WRITE+3, C, E
>> X	P0+1, WRITE+3, E*
>> Y	SET+7*
>> YY("B"	PERSORT+7*, A, A+1, A+2, A+3
>> YY("W"	PERSORT+4*, PERSORT+5, A, A+1, A+2, A+3
>> Z	SET+4*