ASURM18P ; IHS/ITSC/LMH - REPORT 18 IHS MONTHLY SUB-SUB-ACTIVITY ;
Source file <ASURM18P.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| QUIT | ;----- CLEAN UP VARIABLE, CLOSE DEVICE, QUIT | |
| SET | ;----- SETS DATA INTO ^XTMP("ASUR","R18") GLOBAL | |
| GET | ;----- GETS THE DATA TO BE PRINTED | |
| 1 | ;----- LOOP THROUGH SUB-SUB ACTIVITY SUBSCRIPT | |
| PRT | ;----- PRINT THE DATA | |
| EN | ;EP -- MAIN ENTRY POINT (USER INTERACTIVE) | |
| EN1(ASUDT,ASUTYP) | ||
| LOOPS | ;----- LOOPS THROUGH ^XTMP("ASUR","R18") GLOBAL AND PRINTS THE ; REPORT | |
| 2 | ;----- LOOP THROUGH GENERAL LEDGER ACCOUNT SUBSCRIPT | |
| DQ | ;EP -- QUEUED JOB STARTS HERE | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^ASUH - [#9002036] | GET+28 | 
| ^ASUH("AX" | GET+26, GET+27 | 
| ^XTMP("ASUR" | GET+18!, SET+20*, SET+21*, SET+22*, SET+23*, PRT+11, 1+3, 1+8, 1+11, 1+16 , 2+3, 2+5, QUIT+3! | 
| Name | Line Occurrences | 
|---|---|
| 2 | 1+5 | 
| GET | DQ+7 | 
| LOOPS | PRT+19 | 
| PRT | DQ+7 | 
| QUIT | EN+4, EN+8, DQ+7 | 
| SET | GET+34 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ASU | DQ+5~ | 
| ASU("DT" | GET+21*, GET+22*, GET+23*, GET+25, GET+26 | 
| ASU("TC" | GET+31, SET+17, SET+18 | 
| ASU0 | GET+17~, GET+28*, GET+29 | 
| ASU1 | GET+17~, GET+25*, GET+26*, GET+27, SET+18 | 
| ASU2 | GET+17~, GET+27*, GET+28, GET+30 | 
| ASUD | DQ+5~ | 
| ASUD("ACC" | SET+20, SET+23, 1+8*, 1+10, 1+11 | 
| ASUD("SSA" | SET+22, SET+23 | 
| ASUD("STATUS" | GET+32, GET+33 | 
| ASUD("TRANS" | GET+28*, GET+31, SET+17, SET+18 | 
| ASUD("VAL" | SET+20, SET+21, SET+22, SET+23 | 
| ASUDATA | 1+2~, 1+11*, 1+12, 1+16*, 1+17, 2+2~, 2+5*, 2+8 | 
| ASUDT | EN+2~, EN+4, EN1~, GET+19, PRT+17, 1+7, 1+9, 1+14, 2+6 | 
| ASUDT("DXTRACT" | GET+20, SET+18 | 
| ASUHDR | PRT+9~, PRT+17, 1+7, 1+9, 1+14, 2+6 | 
| ASUHDR(1 | PRT+13* | 
| ASUHDR(4 | PRT+14* | 
| ASUHDR(5 | PRT+15* | 
| ASUHDR(6 | PRT+16* | 
| >> ASUK("PTRSEL" | QUIT+4 | 
| ASUL | PRT+9~ | 
| ASUL(1 | 1+3*, 1+4, 2+3, 2+5, 2+7 | 
| ASUL(2 | 2+3*, 2+4, 2+5, 2+7 | 
| ASUOUT | PRT+9~, PRT+10*, PRT+17, 1+3, 1+5, 1+6, 1+7, 1+8, 1+9, 1+13 , 1+14, 2+3, 2+6 | 
| ASUPAGE | PRT+9~, PRT+17, 1+7, 1+9, 1+14, 2+6 | 
| ASUPC | SET+16~, SET+19*, SET+20, SET+21, SET+22, SET+23 | 
| ASUPCM | SET+16~, SET+18*, SET+19 | 
| ASUPCY | SET+16~, SET+17*, SET+19 | 
| ASUTYP | EN+2~, EN1~, GET+19, PRT+17, 1+7, 1+9, 1+14, 2+6 | 
| IOF | QUIT+4 | 
| IOSL | 1+9, 1+14, 2+6 | 
| U | GET+28, SET+20, SET+21, SET+22, SET+23 | 
| ZTSAVE | EN+7, QUIT+2! | 
| ZTSAVE("ASUDT" | EN+6* | 
| ZTSAVE("ASUTYP" | EN+6* |