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 |