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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSEOBS

Package: Contract Health Management Information System

Routine: ACHSEOBS


Information

ACHSEOBS ; IHS/ITSC/TPF/PMF - SELECT EOBR FILE FOR PROCESSING ;

Source Information

Source file <ACHSEOBS.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Contract Health Management Information System 2 $$AOP^ACHS  ^ACHSEOBY  
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSEOB  

Entry Points

Name Comments DBIA/ICR reference
CONT ;
VKILL ; Kill vars, quit.
FACCK ;ACHS*3.1*22 FAC ICD9 FILE ALREADY PROCESSED
SEQOK ;
ABEND ;
D1 ;
D2 ;
D0 ;
DEND ;

External References

Name Field # of Occurrence
$$AOP^ACHS ACHSEOBS+4
^ACHSEOBY ACHSEOBS+6
^DIR DEND+18
$$DIR^XBDIR DEND+2, SEQOK+6, FACCK+5
$$C^XBFUNC ACHSEOBS+3, ACHSEOBS+4
$$FMTE^XLFDT D2+8
$$REPEAT^XLFSTR ACHSEOBS+3, ACHSEOBS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$REPEAT^XLFSTR("*",79),!,$$C^XBFUNC("*** SELECT EOBR FILE FOR PROCESSING ***")
  • Line Location: ACHSEOBS+3
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("LAST AREA OFFICE SEQUENCE NUMBER = "_$$AOP^ACHS(2,9)),!,$$C^XBFUNC("FI/EOBR Files Archive Directory = '"_$$AOP^ACHS(2,7)_"'.")
  • Line Location: ACHSEOBS+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79),!
  • Line Location: ACHSEOBS+5
Function Call: WRITE
  • Prompt: !!,"NUMBER FILE NAME FI PROCESS DATE # RCDS SEQ #"
  • Line Location: D0+4
Function Call: WRITE
  • Prompt: !,"------ --------------- --------------- ------ ------"
  • Line Location: D0+5
Function Call: WRITE
  • Prompt: !,$J(ACHSISEQ,6),?9,$P(ACHSUFLS(ACHSI),U,1)
  • Line Location: D2+5
Function Call: WRITE
  • Prompt: ?35,$$FMTE^XLFDT(X),?50,$J($FN($P(ACHSUFLS(ACHSI),U,4),",",0),6),?60,$J($P(ACHSUFLS(ACHSI),U,5),3)
  • Line Location: D2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DEND+1
Function Call: WRITE
  • Prompt: !,*7,"Wrong BCBS Report (Sequence) Number Selected ",!
  • Line Location: DEND+16
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: SEQOK+5
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: FACCK+4
Routine Call
  • DIR
  • Line Location:
    • DEND+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSAOP - [#9002079] DEND+7, DEND+10, DEND+11*, DEND+12, SEQOK+3, FACCK+2
^AUTTLOC("C" FACCK+1

Label References

Name Line Occurrences
ABEND ACHSEOBS+7, DEND+4, DEND+19, SEQOK+7, FACCK+6
CONT DEND+8, SEQOK+3, FACCK+2
D0 DEND+19
D1 D2+2, D2+3
D2 D2+10
DEND D1+2
FACCK DEND+13
SEQOK DEND+10, DEND+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHSAEND DEND+3*, ABEND+1*
ACHSCMD VKILL+1!
>> ACHSEOBD DEND+5*, DEND+6*, SEQOK+3
ACHSERDT VKILL+1!
ACHSERR VKILL+1!
ACHSERRC VKILL+1!
ACHSFILE DEND+5*, DEND+12, DEND+13, FACCK+1, VKILL+1!
ACHSFNAM VKILL+1!
ACHSFSIZ VKILL+1!
ACHSHFS1 VKILL+1!
ACHSI D0+1*, D2+1*, D2+2, D2+3, D2+5, D2+6, D2+8, D2+9, VKILL+1!
>> ACHSII D0+1*, D1+1*, D1+2, D2+1
>> ACHSISAO ACHSEOBS+4, DEND+6, DEND+8
ACHSISEQ D0+1*, D2+4*, D2+5, D2+9, DEND+2, VKILL+1!
>> ACHSJFLG ACHSEOBS+7
ACHSLCTR VKILL+1!
ACHSLEOB DEND+7*, VKILL+1!
ACHSLMT VKILL+1!
>> ACHSMEDA CONT+1*
ACHSRCT VKILL+1!
ACHSSEL D0+2!, VKILL+1!
ACHSSEL( D2+9*, DEND+4, DEND+5
ACHSUFLS VKILL+1!
ACHSUFLS( D2+3, D2+5, D2+6, D2+8, DEND+5, DEND+12, DEND+13, FACCK+1
ACHSUFLS("C" D1+1, D2+1
ACHSXX VKILL+1!
ACHSZDEV VKILL+1!
ACHSZFN DEND+5*, CONT+1, VKILL+1!
ACHSZFO VKILL+1!
ACHSZIN VKILL+1!
DIR DEND+14!, VKILL+1!
DIR(0 DEND+17*
>> DTOUT DEND+3
>> DUOUT DEND+3
DUZ(2 DEND+7, DEND+10, DEND+11, DEND+12, SEQOK+3, FACCK+2
IO(0 D0+3, DEND+15, SEQOK+4, FACCK+3
IOF ACHSEOBS+3
U D2+3, D2+5, D2+6, D2+8, DEND+5, DEND+7, DEND+10, DEND+11, DEND+12, DEND+13
, FACCK+1, FACCK+2
X D2+6*, D2+8, DEND+2*, DEND+3, DEND+4, DEND+5, DEND+6*, FACCK+1*, FACCK+2, VKILL+1!
Y DEND+19, VKILL+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All