Routine: NURSCPLU

Information

NURSCPLU ;HIRMFO/RM,FT-Create NURSING FILE AND XREFS ;8/14/96 10:22

Source file <NURSCPLU.m>

Package	Total	Call Graph
Nursing Service	3	EN6^NURSAUTL (,BADWARD)^NURSAWCK (EN1,EN2)^NURSCPL
VA Fileman	3	^DIC DT^DICRW ^DIE

Package	Total	Caller Graph
Nursing Service	3	NURSPT-WRDACT NURSPT-WRDINA NURXPST

Name	Comments	DBIA/ICR reference
F1	; ACTIVIATION PROCESS
F2	; ACTIVATE PATIENT
F3	; DEACTIVATION PROCESS
FIRSTIME	; IF NO DATA IN NURS PATIENT (214) FILE INITIALIZE IT
WARDCK	; THIS CHECKS THAT THE NURSE LOCATION WAS ONE SELECTED TO ACTIVATE
WARDSEL	; SELECT WARD TO BE ACTIVATED
DATACK	; CHECK TO SEE IF DATA IN THE 214 FILE
MASCK	; CHECKS TO SEE IF THE MAS WARD IS AN ACTIVATED NURSE LOCATION.
INIT214	; ENTERS PATIENTS INTO 214 FILE FROM 2 FILE
EN1	; ENTRY FROM OPTION NURSPT-WRDACT
EN2	; ENTRY FROM OPTION NURSPT-WRDINA
ACTWARD	; SET WARD STATUS TO ACTIVE
CKMAS	; CHECKS EVERY MAS WARD TO SEE IF CORR. NURSING LOCATION
F10	;
MAIN	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Checking to see if every MAS Ward has a corresponding NURSING unit" Line Location: CKMAS+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: CKMAS+4
Function Call: WRITE	Prompt: !!!,$C(7),"Press return to continue: " Line Location: CKMAS+4
Function Call: WRITE	Prompt: !!,"Done ... " Line Location: INIT214+4
Function Call: WRITE	Prompt: !!,7,7,"PATIENT WITH IEN#",DFN," DOES NOT HAVE A RECORD",!,"IN THE PATIENT FILE." Line Location: F2+1
Function Call: WRITE	Prompt: !!,7,7,$P(^DPT(DFN,0),"^",1)," CANNOT BE ADMITTED INTO",!,"THE NURSING SERVICE BECAUSE OF A PROBLEM WITH THE MAS PATIENT FILE -- NOTIFY MAS" Line Location: F2+2
Routine Call	DIE Line Location: ACTWARD+1
Routine Call	DIC Line Location: WARDSEL+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	MAIN+1
^DIC(42 - [#42]	CKMAS+3, F10+1, MASCK+1
^DPT - [#2]	F2+1, F2+2, F2+4, MASCK+1
^DPT("CN"	F10+2
^NURSF(211.4 - [#211.4]	F1+1, F10+1, MASCK+4
^NURSF(214 - [#214]	DATACK+1, F3+1

Name	Field # of Occurrence
>> DA	ACTWARD+1, F2+5, F3+1*
>> DFN	F10+2*, F2+1, F2+2, F2+4, F2+5, MASCK+1
DIC	WARDSEL+2!, F2+5
DIC("A"	WARDSEL+2*
DIC("S"	WARDSEL+2*
DIC(0	WARDSEL+2*
>> DIE	ACTWARD+1*
>> DR	ACTWARD+1*
DTIME	CKMAS+4
>> NPWARD	F1+1, F3+1
>> NURSBAD	MAIN+3, FIRSTIME+2, CKMAS+3*, CKMAS+4
>> NURSCK	DATACK+1*, DATACK+2
>> NURSDATA	MAIN+6, FIRSTIME+4, DATACK+1, DATACK+2*, INIT214+1, INIT214+2, F2+3
NURSEND	MAIN+4, MAIN+6!, MAIN+7!, MAIN+8!, FIRSTIME+2, WARDSEL+1, WARDSEL+2, WARDSEL+5, WARDSEL+6
>> NURSERR	CKMAS+2, CKMAS+3
>> NURSI	WARDSEL+2, WARDSEL+3, ACTWARD+1, WARDCK+1*
>> NURSNOTV	F2+3, MASCK+2, MASCK+4, WARDCK+1
>> NURSTUS	MAIN+2*, INIT214+2, INIT214+3
>> NURSWARD	MASCK+1*, MASCK+3, MASCK+4
>> NURSWCK	MASCK+4*, WARDCK+1
NURSWRD	FIRSTIME+3!, WARDSEL+2, F10+1, F10+2, F3+1
NURSWRD(	WARDSEL+3*, ACTWARD+1, F1+1, F10+1, F3+1, WARDCK+1
>> NURSY	CKMAS+3, F1+1, F10+1, F3+1*
>> NURSZ	F1+1*, F10+1
>> OUTSW	WARDSEL+1, WARDSEL+2
U	INIT214+3*
>> X	EN1+1, EN2+1, MAIN+2, WARDSEL+2, CKMAS+3, CKMAS+4, F2+4, F3+1
>> Y	WARDSEL+2, WARDSEL+3