Routine: NURACEW1

Information

NURACEW1 ;HIRMFO/RM-CHECK FOR PATIENTS NOT CLASSIFIED BY WARD...cont. ;MAY 1985

Source file <NURACEW1.m>

Package	Total	Call Graph
Nursing Service	1	EN1^NURACE0
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
Nursing Service	2	NURACEW NURACEW0

Name	Comments	DBIA/ICR reference
CHKCONT1	;
CHKCONT2	;
SETSORT	;
SORTTABL	; THIS PUTS THE ARRAYS IN ORDER BY ROOM-BED (IF EXIST) OR NAME
Q
EN1	; ENTRY FROM NURACEW0, ASK TO CLASSIFY THOSE NOT CLASSIFIED TODAY
RESETARR	;
QUIT2	; KILL REST OF VARIABLES USED IN ROUTINE

Name	Field # of Occurrence
YN^DICN	CHKCONT1+1, CHKCONT2+1
EN1^NURACE0	CHKCONT1+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P(NURSTABL(TCNT),"^",2),?$X+10,ROOMTABL(TCNT)," OK" Line Location: CHKCONT1+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: CHKCONT1+5
Function Call: WRITE	Prompt: !!,"Do you wish to stop looping through names" Line Location: CHKCONT2+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: CHKCONT2+4
Function Call: WRITE	Prompt: !!,?16,"** ROUTINE FINISHED **",!! Line Location: QUIT2+1

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	SORTTABL+1!, SORTTABL+3, Q!, RESETARR+3, SETSORT+2*

Name	Field # of Occurrence
%	CHKCONT1+1, CHKCONT1+2, CHKCONT1+3, CHKCONT1+4, CHKCONT2+1, CHKCONT2+2, CHKCONT2+3, QUIT2+2!
>> DATETABL	SORTTABL+1
>> DATETABL(	RESETARR+3*, SETSORT+2
>> DFN	SORTTABL+3*, RESETARR+2
NS1	QUIT2+2!
>> NURQUIT	EN1+2, CHKCONT1+2, CHKCONT2+2*
NURSA	QUIT2+2!, SORTTABL+3*
>> NURSCNT	SORTTABL+2
>> NURSDTSW	SORTTABL+1*, RESETARR+3, SETSORT+2
NURSTABL	QUIT2+2!
NURSTABL(	EN1+2, CHKCONT1+1, RESETARR+2*, RESETARR+3, SETSORT+1, SETSORT+2
NURSTABL(1	EN1+1, QUIT2+1
NURSTRAN	QUIT2+2!
>> NURSWHO	SETSORT+1*, SETSORT+2
NURSX	QUIT2+2!, SORTTABL+3*, RESETARR+1, RESETARR+2, RESETARR+3
>> NURSY	SORTTABL+3*, RESETARR+2, RESETARR+3
>> NURSZ	SORTTABL+2, SORTTABL+3, RESETARR+1, RESETARR+3, SETSORT+1, SETSORT+2
>> PRTSW	QUIT2+1
>> ROOMTABL(	CHKCONT1+1, RESETARR+1*, SETSORT+2
TABLSW	CHKCONT1+3*, QUIT2+2!
TCNT	EN1+2*, CHKCONT1+1, QUIT2+2!