Routine: ANSUD

Information

ANSUD ;IHS/OIRM/DSD/CSC - SELECT DATE/SHIFT/UNIT; [ 02/25/98 10:32 AM ]

Source file <ANSUD.m>

Package	Total	Call Graph
Nursing Acuity	1	(DIC,DIR)^ANSDIC
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Nursing Acuity	5	ANSEA ANSEAD1 ANSEAV ANSES ANSUWR

Name	Comments	DBIA/ICR reference
EN	;EP;TO SELECT DATE, SHIFT AND NURSING UNIT
SHIFT	;EP;TO SELECT SHIFT
NEWUNIT	;EP;TO ADD NEW NURSING UNITS
3	;;1:DAY;2:EVENING;3:NIGHT
2	;;1:DAY;2:NIGHT
DATE	;EP;TO SELECT DATE
UNIT	;EP;TO SELECT NURSING UNIT

Name	Line Occurrences
Function Call: WRITE	Prompt: " "_ANSDT Line Location: DATE+7
Function Call: WRITE	Prompt: ! Line Location: SHIFT+7
Function Call: WRITE	Prompt: ! Line Location: UNIT+6

Name	Line Occurrences (* Changed, ! Killed)
^ANSD(51 - [#9009051]	DATE+1
^ANSD(59.1 - [#9009059.1]	UNIT+4
^DD("DD"	DATE+2

Name	Field # of Occurrence
>> ANSDT	DATE+2, DATE+7, DATE+9
>> ANSPAR	DATE+1*, SHIFT+1, SHIFT+3, UNIT+1, UNIT+3
ANSRB	EN+1!
>> ANSS	SHIFT+3*
ANSSH	EN+1!, SHIFT+2!, SHIFT+10, SHIFT+11
ANSUN	EN+1!, UNIT+2!, UNIT+10*
>> ANSUNIT	UNIT+10*
DIC	NEWUNIT+1!, UNIT+5*
DIC("A"	UNIT+5*
DIC("B"	UNIT+4*
DIC(0	NEWUNIT+2, UNIT+5
>> DIR("?"	SHIFT+6*
>> DIR("A"	DATE+4, SHIFT+5
>> DIR("B"	DATE+2*
>> DIR(0	DATE+4, SHIFT+5
>> DTOUT	EN+3, EN+5, DATE+6, SHIFT+9, UNIT+8
>> DUOUT	EN+3, EN+5, DATE+6, DATE+8, SHIFT+9, SHIFT+10, UNIT+8, UNIT+9*
U	SHIFT+3, UNIT+3, UNIT+4
>> X	DATE+4, SHIFT+4, SHIFT+5, SHIFT+6, UNIT+3*, UNIT+4
>> Y	DATE+2*, DATE+8, DATE+9, SHIFT+10, SHIFT+11, UNIT+9, UNIT+10
>> Y(0	DATE+7, UNIT+10