Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACRFIRS1

Package: Commitment Register

Routine: ACRFIRS1


Information

ACRFIRS1 ;IHS/OIRM/DSD/AEF - CREATE 1099 RECORDS FOR IRS; [ 07/20/2006 4:18 PM ]

Source Information

Source file <ACRFIRS1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Commitment Register 4 (RECORDC,RECORDF,RECORDT)^ACRFIRS0  (RECORDA,RECORDB)^ACRFIRS2  $$ARMSDIR^ACRFSYS  ($$JDATE,$$UPPER,QUE)^ACRFUTL  
Kernel 3 HOME^%ZIS  ^%ZISC  (CLOSE,OPEN)^%ZISH  
VA Fileman 2 ^DIC  ^DIR  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Commitment Register 1 ACRFIRS2  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP -- MAIN ENTRY POINT
STA ;----- PROMPT LOOP
STATE(ACRSTA,ACRFSTN,ACRSTAN)
GET(ACRAREA,ACRPMYR,ACRSADR,ACRFSTN,ACRSTAN)
YEAR(ACRPMYR)
HFS(ACRDIR,ACRSTN,ACRZOUT,ACRFILE,%DEV)
UNIX(ACRSTN)
PRINT(ACRPMYR,ACRSTA)
ADDRESS(ACRSADR)
LOOP(ACRPMYR,ACRSADR,ACRFSTN,ACRSTAN,ACRTOT,ACRCNTB,ACRCNTR)
AREA(ACRAREA)
NCTL(X) ;EP -- NAME CONTROL - RETURNS FIRST 4 SIGNIFICANT CHARACTERS

External References

Name Field # of Occurrence
HOME^%ZIS EN+5, PRINT+4
^%ZISC EN+26
CLOSE^%ZISH UNIX+22
OPEN^%ZISH HFS+5
RECORDC^ACRFIRS0 GET+26
RECORDF^ACRFIRS0 GET+28
RECORDT^ACRFIRS0 GET+30
RECORDA^ACRFIRS2 GET+21
RECORDB^ACRFIRS2 LOOP+79
$$ARMSDIR^ACRFSYS UNIX+6
$$JDATE^ACRFUTL HFS+4
$$UPPER^ACRFUTL LOOP+37, LOOP+50, LOOP+58, LOOP+66
QUE^ACRFUTL PRINT+9
^DIC AREA+10
^DIR STA+11, YEAR+11, ADDRESS+11
^XBKVAR EN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Working..."
  • Line Location: GET+19
Function Call: WRITE
  • Prompt: *7," NO SUCH STATE",!
  • Line Location: STA+16
Function Call: WRITE
  • Prompt: $G(^TMP("ACRZ",$J,"RECORD","T",I))
  • Line Location: UNIX+12
Function Call: WRITE
  • Prompt: $G(^TMP("ACRZ",$J,"RECORD","A",ACRAREA,I))
  • Line Location: UNIX+15
Function Call: WRITE
  • Prompt: $G(^TMP("ACRZ",$J,"RECORD","B",ACRAREA,ACRVEND0,J))
  • Line Location: UNIX+18
Function Call: WRITE
  • Prompt: $G(^TMP("ACRZ",$J,"RECORD","C",ACRAREA,I))
  • Line Location: UNIX+19
Function Call: WRITE
  • Prompt: $G(^TMP("ACRZ",$J,"RECORD","F",I))
  • Line Location: UNIX+20
Function Call: WRITE
  • Prompt: !!,"Records have been put into file "_ACRDIR_ACRFILE
  • Line Location: UNIX+21
Function Call: WRITE
  • Prompt: !,"UNABLE TO OPEN FILE "_ACRFILE
  • Line Location: HFS+8
Routine Call
  • %ZIS
  • Line Location:
    • EN+5
    • PRINT+4
Routine Call
  • DIC
  • Line Location:
    • AREA+10
Routine Call
  • DIR
  • Line Location:
    • STA+11
    • YEAR+11
    • ADDRESS+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACR1099P - [#9002198.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACR1099V - [#9002198.2] LOOP+39, LOOP+43
^ACR1099V("C" LOOP+36
^AUTTVNDR - [#9999999.11] LOOP+37, LOOP+38, LOOP+47, LOOP+50, LOOP+58, LOOP+66
^DIC(5 - [#5] LOOP+55, LOOP+63, LOOP+71, STA+15
^TMP("ACRZ" EN+25!, GET+17!, LOOP+80*, LOOP+81*, UNIX+4, UNIX+12, UNIX+14, UNIX+15, UNIX+17, UNIX+18
, UNIX+19, UNIX+20

Label References

Name Line Occurrences
ADDRESS EN+16
AREA EN+7
GET EN+19
HFS UNIX+9
LOOP GET+24
PRINT EN+23
STA STA+16
STATE EN+10
UNIX EN+21
YEAR EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DEV UNIX+3~, UNIX+9, UNIX+11, UNIX+23!, HFS~, HFS+9*
ACRADD LOOP+29~, LOOP+51*, LOOP+59*, LOOP+67*, LOOP+73, LOOP+79
ACRAMT LOOP+29~, LOOP+43*, LOOP+44, LOOP+45*, LOOP+46, LOOP+78, LOOP+79, LOOP+80
ACRAMTCD LOOP+29~, LOOP+40*, LOOP+42, LOOP+79
ACRAREA EN+2~, EN+7, EN+8, EN+19, GET~, GET+21, GET+26, GET+30, AREA~, AREA+7*
, AREA+13*, UNIX+3~, UNIX+13*, UNIX+14*, UNIX+15, UNIX+17, UNIX+18, UNIX+19
ACRCITY LOOP+29~, LOOP+52*, LOOP+60*, LOOP+68*, LOOP+74, LOOP+79
ACRCNTA GET+15~, GET+21, GET+28
ACRCNTB GET+15~, GET+24, GET+26, GET+30, LOOP~, LOOP+35*, LOOP+79
ACRCNTR GET+15~, GET+23*, GET+24, GET+26, GET+28, LOOP~, LOOP+79
ACRDIR UNIX+3~, UNIX+6*, UNIX+7, UNIX+8*, UNIX+9, UNIX+21, HFS~, HFS+5
ACRFILE UNIX+3~, UNIX+9, UNIX+21, HFS~, HFS+4*, HFS+5, HFS+8
>> ACRFOR LOOP+41*, LOOP+79
ACRFSTN EN+2~, EN+10, EN+19, EN+21, GET~, GET+24, LOOP~, LOOP+77, STATE~, STA+3*
, STA+13*, STA+14*, STA+16!, HFS+4
ACRJ PRINT+3~, PRINT+5*
ACRNAME LOOP+29~, LOOP+37*, LOOP+79, LOOP+80
ACRPMYR EN+2~, EN+13, EN+14, EN+19, EN+23, GET~, GET+21, GET+24, GET+30, LOOP~
, LOOP+36, LOOP+43, LOOP+79, PRINT~, YEAR~, YEAR+7*, YEAR+13*
ACRSADR EN+2~, EN+16, EN+17, EN+19, GET~, GET+24, LOOP~, LOOP+49, LOOP+57, LOOP+65
, ADDRESS~, ADDRESS+7*, ADDRESS+13*
ACRSTA EN+2~, EN+10, EN+11, EN+23, PRINT~, STATE~, STA+3*, STA+13*, STA+15, STA+16!
ACRSTAB LOOP+29~, LOOP+55*, LOOP+63*, LOOP+71*, LOOP+75, LOOP+79
ACRSTAN EN+2~, EN+10, EN+19, GET~, GET+24, LOOP~, LOOP+77, STATE~, STA+3*, STA+15*
, STA+16!
ACRSTN UNIX~, UNIX+9, HFS~
ACRSTNO LOOP+29~, LOOP+53*, LOOP+54*, LOOP+55, LOOP+61*, LOOP+62*, LOOP+63, LOOP+69*, LOOP+70*, LOOP+71
, LOOP+77
ACRTIN LOOP+29~, LOOP+47*, LOOP+48, LOOP+79, LOOP+80
ACRTOT GET+15~, GET+24, GET+26, LOOP~, LOOP+31!, LOOP+79
ACRTOT( LOOP+33*
ACRTOTAL LOOP+29~, LOOP+35*, LOOP+78*, LOOP+81
>> ACRV0 LOOP+39*, LOOP+40, LOOP+41
ACRVEND0 LOOP+29~, LOOP+35*, LOOP+36*, LOOP+37, LOOP+38, LOOP+39, LOOP+43, LOOP+47, LOOP+50, LOOP+58
, LOOP+66, LOOP+79, LOOP+80, UNIX+3~, UNIX+16*, UNIX+17*, UNIX+18
ACRZIP LOOP+29~, LOOP+56*, LOOP+64*, LOOP+72*, LOOP+76, LOOP+79
ACRZOUT UNIX+3~, UNIX+9, UNIX+10, HFS~, HFS+7*
DATA LOOP+29~, LOOP+50*, LOOP+51, LOOP+52, LOOP+53, LOOP+56, LOOP+58*, LOOP+59, LOOP+60, LOOP+61
, LOOP+64, LOOP+66*, LOOP+67, LOOP+68, LOOP+69, LOOP+72
DIC AREA+6~, AREA+8*, AREA+11!
DIC(0 AREA+9*
DIR STA+2~, YEAR+6~, ADDRESS+6~
DIR("A" STA+5*, STA+6*, STA+7*, STA+8*, STA+9*, STA+10*, YEAR+9*, ADDRESS+9*
DIR("B" YEAR+10*, ADDRESS+10*
DIR(0 STA+4*, YEAR+8*, ADDRESS+8*
>> DIROUT ADDRESS+12
>> DIRUT STA+12, YEAR+12
DT YEAR+10, HFS+4
>> DTOUT AREA+12, STA+12, YEAR+12, ADDRESS+12
>> DUOUT AREA+12, STA+12, YEAR+12, ADDRESS+12
I LOOP+29~, LOOP+33*, UNIX+3~, UNIX+12*, UNIX+15*, UNIX+19*, UNIX+20*
IO HFS+9
J UNIX+3~, UNIX+18*
POP HFS+3~, HFS+6
U LOOP+37, LOOP+40, LOOP+41, LOOP+43, LOOP+47, LOOP+51, LOOP+52, LOOP+53, LOOP+55, LOOP+56
, LOOP+59, LOOP+60, LOOP+61, LOOP+63, LOOP+64, LOOP+67, LOOP+68, LOOP+69, LOOP+71, LOOP+72
, LOOP+80
X AREA+6~, STA+2~, YEAR+6~, ADDRESS+6~, HFS+3~, NCTL~, NCTL+4*, NCTL+5*, NCTL+6
Y AREA+6~, AREA+12, AREA+13, STA+2~, STA+12, STA+13, YEAR+6~, YEAR+12, YEAR+13, ADDRESS+6~
, ADDRESS+12, ADDRESS+13, HFS+3~
ZTSAVE PRINT+3~, PRINT+9
ZTSAVE("ACRJ" PRINT+6*
ZTSAVE("ACRPMYR" PRINT+7*
ZTSAVE("ACRSTA" PRINT+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All