Routine: AGSSPLIT

Package	Total	Call Graph
IHS Patient Registration	2	T^AG ^AGSSPLI1
Kernel	2	(,HOME)^%ZIS ^%ZISC
VA Fileman	2	DT^DICRW ^DIR
IHS VA Utilities	1	^XBDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
EXIT	;
FINISH	;set up final files and report
READTAPE	; read tapes
AREA	;open ssa_area file and process individual facilities
PROCESS	;
S1	;Load Master tape
CALL	;
CLOSE	;
S	;
TAPE	; process each individual tape
PROCESS1
PATH	;
RESTART

External References

Name	Field # of Occurrence
^%ZIS	S1+1, PROCESS+3, AREA+2, AREA+14
HOME^%ZIS	PROCESS+6
^%ZISC	PROCESS+6, AREA+13, CLOSE+1
T^AG	TAPE+5, TAPE+8, AREA+17, AREA+21
^AGSSPLI1	FINISH+1
DT^DICRW	S1+1, AREA+4
^DIR	S1+4, PATH+2, PATH+8, PATH+12, READTAPE+1, TAPE+3, PROCESS+7, CLOSE+5
^XBDBQUE	PROCESS+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This will process multiple tapes into seperate",!,"facility files.",! Line Location: S1+3
Function Call: WRITE	Prompt: !,"This will take some space .. ",!,"The number of BYTES necessary is estimated at : >>> ",$FN(AGSS("TAPES")*12000000,","),!! Line Location: S1+7
Function Call: WRITE	Prompt: !,"Please indicate the complete directory path you want to use.",!,?10," example: /usr2 ",!,?10,"or ^ to exit",! Line Location: PATH+1
Function Call: WRITE	Prompt: !,"Files will be created as: ",!,?10,AGSS("PATH"),"xxxxx.ssn",! Line Location: PATH+7
Function Call: WRITE	Prompt: !,"This will display any files already present.",! Line Location: PATH+10
Function Call: WRITE	Prompt: !,"Since you answered no ...",!," be sure the *.ssa files are present in the previous listing.",!,"prior to processing !!.",!! Line Location: READTAPE+2
Function Call: WRITE	Prompt: !,"You can skip the loading of a tape with an ""^"" .",!! Line Location: TAPE+1
Function Call: WRITE	Prompt: !,"Please Load tape number : ",AGSSNUM,!,"Tape must be loaded and on-line",*7 Line Location: TAPE+2
Function Call: WRITE	Prompt: ! Line Location: TAPE+4
Function Call: WRITE	Prompt: !,"Reading into file "_AGSS("PATH")_"ssa_area"_AGSSNUM_".ssa",!,"Starting : " Line Location: TAPE+5
Function Call: WRITE	Prompt: !,"Unix file "_AGSS("PATH")_"ssa_area"_AGSSNUM_".ssa loaded ..." Line Location: TAPE+7
Function Call: WRITE	Prompt: !!,"This application requires two host file devices for file(s) IO",!! Line Location: PROCESS+1
Function Call: WRITE	Prompt: !!,"Starting Area ",AGSSNUM,!! Line Location: AREA+3
Function Call: READ	Timeout: 1 Variable: AGX Line Location: AREA+7
Function Call: WRITE	Prompt: !!,"Starting file : ",AGSS("SFILE"),?40,AGSS("FACNM") Line Location: AREA+12
Function Call: WRITE	Prompt: !,"NO OPEN ON AGSSHF(1)",! Line Location: AREA+14
Function Call: WRITE	Prompt: !,?10,AGSS("RCOUNT"),?30,AGSS("TCOUNT"),?40 Line Location: AREA+17
Function Call: WRITE	Prompt: AGX,! Line Location: AREA+18
Function Call: WRITE	Prompt: !!,"total records",?15,AGSS("TCOUNT"),?40 Line Location: AREA+21
Function Call: WRITE	Prompt: ! Line Location: AREA+21
Function Call: WRITE	Prompt: !,AGSS("FACNM"),?30,"Finish : ",?40,AGSS("RCOUNT"),?50,AGSS("TCOUNT"),! Line Location: CLOSE+2
Function Call: WRITE	Prompt: !,?10,AGSS("CMD") Line Location: CALL+1
Routine Call	%ZIS Line Location: PROCESS+6
Routine Call	DIR Line Location: S1+4 PATH+2 PATH+8 PATH+12 READTAPE+1 TAPE+3 PROCESS+7 CLOSE+5
Routine Call	%ZIS Line Location: S1+1 PROCESS+3 AREA+2 AREA+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGSSFTMP(	S1+2!, EXIT+1!, CLOSE+3, CLOSE+4
^AUTTLOC("C"	AREA+11
^DIC(4 - [#4]	AREA+11

Label References

Name	Line Occurrences
AREA	PROCESS1
CALL	S1+8, PATH+11, TAPE+4, TAPE+6, AREA+6, AREA+22, CLOSE+6, RESTART
CLOSE	AREA+9, AREA+20
EXIT	S1+1, S1+5, PROCESS+4, AREA+14
FINISH	PROCESS1+1
PATH	PATH+9, PATH+13
PROCESS	PATH+14
READTAPE	PATH+14
TAPE	READTAPE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS("IOPAR"	AREA+1, AREA+14
AGSS	EXIT+1!
AGSS("CMD"	S1+8, PATH+11, TAPE+4, TAPE+6, AREA+6, AREA+22, CLOSE+6, CALL+1, CALL+2, RESTART
AGSS("DUOUT"	TAPE+3*
AGSS("FACNM"	AREA+10, AREA+11, AREA+12, CLOSE+2, CLOSE+4, CLOSE+6
AGSS("LFILE"	AREA+5, AREA+8, AREA+9, AREA+19, CLOSE+3, CLOSE+4
AGSS("NFILE"	AREA+8*, AREA+10, AREA+11, AREA+19
AGSS("PATH"	PATH+6*, PATH+7, PATH+11, TAPE+4, TAPE+5, TAPE+6, TAPE+7, AREA+1, AREA+6, AREA+10 , AREA+22, CLOSE+6, RESTART
AGSS("RCOUNT"	AREA+5, AREA+15, AREA+16*, AREA+17, CLOSE+2, CLOSE+3, CLOSE+6
AGSS("SFILE"	AREA+10*, AREA+12, AREA+14, CLOSE+6
AGSS("TAPES"	S1+6, S1+7, READTAPE+3, PROCESS1, CLOSE+5
AGSS("TCOUNT"	AREA+5, AREA+16, AREA+17, AREA+21, CLOSE+2, CLOSE+6
AGSS("TRACE"	CALL+1
AGSSFAC	EXIT+1!
AGSSHF	EXIT+1!
AGSSHF(	PROCESS+3*, PROCESS+6
AGSSHF(1	AREA+13, AREA+14, AREA+18, CLOSE+1
AGSSHF(2	AREA+1, AREA+7
AGSSHFC	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+6, EXIT+1!
AGSSI	PROCESS+3*, EXIT+1!
AGSSIO	AREA+13*!
AGSSNUM	READTAPE+3, TAPE+2, TAPE+4, TAPE+5, TAPE+6, TAPE+7, PROCESS1, AREA+1, AREA+3, EXIT+1!
>> AGX	AREA+7*, AREA+8, AREA+18
AGY	EXIT+1!, CALL+2*
DIR	S1+4!, PATH+2!, PATH+8!, PATH+12!, READTAPE+1!, TAPE+3!, PROCESS+7!, CLOSE+5!
DIR("A"	S1+4, PATH+2, PATH+8, PATH+12, READTAPE+1, PROCESS+7
DIR("B"	PATH+2, PATH+8, PATH+12*
DIR(0	S1+4, PATH+2, PATH+8, PATH+12, READTAPE+1, TAPE+3, PROCESS+7, CLOSE+5
>> DUOUT	TAPE+3, PROCESS+7*
IO	PROCESS+6, AREA+13, CLOSE+1*
IO(0	AREA+3, AREA+12, AREA+14, AREA+17, AREA+21, CLOSE+2, CALL+1
>> IOP	S1+1, PROCESS+3, AREA+1, AREA+14
>> POP	S1+1, PROCESS+3, AREA+2, AREA+14
>> X	S1+5, S1+6, CLOSE+5
>> XBIOP	PROCESS+8*
>> XBNS	PROCESS+8*
>> XBRP	PROCESS+8*
>> XBRX	PROCESS+8*
>> Y	PATH+3, PATH+5*, PATH+6, PATH+9, PATH+13, READTAPE+2, PROCESS+7

Customize PDF page

Package: IHS Patient Registration

Routine: AGSSPLIT

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: