ANSQSS ;IHS/OIRM/DSD/CSC - CALCULATE NURSE STAFFING STATS; [ 02/25/98 10:32 AM ]
Source file <ANSQSS.m>
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 | Line Occurrences |
---|---|
ADM | EN1+10 |
B1 | EN+6 |
B3 | B1+2 |
DC | EN1+10 |
EN1 | EN+5 |
FACTORS | EN+3 |
LEVELS | EN+2 |
SBADD | EN1+12, ADM+7, DC+2, B3+6, B3+9 |
SBCL | EN1+11, ADM+4 |
Name | Field # of Occurrence |
---|---|
^( | B3+8, FACTORS+4 |
^(0 | ADM+3, B3+5, B3+8, SBCL+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |