Routine: AGELUP1

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

Customize PDF page

Package: IHS Patient Registration

Routine: AGELUP1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: