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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACRFDHR5

Package: Commitment Register

Routine: ACRFDHR5


Information

ACRFDHR5 ;IHS/OIRM/DSD/AEF - RECOVER UNTRANSMITTED DHRS [ 11/01/2001 9:44 AM ]

Source Information

Source file <ACRFDHR5.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Commitment Register 2 DHRRCD^ACRFDHR1  $$PAD^ACRFUTL  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
IENLOOP ;
ASK(ACRASK)
EN ;EP -- MAIN ENTRY POINT
LOOP1(ACRRANGE)
SET(ACRIEN)
LOOP2(ACRRANGE)
IEN(ACRASK,ACRRANGE)
DATA(ACRRANGE)
DATELOOP ;
DATE(ACRASK,ACRRANGE)
TXT ;----- WRITE TEXT
CHK() ;----- CHECKS TO SEE IF RECORDS EXISTIN ARMS-BLUE OR ARMS-RED
TXT1 ;;

External References

Name Field # of Occurrence
DHRRCD^ACRFDHR1 SET+63
$$PAD^ACRFUTL SET+50
^DIR ASK+8, DATELOOP+6, DATELOOP+12, IENLOOP+8, IENLOOP+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Records exist in ARMS-BLUE and/or ARMS-RED batches. These"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"records must be cleared before running this option."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DATELOOP+3
Function Call: WRITE
  • Prompt: !?5,"Cannot recover DHRs generated before July 1, 2000"
  • Line Location: DATELOOP+10
Function Call: WRITE
  • Prompt: !?5,"ENDING DATE cannot be less than BEGINNING DATE"
  • Line Location: DATELOOP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: IENLOOP+4
Function Call: WRITE
  • Prompt: !?5,"ENDING IEN cannot be less than BEGINNING IEN"
  • Line Location: IENLOOP+16
Function Call: WRITE
  • Prompt: !!?5,ACRCNT," records have been placed in ARMS batch"
  • Line Location: LOOP1+13
Function Call: WRITE
  • Prompt: !!?5,"No records found "
  • Line Location: LOOP1+15
Function Call: WRITE
  • Prompt: !!?5,ACRCNT," records have been placed in ARMS batch"
  • Line Location: LOOP2+12
Function Call: WRITE
  • Prompt: !!?5,"No records found"
  • Line Location: LOOP2+14
Function Call: WRITE
  • Prompt: !?5,$P(X,";",3)
  • Line Location: TXT+3
Routine Call
  • DIR
  • Line Location:
    • ASK+8
    • DATELOOP+6
    • DATELOOP+12
    • IENLOOP+8
    • IENLOOP+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACRDHR - [#9002189.1] LOOP1+10, LOOP2+7, LOOP2+8, LOOP2+9, SET+22, SET+26
^ACRDHR("D" LOOP1+7, LOOP1+9
^ACRDOC - [#9002196] SET+23
^ACRLOCB - [#9002188] SET+25
^ACRSYS(1 SET+19
^AFSHRCDS( CHK+10, CHK+12, CHK+13
^AUTTACPT - [#9999999.69] SET+21

Label References

Name Line Occurrences
$$CHK EN+4
ASK EN+8
DATA EN+13
DATE EN+10
DATELOOP DATELOOP+9, DATELOOP+15
IEN EN+11
IENLOOP IENLOOP+15
LOOP1 DATA+3
LOOP2 DATA+4
SET LOOP1+11, LOOP2+10
TXT EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACR3 SET+16~, SET+27*, SET+29, SET+30
>> ACRACPT SET+18, SET+21*
ACRASK EN+2~, EN+8, EN+9, EN+10, EN+11, ASK~, ASK+4*, ASK+10*, DATE~, DATELOOP+17
, IEN~, IENLOOP+17
ACRBEG DATELOOP+1~, DATELOOP+8*, DATELOOP+9, DATELOOP+15, DATELOOP+17, IENLOOP+2~, IENLOOP+10*, IENLOOP+15, IENLOOP+17
ACRCNT LOOP1+3~, LOOP1+12, LOOP1+13, LOOP1+14, LOOP2+3~, LOOP2+11, LOOP2+12, LOOP2+13
ACRDATA SET+16~, SET+26*, SET+27, SET+31, SET+32, SET+33, SET+34, SET+35, SET+36, SET+37
, SET+38, SET+39, SET+40, SET+41, SET+42, SET+43, SET+44, SET+45, SET+46, SET+47
, SET+48, SET+49, SET+50, SET+51, SET+52, SET+53, SET+54, SET+55, SET+56, SET+57
, SET+58, SET+59, SET+60
ACRDATE LOOP1+3~, LOOP1+4*, LOOP1+6*, LOOP1+7*, LOOP1+9
ACRDEPT SET+16~, SET+24*, SET+25
ACRDOC0 SET+16~, SET+22*, SET+23*, SET+24
ACRDR SET+16~, SET+33*, SET+34*, SET+35*, SET+36*, SET+37*, SET+38*, SET+39*, SET+40*, SET+41*
, SET+42*, SET+43*, SET+44*, SET+45*, SET+46*, SET+47*, SET+48*, SET+49*, SET+50*, SET+51*
, SET+52*, SET+53*, SET+54*, SET+55*, SET+56*, SET+57*, SET+58*, SET+59*, SET+60*, SET+61*
ACREND DATELOOP+1~, DATELOOP+14*, DATELOOP+15, DATELOOP+17, IENLOOP+2~, IENLOOP+14*, IENLOOP+15, IENLOOP+17, LOOP1+3~, LOOP1+5*
, LOOP1+7, LOOP2+3~, LOOP2+5*, LOOP2+7
ACRFY SET+16~, SET+25*
ACRIEN LOOP1+3~, LOOP1+8*, LOOP1+9*, LOOP1+10, LOOP1+11, LOOP2+3~, LOOP2+4*, LOOP2+6*, LOOP2+7*, LOOP2+8
, LOOP2+9, LOOP2+10, SET~, SET+22, SET+26, SET+61
ACRIV SET+16~, SET+28*, SET+29*, SET+30*
ACRRANGE EN+2~, EN+10, EN+11, EN+12, EN+13, DATE~, DATELOOP+2*, DATELOOP+17*, IEN~, IENLOOP+3*
, IENLOOP+17*, DATA~, DATA+3, DATA+4, LOOP1~, LOOP1+4, LOOP1+5, LOOP2~, LOOP2+4, LOOP2+5
ACRRECOV SET+16~, SET+17*
ACRREF SET+16~, SET+31*, SET+32*
D0 CHK+6~, CHK+8*, CHK+10, CHK+12, CHK+13
D1 CHK+6~, CHK+9*, CHK+10*, CHK+12, CHK+13
D2 CHK+6~, CHK+11*, CHK+12*, CHK+13
DIR ASK+3~, DATELOOP+1~, IENLOOP+2~
DIR("?" ASK+7*, IENLOOP+7*
DIR("A" ASK+6*, DATELOOP+5*, DATELOOP+11*, IENLOOP+6*, IENLOOP+11*
DIR(0 ASK+5*, DATELOOP+4*, IENLOOP+5*
DIRUT ASK+3~, ASK+9, DATELOOP+1~, DATELOOP+7, DATELOOP+13, IENLOOP+2~, IENLOOP+9, IENLOOP+13
DTOUT ASK+3~, ASK+9, DATELOOP+1~, DATELOOP+7, DATELOOP+13, IENLOOP+2~, IENLOOP+9, IENLOOP+13
DUOUT ASK+3~, ASK+9, DATELOOP+1~, DATELOOP+7, DATELOOP+13, IENLOOP+2~, IENLOOP+9, IENLOOP+13
I TXT+2~, TXT+3*
U DATELOOP+17, IENLOOP+17, DATA+3, DATA+4, LOOP1+4, LOOP1+5, LOOP1+10, LOOP2+4, LOOP2+5, LOOP2+8
, LOOP2+9, SET+19, SET+21, SET+22, SET+24, SET+25, SET+27, SET+31, SET+32, SET+33
, SET+34, SET+35, SET+36, SET+37, SET+38, SET+39, SET+40, SET+41, SET+42, SET+43
, SET+44, SET+45, SET+46, SET+47, SET+48, SET+49, SET+50, SET+51, SET+52, SET+53
, SET+54, SET+55, SET+56, SET+57, SET+58, SET+59, SET+60
X ASK+3~, DATELOOP+1~, IENLOOP+2~, SET+16~, SET+19*, SET+20, SET+21, TXT+2~, TXT+3*
Y ASK+3~, ASK+10, DATELOOP+1~, DATELOOP+8, DATELOOP+14, IENLOOP+2~, IENLOOP+10, IENLOOP+14, CHK+7*, CHK+13*
, CHK+14

Marked Items

Name Field # of Occurrence
$T(TXT1+I TXT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All