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 |