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 |