Routine: NURACEW0

Information

NURACEW0 ;HIRMFO/RM,MD,FT-DRIVER CHECK FOR PATIENTS NOT CLASSIFIED BY WARD ;8/14/96 09:59

Source file <NURACEW0.m>

Package	Total	Call Graph
Nursing Service	5	(EN1,QUIT2,SORTTABL)^NURACEW1 ^NURSAPCH EN6^NURSAUTL (EN2,EN6)^NURSCUTL EN7^NURSUT0
VA Fileman	3	^DIC WAIT^DICD D^DIQ
Kernel	1	^%ZISC
Registration	1	(1,KVAR)^VADPT

Package	Total	Caller Graph
Nursing Service	2	NURAPC-UNCWRD NURAPP-UNCLOC

Name	Comments	DBIA/ICR reference
PR	;
Q
ENDIT	; EDIT PATIENTS NOT CLASSIFIED BY WARD
HEADER	; PRINT REPORT HEADER
EDIT	; SELECT WARD TO SEARCH
SORT	; CHECK TO SEE IF EACH PATIENT ON WARD IS VALID
BGNVIEW	;
CHKCONT	;
QUEUE	; QUEUE REPORT TO TASKMAN
EN1	; ENTER ROUTINE FROM MENU OPTION NURAPP-UNCLOC
EN2	; ENTRY FROM OPTION NURAPC-UNCWRD
QUIT	;KILL LOCAL VARIABLES
PRINT	; PRINT REPORT FOR PTS. NOT CLASSIFIED BY WARD
FILLTABL	; ADD PATIENT TO LIST OF PATIENTS ON WARD IF VALID

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+4
Function Call: WRITE	Prompt: ! Line Location: EDIT+2
Function Call: WRITE	Prompt: !,7,"* NO PATIENTS REGISTERED ON UNIT ",NPWARD," **" Line Location: EDIT+6
Function Call: WRITE	Prompt: !!,"ALL PATIENTS ON THIS UNIT ARE CLASSIFIED",!! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,ROOMTABL(TCNT),?17,$E($P(NURSTABL(TCNT),"^",2),1,20) Line Location: CHKCONT+1
Function Call: WRITE	Prompt: ?45,Y Line Location: CHKCONT+2
Function Call: WRITE	Prompt: ?70,NURSX Line Location: CHKCONT+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),?17,"CURRENT UNCLASSIFIED PATIENT REPORT FOR LOCATION " Line Location: HEADER+3
Function Call: WRITE	Prompt: NPWARD,?73,"PAGE: ",PAGE Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,"ROOM-BED",?17,"PATIENT",?45,"LAST CLASSIFIED",?68,"ABSENCE",! Line Location: HEADER+4
Function Call: WRITE	Prompt: NURSXX Line Location: HEADER+5
Function Call: WRITE	Prompt: ! Line Location: HEADER+6
Routine Call	DIC Line Location: EDIT+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1, EN2+1
^NURSA(214.6 - [#214.6]	BGNVIEW+6
^NURSF(213.3 - [#213.3]	BGNVIEW+1
^NURSF(214 - [#214]	EDIT+6, SORT+1, BGNVIEW+1

Name	Field # of Occurrence
CHKVAR	QUIT+1!
DATETABL	QUIT+1!
DATETABL(	CHKCONT+2, FILLTABL+1*
DATEX	BGNVIEW+5, BGNVIEW+6, FILLTABL+1, QUIT+1!
DFN	CHKCONT+3, SORT+1, BGNVIEW+1, FILLTABL+1, QUIT+1!
DIC	EDIT+1*, EDIT+2!, QUIT+1!
DIC("A"	EDIT+1*
DIC("S"	EDIT+1*
DIC(0	EDIT+1*
DT	HEADER+3, FILLTABL+1
DTIME	Q, HEADER+1
G	QUIT+1!
IO	PRINT+1, Q
IOF	HEADER+3
IOSL	CHKCONT+4
IOST	Q, HEADER+1
LINE	QUIT+1!
NBED	BGNVIEW+1*, QUIT+1!
NBED(0	BGNVIEW+1*, BGNVIEW+2
NPWARD	EDIT+6, HEADER+3, QUIT+1!
NURQUEUE	EN1+2, EN2+2, Q, HEADER+1, QUIT+1!
NURQUIT	PR+1, PRINT+3, Q, HEADER+1, QUIT+1!
NURSADM	QUIT+1!
NURSCLAS	BGNVIEW+5, BGNVIEW+6, QUIT+1!
NURSCLAS("CL"	BGNVIEW+4*
NURSCNT	FILLTABL+1*, QUIT+1!
NURSDTSW	CHKCONT+2, QUIT+1!
NURSTABL	EDIT+7!
NURSTABL(	PRINT+3, CHKCONT+1, CHKCONT+3, FILLTABL+1*
NURSTABL(1	PRINT+2
NURSW1	PR+1, HEADER+1, HEADER+2, QUIT+1!
NURSWHO	QUIT+1!
NURSX	CHKCONT+3, QUIT+1!
NURSXX	HEADER+5*, QUIT+1!
NURSY	QUIT+1!
NURSZ	QUIT+1!
NWRDVAR	BGNVIEW+5, BGNVIEW+6, FILLTABL+1, QUIT+1!
OUTSW	EN1+2, EN1+3, EN2+2, EN2+3, EDIT+3, EDIT+6, QUIT+1!
PAGE	PRINT+1, HEADER+2, HEADER+3, QUIT+1!
>> POP	EN1+4
PRTSW	EN1+2, EN2+2, ENDIT+1, QUIT+1!
ROOMTABL	QUIT+1!
ROOMTABL(	CHKCONT+1, FILLTABL+1*
TCNT	EDIT+7, PRINT+3, CHKCONT+1, CHKCONT+2, CHKCONT+3, FILLTABL+1*, QUIT+1!
VA	QUIT+1!
>> VADM(1	FILLTABL+1
>> VAIN(5	BGNVIEW+3
VAROOT	QUIT+1!
WARDNAM	EDIT+4*, EDIT+6, HEADER+3, SORT+1, FILLTABL+1, QUIT+1!
>> X	EDIT+3, Q, HEADER+1
XRMBD	BGNVIEW+3*, FILLTABL+1, QUIT+1!
>> Y	EDIT+3, EDIT+4, CHKCONT+2*
>> ZTRTN	QUEUE+1*
ZTSK	EN1+4, QUIT+1!