Routine: ANSQSS

Information

ANSQSS ;IHS/OIRM/DSD/CSC - CALCULATE NURSE STAFFING STATS; [ 02/25/98 10:32 AM ]

Source file <ANSQSS.m>

Package	Total	Call Graph
Nursing Acuity	1	^ANSQSS1

Name	Comments	DBIA/ICR reference
EN	;CHECK THROUGH ALL NUSRING RECORDS BY DATE OF RECORD
FACTORS	;SETS ARRAY OF ADJUSTMENT FACTORS
DC	;SET INFO FOR EACH DISCHARGE
EN1	;CHECK THROUGH EACH RECORD FOR SPECIFIED DATE
LEVELS	;SET ARRAYS OF CARE LEVEL INFORMATION
B1	;CALCULATE THE TOTAL NURSING HOURS AVAILABLE AND TOTALS FOR EACH DAY
B3	;CALCULATE NURSING HOURS AVAILABLE
ADM	;SET INFO FOR EACH ADMISSION
SBADD	;SET TEMP GLOBAL WITH INFO FOR REPORT
SBCL	;CALCULATE THE LEVEL OF CARE FOR THE NURSING RECORD

Name	Field # of Occurrence
^ANSQSS1	B1+3

Name	Line Occurrences (* Changed, ! Killed)
^ANS - [#9009053]	B3+5, B3+8
^ANS("AU"	B1+2, B3+2, B3+4
^ANSD(51.1 - [#9009051.1]	LEVELS+6, LEVELS+7
^ANSD(59 - [#9009059]	SBCL+6
^ANSD(59.3 - [#9009059.3]	FACTORS+4
^ANSR - [#9009052]	EN1+8, EN1+9, ADM+1, ADM+2, ADM+3, SBCL+5, SBCL+10
^ANSR("B"	EN+5, EN1+7
^TMP("ANS"	EN+1!, SBADD+4*

Name	Field # of Occurrence
^(	B3+8, FACTORS+4
^(0	ADM+3, B3+5, B3+8, SBCL+5

Name	Field # of Occurrence
>> A	EN1+12, ADM+5, DC+1, B3+5, B3+9*, SBADD+4
>> ANSA(	LEVELS+8*
>> ANSBDT	EN+4, B1+1
>> ANSCL	EN1+12, ADM+1, ADM+5, SBCL+4, SBCL+12*
>> ANSD	EN+4, EN+5, EN1+7, B1+1, B1+2, B3+2, B3+4, SBADD+4
>> ANSEDT	EN+5, B1+2
>> ANSF(	SBCL+10, FACTORS+4*
>> ANSH(	LEVELS+8*
>> ANSL(	SBCL+11, SBCL+12, LEVELS+8*
>> ANSN	EN1+6, EN1+7, EN1+8, EN1+9, ADM+1, ADM+2, ADM+4, B3+3, B3+4*, B3+5 , B3+8, SBCL+5, SBCL+10
>> ANSSH	EN1+9, B3+1, B3+2*, B3+4, SBADD+4
>> ANSTY	EN1+9*, EN1+10
>> ANSUNIT	EN1+8, B3+2, B3+4
>> ANSX	ADM+4*
>> D	ADM+1*, ADM+2
>> F	SBCL+10*
>> I	B3+8, SBCL+5
>> L	ADM+1, ADM+3, ADM+4, B3+7, B3+8, B3+9, SBCL+4, SBCL+8, SBCL+10, SBCL+11 , SBCL+12, LEVELS+8*
>> M	ADM+1, ADM+3
>> N	ADM+2, ADM+3, B3+7, B3+8, SBCL+5, SBCL+6, SBCL+7, SBCL+8, SBCL+9, SBCL+10* , LEVELS+5, LEVELS+6, LEVELS+7, LEVELS+8, FACTORS+3, FACTORS+4
>> P	EN1+12, ADM+5, ADM+6, DC+1, B3+5, B3+9, SBADD+4
>> S	EN1+12, ADM+3, ADM+5, DC+1, B3+5, B3+9, SBADD+4, FACTORS+4*
U	EN1+8, EN1+9, ADM+3, B3+5, B3+8, SBADD+4, SBCL+5, SBCL+7, LEVELS+8, FACTORS+4
>> X	EN1+9, SBCL+6, SBCL+7, LEVELS+7*, LEVELS+8