Routine: NURA9J1

Information

NURA9J1 ;HIRMFO/JH,FT-NURSING EDUCATION PROFILE BY LOCATION/SVC. CATEGORY ;8/9/96 11:10

Source file <NURA9J1.m>

Package	Total	Call Graph
Nursing Service	9	(EN3,EN4)^NURAAGS0 EN2^NURAED3 (HEADER,NODATA,PRINT)^NURAGEN ^NURAKILL EN2^NURSAGP1 (EN1,EN2,EN5,PRD)^NURSAGSP EN1^NURSAUTL EN7^NURSUT0 CLOSE^NURSUT1

Name	Comments	DBIA/ICR reference
CAT
START	;
POS	;NURSING EDUCATION PROFILE BY LOCATION/SVC. POSITION
START1	;
DEV	;
QUIT
CHK
HSKEEP	;
TOTALS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CAT+2
Function Call: WRITE	Prompt: ! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: POS+2
Function Call: WRITE	Prompt: ! Line Location: POS+3
Function Call: WRITE	Prompt: ! Line Location: START1+3
Function Call: WRITE	Prompt: ! Line Location: HSKEEP+4
Function Call: WRITE	Prompt: !,?47,X Line Location: TOTALS+2
Function Call: WRITE	Prompt: !!,"TOTAL NUMBER OF ASSIGNMENTS ",?47,$J(NTCT,4,0),!!,"TOTAL NUMBER OF PERSONNEL",?47,$J(NTOT,4,0) Line Location: TOTALS+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("NURA"	START+1!, START1+1!, QUIT!
^TMP("NURLOC"	START+1!
^TMP("NURSCAT"	CAT+1*
^TMP($J	START+1!, START1+1!, QUIT!

Name	Line Occurrences
CHK	START+3, START1+3
DEV	CAT+3, POS+4
HSKEEP	CAT, POS+1
QUIT	CAT, CAT+2, CAT+3, START+3, START+5, POS+1, POS+2, POS+3, POS+4, START1+3 , START1+5
TOTALS	START+4, START1+4

Name	Field # of Occurrence
>> ANS2	DEV+1, DEV+2
>> DIC(0	HSKEEP+2*
IO	START+1, START1+1
IOSL	TOTALS+1
>> NRNS	POS+2*
>> NRPT	START+3, START1+3
>> NTCT	TOTALS+2
>> NTOT	TOTALS+2
>> NURMDSW	HSKEEP+2, HSKEEP+3
>> NUROUT	CAT, CAT+2, START+3, POS+1, POS+2, POS+3, START1+3, HSKEEP+1, HSKEEP+2, HSKEEP+3
>> NURPAGE	START+1, START1+1
NURPLSCR	HSKEEP+2, HSKEEP+3!
>> NURPLSW	HSKEEP+3
>> NURQUIT	START+1, START1+1
>> NURROU	START+3, START1+3
>> NURSLEV	START+3, START1+3
>> NURSSP	START+1, START+2, START1+1, START1+2
>> NURSTIL	START+2, START1+2
>> NURSTIL1	START+2, START1+2
>> NURSTIL2	START+2, START1+2
>> NURSW1	START+1, START1+1
>> NX	START+3, START1+3
>> POP	CAT+3, POS+4
>> X	TOTALS+2*
>> ZTDESC	DEV+1*
>> ZTRTN	DEV+2*
>> ZTSAVE("^TMP(""NURSCAT"",$J,"	DEV+1*
>> ZTSK	CAT+3, POS+4