Routine: NURSUT1

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

NURSUT1 ;HIRMFO/RM,MD-NURS POSITION CONTROL FILE EDIT UTILITY (CONT) ; 5/16/03 5:10pm

Source file <NURSUT1.m>

Name	Comments	DBIA/ICR reference
EN1	; ENTRY FROM ASD1 FROM 211.82,.01, ASD2 FROM 211.82,3 AND ASD3 FROM ; 211.82,5 CROSSREFERENCES. THE VARIABLE NUR WILL BE SET TO THE ; FOLLOWING: FIELD NUMBER CALLING XREF^$S(0:KILL LOGIC,1:SET LOGIC)
EN1B	; ENTRY POINT TO KILL "ASD" X-REF AFTER ADDED TO 213.5 DURING ACT/SEP BATCH JOB
EMP
STTUPD	; CHECK IF UPDATE OF STATUS FIELD IN FILE 210 IS NECESSARY
QSU
SETST	; CHANGE STATUS FIELD OF FILE 210
EN4(NACT,NASK)	; ENTRY POINT FOR BEDSIDE TERMINAL PATIENT LOOK-UP
QUIT
DBL	;CHECK FOR ROOM-BED DUPLICATE ENTRIES
CLOSE	; CLOSE DEVICE
ENDPG	; HANDLE EOP
LOCSTAT(NURLOC)	; CHECK FOR ACTIVE EMPLOYEES ON NURS LOCATION
CHKSTAT	; INPUT TRANSFORM FOR STATUS FIELD OF NURS LOCATION FILE
BUDCAT(D0)	; COMPUTE BUDGET CATEGORY FTEE FOR A LOCATION
NODATA	; NO DATA ROUTINE FOR LOCATION REPORTS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"Room-Bed: ",ROOMBED,!,?6,"Patient: ",PATIENT Line Location: EN4+3
Function Call: WRITE	Prompt: ! Line Location: EN4+6
Function Call: WRITE	Prompt: ! Line Location: EN4+8
Function Call: WRITE	Prompt: *7,!!,?5,"That ROOM-BED is already associated with ION VALUE "_$P(^NURSC(214.8,IEN,0),U,1)_" " Line Location: DBL+3
Function Call: WRITE	Prompt: ! Line Location: CLOSE+1
Function Call: WRITE	Prompt: $C(7),!!,NURLOC(1)," HAS ACTIVE STAFF ASSIGNED AND CANNOT BE DEACTIVATED: ",!!,"Generate an FTEE report for this location to identify active staff members",!,"who should be transferred prior to deactivation!" Line Location: CHKSTAT+3
Function Call: WRITE	Prompt: !!,"THERE IS NO DATA FOR ",NL1 Line Location: NODATA+1

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