DGAINP2 ;ALB/RMO - Balance and Save Inpatient AMIS's 334-341 ; 08 MAY 90 2:20 pm
Source file <DGAINP2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SET | ;Add up Prior and Current Month AMIS(s) for All Divisions | |
| Q | ||
| FILE | ;Save AMIS Segment Statistics in File | |
| BAL | ;Balance AMIS Segment and Set Balance Flag to 1 | |
| SAVE | ;Loop through Segments by Division to Save | |
| GEN | ;Generate AMIS Code Sheets | 
| Name | Field # of Occurrence | 
|---|---|
| QUE^DGGECSA | GEN+1 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DG(40.8 - [#40.8] | GEN+1 | 
| ^DGAM(334 - [#42.6] | DGAINP2+13, SET+2, SET+3, FILE+1, FILE+2, FILE+3, FILE+5* | 
| ^UTILITY($J | DGAINP2+12, SET+4, SAVE+1 | 
| Name | Line Occurrences | 
|---|---|
| BAL | DGAINP2+12 | 
| FILE | SAVE+1, FILE+1 | 
| GEN | DGAINP2+13 | 
| SAVE | DGAINP2+12 | 
| SET | DGAINP2+12 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | SET+2, SET+3, SET+4, SAVE+1 | 
| ^(0 | SET+2, SET+3, FILE+1*, FILE+2*, FILE+3*, FILE+5* | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DGAM | Q!, SET+1*, SET+4*, BAL+1, SAVE+1*, FILE+4 | 
| DGAM0 | Q!, FILE+4*, FILE+5 | 
| DGBALFLG | Q!, BAL+1*, BAL+2, FILE+2 | 
| >> DGCODFLG | DGAINP2+13 | 
| DGDIV | Q!, SAVE+1*, FILE+4, FILE+5, GEN+1* | 
| DGEND | Q!, SET+1*, SET+2, SET+3, SET+4 | 
| >> DGMYR | DGAINP2+12, DGAINP2+13, SET+4, SAVE+1, FILE+1, FILE+2, FILE+3, FILE+5 | 
| DGNOB | DGAINP2+12!, DGAINP2+13, Q! | 
| DGNOB( | BAL+2* | 
| DGPAM | Q!, SET+1*, SET+2*, SET+3*, BAL+1 | 
| >> DGPMYR | SET+2, SET+3 | 
| >> DGSEG | DGAINP2+12*, DGAINP2+13*, SET+1, SET+2, SET+3, SET+4, BAL+2, SAVE+1, FILE+2, FILE+3 , FILE+4, FILE+5 | 
| DT | FILE+4 | 
| DUZ | FILE+4 | 
| I | Q!, SET+1*, SET+2*, SET+3*, SET+4* | 
| J | Q!, SET+2*, SET+3*, SET+4* | 
| X | Q!, SET+2*, SET+3*, SET+4* |