AFSLTF1 ;IHS/OIRM/DSD/JDM,HJT - EXPORT PAYMENT RCDS TO FILE(ECS)-MODULE #2; [ 10/27/2004 4:21 PM ]
Source file <AFSLTF1.m>
| Package | Total | Call Graph |
|---|---|---|
| NCR Financial System | 3 | (HDR,TRL)^AFSLTF2 ^AFSLTPAC (,WRLS)^AFSLTPRC |
| VA Fileman | 3 | ^DIE EN^DIK ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TNUM | ;
|
|
| XTRL | ;CREATE TRAILER RCDS
|
|
| XREF | ;SET ^AFSLPTMP( NODES
|
|
| LOOPO | ;
|
|
| SKPNDS | ;
|
|
| PRC | ;
; Var AFSLFY should be a 4-digit year here. IHS/DSD/HJT 1/23/1999 |
|
| RNDXP | ;REINDEX XREF 'P' FOR THE BATCH
|
|
| STEXDT | ||
| ASKYR | ;
|
|
| LOOPME | ;Loop thru 'ME' Xref using all payments in all export batches
|
|
| CHK | ;checks for certification date,open/close,export date
|
|
| LOOPP | ;
; This subroutine sets up temporary globals inorder to write the ; payment details to a Unix file (DE - call #58). |
|
| PDT | ;
|
|
| TREAS | ;GET & CHECK SCHED#
|
|
| PRCX | ;SET TEMP EXPORT GBL ^AFSLPTMP(
|
|
| EXDAT | ;set export date for schedule
|
|
| XDTL | ;LOOP THRU 'ME' XREF & CREATE DETAIL RCDS
|
|
| XHDR | ;CREATE '&' AND 'A' CARDS
|
|
| TREASX | ;
|
|
| GROUPX | ;
|
|
| GROUPING | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AFSLAFP - [#9002325] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AFSLAFP - [#9002325] | STEXDT+5, TREAS+3, PRCX+2, PRCX+5, RNDXP+2, LOOPP+6, LOOPP+7, LOOPP+8, LOOPP+9, LOOPP+10 , LOOPP+11, CHK+1, CHK+3, CHK+5, PDT+4, PDT+6, PDT+7 |
| ^AFSLAFP("B" | PRC+2, PRC+3 |
| ^AFSLAFP("L" | PRCX+4 |
| ^AFSLAFP("ME" | LOOPME+2, CHK+5 |
| ^AFSLAFP("P" | LOOPO+1, LOOPO+2, LOOPP+4, LOOPP+5 |
| ^AFSLPTMP | XDTL+3!, SKPNDS+5*, SKPNDS+6*, SKPNDS+7* |
| ^AFSLXTMP | XDTL+3! |
| Name | Line Occurrences |
|---|---|
| ASKYR | PRC+2, ASKYR+8 |
| CHK | RNDXP+7 |
| EXDAT | XTRL+1 |
| GROUPING | GROUPING+7 |
| GROUPX | GROUPING+1, GROUPING+2 |
| LOOPME | LOOPME+9 |
| LOOPO | LOOPO+4 |
| LOOPP | LOOPO+3, SKPNDS+8 |
| PRC | TREAS+1 |
| PRCX | LOOPME+6 |
| RNDXP | PRCX+3 |
| SKPNDS | LOOPP+6, LOOPP+7, LOOPP+8 |
| STEXDT | STEXDT+6 |
| TREASX | TREAS+2 |
| XREF | XDTL+6 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CHK+1 |
| ^(2 | CHK+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AFSL1 | AFSLTF1+6* |
| >> AFSL1A | AFSLTF1+6* |
| >> AFSL2 | AFSLTF1+6* |
| >> AFSL3 | AFSLTF1+6* |
| >> AFSL4 | AFSLTF1+6* |
| >> AFSL5 | AFSLTF1+6* |
| >> AFSLAMT | AFSLTF1+7* |
| >> AFSLBATC( | LOOPME+8*, STEXDT, STEXDT+1, STEXDT+2 |
| >> AFSLBATN | STEXDT+2*, STEXDT+4 |
| >> AFSLBCNT | LOOPME+7*, LOOPME+8* |
| >> AFSLBN | TREAS+2*, TREAS+3*, TREAS+5, TREAS+9*, TREASX+2, TREASX+3, TNUM+1 |
| >> AFSLBND | LOOPME+8, PRCX+2*, PRCX+4*, PRCX+5*, RNDXP+2, RNDXP+3, RNDXP+4, RNDXP+7, LOOPP+4, LOOPP+5 , LOOPP+6, LOOPP+7, LOOPP+8, LOOPP+9, LOOPP+10, LOOPP+11 |
| >> AFSLBTCX | PRCX+2* |
| >> AFSLBTN | EXDAT+1*, STEXDT, STEXDT+1*, STEXDT+2, STEXDT+8* |
| >> AFSLBYND | LOOPME+6*, PRCX+2, PRCX+4, PRCX+5, RNDXP+2, RNDXP+3, RNDXP+4, RNDXP+7, LOOPP+4, LOOPP+5 , LOOPP+6, LOOPP+7, LOOPP+8, LOOPP+9, LOOPP+10, LOOPP+11 |
| >> AFSLCBA | PRC+5* |
| >> AFSLCBC | PRC+5* |
| >> AFSLCKNX | XDTL+10*, XDTL+15* |
| >> AFSLCNT | AFSLTF1+7*, PRC+5* |
| >> AFSLCNT1 | PRC+5* |
| >> AFSLCNTX | XDTL+10*, XDTL+15* |
| >> AFSLDFYN | PDT+6*, PDT+8, PDT+9 |
| >> AFSLDNUM | PDT+4*, PDT+8, PDT+10 |
| >> AFSLECSP | XTRL+3* |
| >> AFSLEFLG | XTRL+4* |
| >> AFSLEIN | PRC+4* |
| >> AFSLEIN1 | PRC+4*, PDT+2, PDT+4, PDT+6, PDT+7 |
| >> AFSLEMSG | AFSLTF1+6*, XTRL+3 |
| >> AFSLEXTP | GROUPX+1*, GROUPX+2*, GROUPX+3*, XDTL+8, XDTL+13 |
| >> AFSLFLG | PRC+5*, XTRL+2*, XTRL+3, CHK+6* |
| >> AFSLFLG1 | AFSLTF1+6*, CHK+6* |
| >> AFSLFY | AFSLTF1+9*, PRC+2, PRC+3, ASKYR+10* |
| >> AFSLFYN | AFSLTF1+7*, PRC+2, PRC+3*, TREAS+1, TREAS+3, TREASX+2, LOOPME+2, LOOPME+6, RNDXP+7*, CHK+1 , CHK+3, CHK+5, TNUM+2, TNUM+3, PDT+1, PDT+4, PDT+6, PDT+7, STEXDT+3 |
| >> AFSLIN | AFSLTF1+7* |
| >> AFSLMNX | XREF+1*, LOOPME+2*, LOOPME+3, PRCX+1, PRCX+2, PRCX+4, PRCX+5 |
| >> AFSLNXPN | AFSLTF1+9*, SKPNDS+4*, SKPNDS+5, SKPNDS+6, SKPNDS+7 |
| >> AFSLONX | RNDXP+6*, LOOPO+1, LOOPO+2*, LOOPP+4, LOOPP+5 |
| >> AFSLOO | CHK+7* |
| >> AFSLPAX | XDTL+10*, XDTL+15* |
| >> AFSLPCX | XDTL+10*, XDTL+15* |
| >> AFSLPDNM | PDT+7*, PDT+11 |
| >> AFSLPDT | PDT+2, PDT+12 |
| >> AFSLPG | AFSLTF1+8* |
| >> AFSLPND | LOOPO+3*, LOOPP+4, LOOPP+5*, LOOPP+6, LOOPP+7, LOOPP+8, LOOPP+9, LOOPP+10, LOOPP+11 |
| >> AFSLPND0 | LOOPP+6*, LOOPP+9*, SKPNDS+1*, SKPNDS+5 |
| >> AFSLPND1 | LOOPP+6*, LOOPP+7*, LOOPP+10*, SKPNDS+2*, SKPNDS+6 |
| >> AFSLPND2 | LOOPP+6*, LOOPP+7*, LOOPP+8*, LOOPP+11*, SKPNDS+3*, SKPNDS+7 |
| >> AFSLPTX | XDTL+10*, XDTL+15* |
| >> AFSLSCDX | TREASX+1* |
| >> AFSLSCH | CHK+6* |
| >> AFSLSCH1 | AFSLTF1+7*, RNDXP+7*, CHK+1, CHK+3, CHK+5, CHK+6, TNUM+4, PDT+1, PDT+2, PDT+4 , PDT+6, PDT+7 |
| >> AFSLSCH1( | CHK+6* |
| >> AFSLSCH2 | CHK+3*, CHK+6 |
| >> AFSLSCH3 | CHK+1*, CHK+6 |
| >> AFSLSCHZ | CHK+6* |
| >> AFSLSEQ | AFSLTF1+7* |
| >> AFSLSEQ1 | AFSLTF1+7* |
| >> AFSLSH11 | TREASX+3*, TNUM+5 |
| >> AFSLTFY | AFSLTF1+9 |
| >> AFSLTNUM | TREAS+2 |
| >> AFSLTRSC | LOOPME+5 |
| >> AFSLXTYP | GROUPING+1, GROUPING+2 |
| >> DA | TREASX+2*, RNDXP+4*, TNUM+4*, PDT+2*, PDT+11*, STEXDT+4* |
| >> DA(1 | RNDXP+4*, TNUM+3*, PDT+2*, PDT+10*, STEXDT+3* |
| >> DA(2 | RNDXP+4*, PDT+1*, PDT+9* |
| >> DIE | TREASX+2*, TNUM+2*, PDT+1*, PDT+8*, STEXDT+3* |
| >> DIK | RNDXP+3* |
| >> DIK(1 | RNDXP+3* |
| DIR | GROUPING+3!, ASKYR+1! |
| DIR("?" | TREAS+7* |
| DIR("??" | TREAS+8* |
| DIR("A" | TREAS+6*, GROUPING+5*, ASKYR+2* |
| DIR("B" | TREAS+5*, GROUPING+5* |
| DIR(0 | TREAS+4*, GROUPING+4*, ASKYR+5* |
| >> DIROUT | GROUPING+7 |
| >> DIRUT | ASKYR+7 |
| >> DR | TREASX+2*, TNUM+5*, PDT+2*, PDT+12*, STEXDT+4* |
| DT | CHK+6 |
| >> DTOUT | GROUPING+7 |
| >> DUOUT | GROUPING+7 |
| IO(0 | AFSLTF1+5, TREAS+9, GROUPING+7, LOOPME+5 |
| U | TREAS+3, PRCX+2, CHK+5, CHK+6, PDT+4, PDT+6, PDT+7 |
| >> X | TREAS+2*, TREASX+1, GROUPING+1*, GROUPING+2*, GROUPX+1, TNUM+1*, ASKYR+7*, ASKYR+8, ASKYR+10 |
| >> XX | RNDXP+1*, RNDXP+2, RNDXP+4 |
| >> Y | TREAS+9 |