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 |  All
Print Page as PDF
Routine: AGELUP1

Package: IHS Patient Registration

Routine: AGELUP1


Information

AGELUP1 ;IHS/ASDS/EFG - UPDATE ELIGIBILITY FROM CMS FILE (MAIN) ;

Source Information

Source file <AGELUP1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Patient Registration 5 (FILE,M)^AGELUP2  ($$LTR,FILE,R)^AGELUP3  (D,FILE)^AGELUP4  ($$MATCH,AUDR,AUDS,FRMT,INSPT,RUN,RUN1)^AGELUPUT  $$UPPER^AGUTILS  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
Kernel 2 ($$LIST,$$STATUS,CLOSE,OPEN)^%ZISH  (ENDR,KILL)^%ZISS  
VA Fileman 2 WAIT^DICD  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
FLOOP ;read through file
F ;fixed length parse
STRIP(Y) ;strip trailing blanks
V ;variable length parse
DFMT(A,B) ;Format date A according to B.
START ;start
DFN ;Lookup Pt using SSN.
FLOOP1 ;
TXT ;
OPEN ;open host file

External References

Name Field # of Occurrence
$$LIST^%ZISH OPEN+8
$$STATUS^%ZISH FLOOP+8, FLOOP1+16
CLOSE^%ZISH FLOOP1+1, FLOOP1+8, FLOOP1+34
OPEN^%ZISH OPEN+25, FLOOP1+9
ENDR^%ZISS START+18
KILL^%ZISS START+18
FILE^AGELUP2 FLOOP1+30
M^AGELUP2 FLOOP1+30
$$LTR^AGELUP3 OPEN+8
FILE^AGELUP3 FLOOP1+32
R^AGELUP3 FLOOP1+32
D^AGELUP4 FLOOP1+31
FILE^AGELUP4 FLOOP1+31
$$MATCH^AGELUPUT FLOOP1+23
AUDR^AGELUPUT START+18
AUDS^AGELUPUT START+18
FRMT^AGELUPUT START+9
INSPT^AGELUPUT START+11
RUN^AGELUPUT FLOOP1+7
RUN1^AGELUPUT START+18
$$UPPER^AGUTILS OPEN+17
WAIT^DICD FLOOP+3, FLOOP1+11
^DIR OPEN+22
$$DIR^XBDIR START+8, START+22, OPEN+5, OPEN+11, OPEN+13, OPEN+15, FLOOP1+4
HELP^XBHELP START+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"An INSURER is needed. Sorry."
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"Could not open host file",!
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,"Could not open host file",!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !!,"D O N E",!!
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,$J(AG,3),". ",AGLIST(AG)
  • Line Location: OPEN+11
Function Call: WRITE
  • Prompt: "Counting records in file..."
  • Line Location: FLOOP+5
Function Call: WRITE
  • Prompt: $J(AGCNT,8)
  • Line Location: FLOOP+9
Function Call: WRITE
  • Prompt: !!,AGCNT," records found in file.",!
  • Line Location: FLOOP1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FLOOP1+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: FLOOP1+11
Function Call: WRITE
  • Prompt: "Positioning to record ",AGSTART
  • Line Location: FLOOP1+11
Function Call: WRITE
  • Prompt: $J(AGRCNT,8)
  • Line Location: FLOOP1+19
Routine Call
  • DIR
  • Line Location:
    • OPEN+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" OPEN+4
^AGELUP - [#9009062.01] F+18, F+19, V+18, V+19
^AGELUPLG - [#9009062.02] FLOOP+4
^AGELUPLG("C" FLOOP+4
^AGFAC - [#9009061] OPEN+3
^AUTTSITE(1 OPEN+4
^DD(9000003 FLOOP1+22
^DD(9000004 FLOOP1+23
^DD(9000005 FLOOP1+24
^DPT("SSN" DFN+3
^TMP($J START+6!, START+19!, FLOOP1+26*, DFN+5

Label References

Name Line Occurrences
$$DFMT F+15, F+21, F+22, V+9, V+22, V+23
$$STRIP F+10, F+11
@( FLOOP1+20
DFN F+2, V+2
FLOOP START+18
FLOOP1 FLOOP+4
OPEN START+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DFMT+8*
A DFMT~, DFMT+1, DFMT+2, DFMT+3, DFMT+4, DFMT+5, DFMT+6, DFMT+7*, DFMT+8*, DFMT+9*
AG START+1~, OPEN+7*, OPEN+8, OPEN+9~, OPEN+10*, OPEN+11*, FLOOP1+13!, FLOOP1+30, FLOOP1+31, FLOOP1+32
AG("DFN" FLOOP1+21, FLOOP1+26, FLOOP1+30, FLOOP1+31, FLOOP1+32, F+3, V+3, DFN+1*, DFN+3*, DFN+4
, DFN+5*
AG("DT" F+21*, F+22*, F+23*, V+22*, V+23*, V+24*
AG("FDOB" F+15*, V+9*
AG("FFNM" FLOOP1+27, F+11*, V+5*
AG("FLNM" FLOOP1+27, F+10*, V+4*
AG("FMAC" F+7*, V+14*
AG("FMAL1" F+5*, V+12*
AG("FMAL2" F+6*, V+13*
AG("FMAST" F+8*, V+15*
AG("FMAZ" F+9*, V+16*
AG("FMI" FLOOP1+28, F+12*, V+6*
AG("FNBR" FLOOP1+22, FLOOP1+23, FLOOP1+24, F+13*, V+7*
AG("FNM" FLOOP1+27*, FLOOP1+28*
AG("FPRO" FLOOP1+25, F+16*, V+10*
AG("FSEX" F+4*, V+11*
AG("FSFX" F+14*, V+8*
AG("FSSN" F+1*, V+1*, DFN+1*, DFN+2, DFN+3
AG1 START+1~
AG2 START+1~
AGACT START+3~, FLOOP1+29*, FLOOP1+30, FLOOP1+31, FLOOP1+32
AGAUTO START+3~, FLOOP1+23, FLOOP1+29
AGCNT START+3~, FLOOP+4*, FLOOP+6*, FLOOP+9, FLOOP+11*, FLOOP1+3, FLOOP1+4, F+17*, F+18*, F+19
, V+17*, V+18*, V+19
>> AGCVT F+21*, F+22, F+23, V+21*, V+22, V+23, V+24
>> AGDEL V+1, V+4, V+5, V+6, V+7, V+8, V+9, V+10, V+11, V+12
, V+13, V+14, V+15, V+16, V+19, V+21, V+22
AGDT START+2~, V+19*, V+20, V+22*, V+23, V+24
>> AGDT1 F+19*, F+20, F+21*, F+22, F+23
>> AGDT2 F+21*, F+22*, V+22*, V+23
AGFILE START+2~, OPEN+2!, OPEN+8*, OPEN+11*!, OPEN+13*, OPEN+15, OPEN+17, OPEN+25, FLOOP+4, FLOOP1+9
AGFL START+2~
AGFPVL START+1~, FLOOP1+25
AGINSPT START+3~, START+12
AGLIST OPEN+1~, OPEN+7*, OPEN+8
AGLIST( OPEN+8, OPEN+11
AGMATCH START+5~
AGMCDST START+5~
AGMDOB START+3~
AGMNBR START+3~
AGMSFX START+3~
>> AGND F+19*, F+21, V+19*, V+21, V+22
AGONE START+1~, F+1, F+4, F+10, F+11, F+12, F+13, F+14, V+1, V+4
, V+5, V+6, V+7, V+8, V+11
AGPARSE START+1~, FLOOP1+20
AGPATH START+2~, OPEN+3*, OPEN+4*, OPEN+5*, OPEN+8, OPEN+25, FLOOP1+9
AGQUIT START+2~, FLOOP+1!, FLOOP1+12, FLOOP1+16*, FLOOP1+30*, FLOOP1+31*, FLOOP1+32*, STRIP+3!
AGRCNT START+2~, FLOOP1+10*, FLOOP1+11*, FLOOP1+18*, FLOOP1+19
AGRUN START+3~, FLOOP1+8
>> AGSEVEN V+12, V+13, V+14, V+15, V+16
AGSTART START+2~, FLOOP1+4*, FLOOP1+11
AGTDA START+1~, START+10, F+18, F+19, V+18, V+19
AGTHREE START+2~, F+16, V+10
AGTWO START+1~, F+15, V+9
AGTYPE START+1~, OPEN+7, FLOOP1+22, FLOOP1+23, FLOOP1+24, FLOOP1+30, FLOOP1+31, FLOOP1+32
AGZERO START+1~, OPEN+17, F+15, F+21, F+22, V+9, V+22, V+23
B DFMT~, DFMT+2, DFMT+3, DFMT+4, DFMT+5, DFMT+6
DIR START+4~, OPEN+2!, OPEN+20!
DIR("A" OPEN+20*
DIR(0 OPEN+21*
>> DIRUT START+10, START+14, START+18, OPEN+6, OPEN+11, OPEN+14, OPEN+15*, OPEN+23*, FLOOP1+6, FLOOP1+30
, FLOOP1+31, FLOOP1+32
DTIME FLOOP+10, FLOOP1+11, FLOOP1+15
DUZ(2 OPEN+3
I FLOOP1+11*, STRIP+1~, STRIP+2*
IO FLOOP+7, FLOOP+9, FLOOP1+11, FLOOP1+14
IO(0 START+20, FLOOP+2, FLOOP+9, FLOOP1+2, FLOOP1+11, FLOOP1+17
>> POP START+16
U OPEN+3, OPEN+4, OPEN+17, FLOOP+4, FLOOP1+22, FLOOP1+23, FLOOP1+24, F+1, F+4, F+10
, F+11, F+12, F+13, F+14, F+15, F+16, F+19, F+21, F+22, F+23
, V+1, V+4, V+5, V+6, V+7, V+8, V+9, V+10, V+11, V+12
, V+13, V+14, V+15, V+16, V+19, V+21, V+22, V+23, V+24
>> X START+17*, FLOOP+10*, FLOOP1+11*, FLOOP1+15*, FLOOP1+22*, FLOOP1+23*, FLOOP1+24*, F+1, F+4, F+10
, F+11, F+12, F+13, F+14, F+15, F+16, F+19, F+21, V+1, V+4
, V+5, V+6, V+7, V+8, V+9, V+10, V+11, V+12, V+13, V+14
, V+15, V+16, V+19, V+21, V+22
Y OPEN+17, OPEN+23, STRIP~, STRIP+2*, STRIP+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All