DGAINP3 ;ALB/RMO - Set-up Utility and Print Inpatient AMIS's 334-341 ; 27 DEC 89 1:37 pm
Source file <DGAINP3.m>
| Package | Total | Call Graph | 
|---|---|---|
| Registration | 2 | ^DGAINP4 (CLOSE,ZIS)^DGUTQ | 
| VA Fileman | 1 | ^DIC | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| Q | ||
| START | ||
| DIV | ;Loop through AMIS Segments by Division to set the Utility Global | |
| EN | ;Entry point for IMS and MAS Inpatient AMIS 334-341 Print | 
 
 | 
| SET | ;Set Utility Global by Month/Year, Segment and Division | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^DGAM(334 - [#42.6] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DGAM(334 - [#42.6] | START, DIV+2 | 
| ^UTILITY($J | START!, Q!, SET+4* | 
| Name | Line Occurrences | 
|---|---|
| DIV | START | 
| Q | EN+1, EN+2 | 
| SET | DIV+2 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | DIV+2 | 
| ^(0 | DIV+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | Q! | 
| DGAM | Q!, SET+1*, SET+2*, SET+3*, SET+4 | 
| DGAM0 | Q!, DIV+2*, SET+2, SET+3 | 
| DGDIV | Q!, DIV+2*, SET+4 | 
| DGEND | Q!, DIV+1*, SET+1, SET+2, SET+3 | 
| DGMYR | EN+1*, START, Q!, DIV+2, SET+4 | 
| DGPGM | EN+2*, Q! | 
| DGSEG | START*, Q!, DIV+1, DIV+2, SET+2, SET+3, SET+4 | 
| DGVAR | EN+2*, Q! | 
| DIC | EN+1*! | 
| DIC("A" | EN+1* | 
| DIC(0 | EN+1* | 
| I | Q!, SET+1*, SET+2*, SET+3* | 
| IO | START | 
| POP | EN+2, Q! | 
| >> Y | EN+1 |