DGPTRI2 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,ISF/GJW,HIOFO/FT/BA,CMC - PTF TRANSMISSION ;5/14/24 10:04am
Source file <DGPTRI2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 501 | ; -- setup 501 transactions
; DG*636 |
|
| MOV | ; build movement record
|
|
| 535 | ; -- do 535's
|
|
| PROC | ; -- setup 601 transactions
|
|
| 601 | ||
| 701 | ; -- setup 701 transaction
|
|
| ENTER | ||
| ENTER0 | ||
| SAVE | ;save segment to MailMan message and ^TMP("AEDIT",$J), if data is valid
|
|
| Q | ||
| FILL | ;fill out segment with spaces
|
|
| CDR |
| Name | Field # of Occurrence |
|---|---|
| $$TSDATA^DGACT | MOV+9, MOV+44, 601+6 |
| PTFICD^DGPTFUT | MOV+23, 601+17 |
| EFFDATE^DGPTIC10 | MOV+21, 601+14 |
| START^DGPTRI1 | SAVE+3 |
| 535^DGPTRI3 | 535+1 |
| 701^DGPTRI4 | 701+1 |
| $$FMTICD^DGPTRNU | MOV+29 |
| $$GET1^DIQ | MOV+36, MOV+52 |
| $$ICDDATA^ICDXCODE | MOV+26, 601+21 |
| $$LJ^XLFSTR | MOV+30 |
| $$REPEAT^XLFSTR | MOV+34, 601+24 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | GET1^DIQ |
| 45.02 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | 501+3, 501+11, MOV+38, MOV+39, 601, 601+1 |
| ^TMP("AEDIT" | SAVE+4* |
| ^UTILITY($J | PROC+1!, 601+1*, 601+2 |
| ^XMB(3.9 - [#3.9] | SAVE+17*, SAVE+18* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DG501CODES | MOV+22~, MOV+23 |
| DG501CODES( | MOV+25, MOV+26, MOV+28, MOV+31 |
| DG501DX | MOV+22~, MOV+28*, MOV+29*, MOV+30*, MOV+33 |
| DG501POA | MOV+22~, MOV+31*, MOV+32*, MOV+33 |
| >> DG502 | MOV+18* |
| >> DG57 | MOV+18 |
| DG601CODES | 601+16~, 601+17 |
| DG601CODES( | 601+19, 601+20, 601+21 |
| >> DG70 | MOV+49, MOV+50 |
| >> DGACNT | SAVE+4* |
| >> DGAO | 501+12* |
| DGARRX | MOV+8~, MOV+9*, MOV+43~, MOV+44*, 601+5~, 601+6* |
| DGARRY | MOV+8~, MOV+9, MOV+43~, MOV+44, 601+5~, 601+6 |
| DGARRY(7 | MOV+10, MOV+45, 601+7 |
| >> DGCDR | MOV+1*, MOV+6 |
| DGCMVT | 501+3!*, 501+14 |
| >> DGCNT | SAVE+17*, SAVE+18* |
| DGEC | 501+2~, 501+13* |
| >> DGERR | 601+2*, SAVE+4, SAVE+7 |
| >> DGHEAD | MOV+4, 601+3 |
| DGHNC | 501+2~, 501+13* |
| DGIR | 501+2~, 501+12* |
| DGLOOP | MOV+22~, MOV+24*, MOV+25*, MOV+26, MOV+28, MOV+31, 601+16~, 601+18*, 601+19*, 601+20 , 601+21 |
| >> DGM | 501+11*, 501+12, 501+13, 501+15, MOV+1, MOV+2*, MOV+9, MOV+10*, MOV+12 |
| DGM2 | 501+2~, 501+11* |
| DGMPOA | 501+2~, 501+11* |
| DGMST | 501+2~, 501+13* |
| DGPCODE | 601+16~, 601+20*, 601+23 |
| >> DGPROC | 601*, 601+1 |
| >> DGPROCD | 601+1*, 601+2, 601+3 |
| DGPROCNODE | 601+16~ |
| DGPTDAT | 601+14~ |
| DGPTMCNT | 501+2~, 501+12* |
| DGPTMVDT | 501+2~, 501+13* |
| DGPTTMP | MOV+22~, MOV+26*, MOV+27, 601+16~, 601+21*, 601+22 |
| DGSC | 501+2~, 501+12* |
| DGSTRING | MOV+22~, MOV+24*, MOV+33*, MOV+34, 601+16~, 601+18*, 601+23*, 601+24 |
| >> DGTD | 501+13*, 501+14*, 501+15, MOV+4, MOV+38, MOV+39, MOV+49 |
| >> DGXMZ | SAVE+17, SAVE+18 |
| DGY1 | SAVE+1~, SAVE+2*, SAVE+9*, SAVE+10*, SAVE+11*, SAVE+12*, SAVE+13*, SAVE+14*, SAVE+15*, SAVE+16 , SAVE+17 |
| DGY2 | SAVE+1~, SAVE+2*, SAVE+9*, SAVE+10*, SAVE+11*, SAVE+12*, SAVE+13*, SAVE+14*, SAVE+15*, SAVE+16 , SAVE+18 |
| EFFDATE | MOV+20~, MOV+26, 601+14~, 601+21 |
| >> I | 501+11*, 501+14, MOV+18, MOV+23, MOV+38, MOV+49, MOV+50, MOV+52, PROC+1*, 601* , 601+1, 601+17 |
| IMPDATE | MOV+20~, 601+14~ |
| >> J | 501+3, 501+11, MOV+21, MOV+23, MOV+36, MOV+38, MOV+39, MOV+52, 601, 601+1 , 601+14, 601+17 |
| >> K | FILL+1* |
| >> L | MOV+2*, MOV+12*, MOV+16*, MOV+18*, MOV+47*, 601+9*, 601+11*, 601+13*, ENTER, ENTER0 |
| >> T1 | 501+15, MOV+4, MOV+38, MOV+39, MOV+49, MOV+50, 601+1, 601+3 |
| >> T2 | 501+3, 501+14, 501+15, MOV+49, 601+1 |
| U | 501+12, 501+13, 501+15, MOV+1, MOV+2, MOV+9, MOV+10, MOV+16, MOV+26, MOV+27 , MOV+28, MOV+31, MOV+41, MOV+44, MOV+45, MOV+49, MOV+50, 601+6, 601+7, 601+11 , 601+20, 601+21, ENTER, ENTER0 |
| >> X | MOV+4*, MOV+12*, MOV+16*, MOV+18*, MOV+36*, MOV+37*, MOV+38*, MOV+39*, MOV+41, MOV+44 , MOV+45*, MOV+52*, 601*, 601+3, 601+6, 601+7*, 601+11*, ENTER, ENTER0 |
| >> Y | MOV+4*, MOV+18, MOV+34*, MOV+36*, MOV+49*, MOV+50*, MOV+52*, 601+3*, 601+24*, ENTER* , ENTER0*, SAVE+4, SAVE+9, SAVE+10, SAVE+11, SAVE+12, SAVE+13, SAVE+14, SAVE+15, FILL+1* , FILL+2*, CDR* |
| >> Z | MOV+6*, MOV+12*, MOV+16*, MOV+18*, MOV+38*, MOV+39*, MOV+41*, MOV+47*, 601+9*, 601+11* , 601+13*, ENTER, ENTER0, CDR |