Routine: NURSCUTL

Package	Total	Caller Graph
Nursing Service	20	NURAAU1 NURACE0 NURACE7 NURACEW0 NURACHDC NURAMB1 NURARCR0 NURARCRW NURARNCT NURARWL2 NURCAS0 NURCES01 NURCPP0 NURCUT0 NURCVED0 NURCVUT0 NURSCPLC NURSCPLD NURSCPLE NURSCUTL

Entry Points

Name	Comments	DBIA/ICR reference
SETXREF	; SET UP ADT INTERFACE IN PATIENT FILE
Q2
DUPCLAS(DATEX,DFN)	; CHECK FOR DUPLICATE ENTRY IN NURS CLASSIFICATION (#214.6) ; FILE. IF A DUPLICATE EXISTS A ONE IS RETURNED OTHERWISE ; A ZERO IS RETURNED
EN2	; LOOKUP OF THE LATEST PATIENT CLASSIFICATION FROM 214.6 FILE ; FLAG NURSCLAS("CL") = $S(1:CHECK CURR. LOC. = CLAS. LOC.,0:ELSE, ; 2:GET FIRST CLASS WHERE CURR.LOC=CLASS.LOC NURSCLASS("WARD")=CURR.LOC)
EN3	; MUMPS "AA" XREF FOR FILE 214.7 ; THE NURSDFN, NURSA, AND NURSR VARIABLES ARE KILLED IN THE XREF
EN4	; SCREEN FOR CLASSIFICATION DATE FIELDS
EN5	; LOOKUP ON THE PATIENT FILE FOR PATIENT NAME
EN6	; FIND THE CURRENT ADMISSION FOR THE PATIENT (DFN IS PATIENT IEN)
EN7	; POC ENTRY POINT FOR PATIENT LOOK-UP
GC
A5
KILLXREF	; DELETE ADT INTERFACE IN PATIENT FILE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select PATIENT NAME: " Line Location: EN5+1
Function Call: WRITE	Prompt: ! Line Location: A5+2
Function Call: WRITE	Prompt: !!,"Set up 'trigger' in Patient File to create Nursing Patient entries" Line Location: SETXREF+1
Function Call: WRITE	Prompt: !!,"Kill 'triggers' in Patient File that creates Nursing entries." Line Location: KILLXREF+1
Routine Call	DIC Line Location: A5

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	SETXREF+2, SETXREF+3, SETXREF+4, SETXREF+5, KILLXREF+2!, KILLXREF+3!
^DIC(214.8	EN7+1
^NURSA(214.6 - [#214.6]	GC, GC+1, GC+3, GC+5, GC+6, EN4+1, DUPCLAS+3
^NURSA(214.7 - [#214.7]	EN3+3, EN4+1
^NURSF(214 - [#214]	EN2+4, GC+4, A5+1

Name	Field # of Occurrence
^(0	GC+3, GC+4, GC+5, EN3+3, EN4+1, SETXREF+2, KILLXREF+2
^(1	SETXREF+4*
^(2	SETXREF+4*

Name	Field # of Occurrence
CHKVAR	GC+1, GC+3, Q2*!
>> DA	EN3+3, EN4+1, SETXREF+2, SETXREF+3, SETXREF+4
DATEX	DUPCLAS~, DUPCLAS+3
DFN	EN2+4, GC, GC+1, GC+4, EN5+2, A5+2, EN7+1, EN7+2, EN7+3*, DUPCLAS~ , DUPCLAS+3
DIC	EN5+2!, A5*, A5+2!
DTIME	EN5+1
>> DUPCLAS	DUPCLAS+3*, DUPCLAS+4
>> NACT	A5+1, A5+3, EN7+1
>> NASK	EN5+1, A5+2, EN7+1
NURBEDSW	EN7+1*, EN7+2, EN7+3!
>> NURQUIT	EN7+1, EN7+3
>> NURSA	EN3+2*
>> NURSADM	GC+4, EN6+4, EN6+5
NURSCLAS	EN2+3, GC+2, GC+3, GC+4, GC+5, GC+6, GC+7, Q2!*
NURSCLAS("CL"	EN2+4, GC, GC+3, GC+5, GC+6
NURSCLAS("D"	GC+1!*, GC+3
NURSCLAS("DATE"	EN2+3*, GC
NURSCLAS("WARD"	EN2+4*, GC+3, GC+6
NURSCLAS(0	EN2+3, GC, GC+1
NURSCOMP	GC+4*, GC+5, GC+6, Q2!
>> NURSDFN	EN3+2, EN3+3
>> NURSI	SETXREF+2, KILLXREF+2
NURSMAS	EN6+3*, EN6+4!, EN6+5!
>> NURSR	EN3+2, EN3+3
>> NWARD	GC+5
>> RPTDATE	GC+5
U	EN2+4, GC+3, GC+5, EN3+3, EN4+1
>> VAIN(1	EN6+5
>> VAIN(4	EN6+3
>> VAIN(7	GC+4
>> X	EN5+1, EN5+2, A5, A5+3
>> Y	EN4+1, A5, A5+1, A5+2, A5+3, EN7+1, EN7+2*, EN7+3