ACRFUFM2 ;IHS/OIRM/DSD/AEF - UTILITY STANDALONE TO FIND OPEN DOCUMENTS FOR UFMS [ 12/26/2006 9:44 AM ]
Source file <ACRFUFM2.m>
Package | Total | Call Graph |
---|---|---|
Commitment Register | 2 | $$REQTP^ACRFSSU $$REF^ACRFUTL |
IHS VA Utilities | 1 | ^XBKVAR |
Kernel | 1 | HOME^%ZIS |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(ACRBDAT) | ;----- MAIN ENTRY POINT
|
|
TRAVEL(ACR) | ;TRAVEL VOUCHER OR ADVANCE
|
|
WRITEV(JOB) | ;EP; WRITE TO FLAT FILE
|
|
LOOP(ACRBDAT) | ;----- LOOP THROUGH FMS DOCUMENT FILE AND SET TMP FILE
; USE DOCUMENT DATE "DT" CROSS-REFERENCE |
|
VEND(ACRV) | ;
|
|
WRITE(JOB) | ;EP; WRITE FLAT FILE
|
|
VENDOR(ACR) | ;EP; FIND VENDOR FROM PO,TRAINING OR TRAVEL (SSN FROM NEW PERSON)
|
|
REST(ACRDOCDA,ACRDOC,ACRAPV,ACRVND) | ;SCREEN THE REST
|
|
CANCEL(X,Z) | ;
; ENTERS WITH X=ACRDOC0 ; Z=ACRAPV (FMS REQUEST, "APV" NODE) |
|
OPEN(ACRAPV) | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACRDOC - [#9002196] | LOOP+9, VENDOR+4, VENDOR+7, TRAVEL+1 |
^ACRDOC("DT" | LOOP+6, LOOP+8 |
^ACROBL - [#9002189] | LOOP+18 |
^AUTTVNDR - [#9999999.11] | VEND+3, VEND+7 |
^TMP( | WRITEV+5, WRITEV+6 |
^TMP("ACRAVEN" | EN+9!, LOOP+16, LOOP+17*, LOOP+30* |
^TMP("ACROPEN" | EN+7!, LOOP+32*, REST+10, REST+11*, REST+12*, WRITE+4, WRITE+5, WRITE+7, WRITE+8 |
^TMP("ACROVEN" | EN+8!, LOOP+31*, REST+17, REST+18* |
^TMP("ACRTRNG" | REST+9* |
^VA(200 - [#200] | TRAVEL+3 |
Name | Line Occurrences |
---|---|
$$CANCEL | LOOP+19 |
$$OPEN | REST+4 |
$$TRAVEL | VENDOR+3 |
$$VEND | LOOP+15, REST+9, REST+16 |
$$VENDOR | LOOP+13 |
LOOP | EN+10 |
REST | LOOP+27, LOOP+29 |
TRAVEL | LOOP+28 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACR | VENDOR~, VENDOR+2, VENDOR+3, VENDOR+4, VENDOR+7, TRAVEL~, TRAVEL+1 |
>> ACR0 | VEND+3*, VEND+4, VEND+5, VEND+6 |
ACRA | WRITE+1~, WRITE+3*, WRITE+4*, WRITE+5, WRITE+7, WRITE+8, WRITEV+1~, WRITEV+4*, WRITEV+5*, WRITEV+6 |
ACRAPV | LOOP+18*, LOOP+19, LOOP+27, LOOP+29, REST~, REST+4, OPEN~, OPEN+9, OPEN+10 |
ACRAVEN | LOOP+4~, LOOP+5*, LOOP+16*, LOOP+30 |
ACRB | WRITE+1~, WRITE+6*, WRITE+7*, WRITE+8 |
ACRBDAT | EN~, EN+4*, EN+10, LOOP~, LOOP+6*, LOOP+8, LOOP+17, REST+6, REST+9, REST+18 |
ACRC | WRITE+1~ |
ACRCNC | LOOP+3~, LOOP+19*, LOOP+20, REST+6 |
ACRCNT | LOOP+3~ |
ACRD | WRITE+1~ |
ACRDOC | LOOP+12*, LOOP+26*, LOOP+27, LOOP+29, REST~, REST+2, REST+3, REST+6 |
ACRDOC0 | LOOP+3~, LOOP+9*, LOOP+10, LOOP+12, LOOP+19 |
ACRDOCDA | LOOP+3~, LOOP+7*, LOOP+8*, LOOP+9, LOOP+13, LOOP+18, LOOP+21, LOOP+22, LOOP+27, LOOP+28 , LOOP+29, REST~, REST+6, REST+11, REST+15 |
>> ACRDUZ | TRAVEL+1*, TRAVEL+2, TRAVEL+3, TRAVEL+4, TRAVEL+5 |
ACRO | VEND+1~ |
>> ACRODOC | LOOP+5*, LOOP+32, REST+10* |
ACROPEN | LOOP+4~, REST+4*, REST+5, REST+11, REST+12 |
ACROVEN | LOOP+4~, LOOP+5*, LOOP+31, REST+17* |
>> ACRP1 | VEND+4*, VEND+8 |
>> ACRP13 | VEND+7*, VEND+8 |
>> ACRP5 | VEND+5*, VEND+8 |
>> ACRP7 | VEND+6*, VEND+8 |
ACRREF | LOOP+3~, LOOP+22*, LOOP+23, LOOP+24, LOOP+25, LOOP+28, REST+7, REST+8 |
ACRREQ | LOOP+3~, LOOP+10*, LOOP+11, LOOP+26, REST+6 |
ACRRTYP | LOOP+3~, LOOP+14, LOOP+21*, LOOP+25, LOOP+28, REST+7, VENDOR+2*, VENDOR+3, VENDOR+6 |
ACRTMP | LOOP+4~, LOOP+15*, LOOP+17, REST+1~, REST+6*, REST+7*, REST+11, REST+15*, REST+16*, REST+18 |
ACRV | VEND~, VEND+2, VEND+3, VEND+7, VENDOR+1~, VENDOR+4*, VENDOR+5*, VENDOR+6, VENDOR+7*, VENDOR+8* , VENDOR+9, TRAVEL+3*, TRAVEL+4, TRAVEL+5 |
ACRVND | LOOP+13*, LOOP+14, LOOP+15, LOOP+16, LOOP+17, LOOP+25, LOOP+27, LOOP+29, REST~, REST+6 , REST+9, REST+10, REST+15*, REST+16, REST+17, REST+18 |
>> I | WRITEV+3*, WRITEV+5, WRITEV+6 |
JOB | WRITE~, WRITE+2*, WRITE+4, WRITE+5, WRITE+7, WRITE+8, WRITEV~, WRITEV+2*, WRITEV+5, WRITEV+6 |
U | LOOP+10, LOOP+12, LOOP+13, LOOP+17, REST+6, REST+7, REST+9, REST+18, CANCEL+4, CANCEL+5 , CANCEL+6, OPEN+9, OPEN+10, WRITE+8, WRITEV+6, VEND+4, VEND+5, VEND+6, VEND+7, VEND+8 , VENDOR+4, VENDOR+7, TRAVEL+1, TRAVEL+3, TRAVEL+5 |
X | CANCEL~ |
Z | CANCEL~, CANCEL+4, CANCEL+5, CANCEL+6 |
Z1 | CANCEL+3~, CANCEL+4*, CANCEL+7, CANCEL+9, CANCEL+12 |
Z3 | CANCEL+3~, CANCEL+5*, CANCEL+7, CANCEL+10, CANCEL+13 |
Z6 | OPEN+8~, OPEN+9*, OPEN+11, OPEN+13, OPEN+14, OPEN+15 |
>> Z8 | CANCEL+6*, CANCEL+7, CANCEL+11, CANCEL+14 |
Z9 | OPEN+8~, OPEN+10*, OPEN+11, OPEN+13, OPEN+14, OPEN+15 |