Routine: IVMBULK

Package	Total	Call Graph
Kernel	3	HOME^%ZIS ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
VA FileMan	2	COMMA^%DTC ^DIR
Income Verification Match	1	($$GET,$$GETCONST,$$INIT,$$LOCK,$$PATH,$$STORE,INQUIRE,UNLOCK)^IVMBULK2

Entry Points

Name	Comments	DBIA/ICR reference
EN(IVMARRY1,IVMCONST)	; -- ; Description: Entry point responsible for queuing off the enrollment extract job.
ENQ	; ; if job is not queued, unlock IVM EXTRACT MANAGEMENT file
ENV()	; -- ; Description: This function performs an environment check for the enrollment initial data extract job.
PAUSE()	; -- ; Description: End-of-Page, Press return to continue or "^" to exit.
PAUSEQ
EST(IVMARRY1,IVMCONST)	; -- ; Description: Calculate extract size/time estimates.
ESTQ
TOTPAT(ESTIMATE)	; -- ; Description: This function counts the number of records in the PATIENT file.
TIMEST(COUNT,PERCN,AVG100)	; -- ; Description: This function will return a time estimate as to how long the initial data extract will run.
SIZEST(COUNT,PERCN,SIZE)	; ; Description: This function will return a size estimate for the initial data extract.
HDR1	; -- ; Description: Write extract user info.
HDR2(IVMCONST)	; -- ; Description: Write extract estimate disclaimer
CLEAR(IVMARRAY)	;

External References

Name	Field # of Occurrence
COMMA^%DTC	EST+21, EST+27
HOME^%ZIS	EN+62
^%ZTLOAD	EN+62
^DIR	EN+40, PAUSE+11
$$GET^IVMBULK2	EN+24
$$GETCONST^IVMBULK2	EN+21, CLEAR+13
$$INIT^IVMBULK2	EN+27, CLEAR+13
$$LOCK^IVMBULK2	EN+14
$$PATH^IVMBULK2	EN+57
$$STORE^IVMBULK2	CLEAR+15
INQUIRE^IVMBULK2	EN+35
UNLOCK^IVMBULK2	ENQ+2
$$FMADD^XLFDT	EST+26
$$NOW^XLFDT	EST+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This job has been queued. The task number is "_ZTSK_"." Line Location: EN+63
Function Call: WRITE	Prompt: !,"Unable to queue this job." Line Location: EN+64
Function Call: WRITE	Prompt: *7,!,"You must have a valid DUZ defined before running this routine!" Line Location: ENV+12
Function Call: WRITE	Prompt: !,?7,"Estimated number of patients to be processed: "_X Line Location: EST+22
Function Call: WRITE	Prompt: !,?7,"Estimated time of extract: "_$P(X,"^",1)_" Hours "_$P(X,"^",2)_" Minutes" Line Location: EST+25
Function Call: WRITE	Prompt: !,?7,"Estimated amount of disk space (bytes): "_X Line Location: EST+28
Function Call: WRITE	Prompt: ! Line Location: EST+29
Function Call: WRITE	Prompt: !!,"> > > E N R O L L M E N T D A T A E X T R A C T" Line Location: HDR1+6
Function Call: WRITE	Prompt: !!,?5,"This job will loop through the Patient (#2) file to find patients" Line Location: HDR1+7
Function Call: WRITE	Prompt: !,?5,"that meet the enrollment extract selection criteria.",! Line Location: HDR1+8
Function Call: WRITE	Prompt: !,?5,"Due to the high integration with the Patient (#2) file, please" Line Location: HDR1+9
Function Call: WRITE	Prompt: !,?5,"queue this job to run at non-peak hours.",! Line Location: HDR1+10
Function Call: WRITE	Prompt: !,?15," * * * * * P L E A S E N O T E * * * * *" Line Location: HDR2+9
Function Call: WRITE	Prompt: !,?5,"The following time and space estimates are based on the approximate" Line Location: HDR2+10
Function Call: WRITE	Prompt: !,?5,"number of patients in your database. Of those patients, it is assumed" Line Location: HDR2+11
Function Call: WRITE	Prompt: !,?5,"that approximately "_IVMCONST("PERCNT")_"% will meet the requirements to be included in" Line Location: HDR2+12
Function Call: WRITE	Prompt: !,?5,"the extract. Also, the time estimate provided does not account for" Line Location: HDR2+13
Function Call: WRITE	Prompt: !,?5,"the speed of your system or the load on your system.",! Line Location: HDR2+14
Routine Call	DIR Line Location: EN+40 PAUSE+11
Routine Call	%ZIS Line Location: EN+62

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TOTPAT+18
^DPT(0	TOTPAT+13

Label References

Name	Line Occurrences
$$ENV	EN+18
$$PAUSE	EN+54
$$SIZEST	EST+27
$$TIMEST	EST+24
$$TOTPAT	EST+12
CLEAR	EN+44
ENQ	EN+14, EN+18, EN+30, EN+54, EN+57
EST	EN+51
ESTQ	EST+15
HDR1	EN+47
HDR2	EST+18
PAUSEQ	PAUSE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AVG100	TIMEST~, TIMEST+13, TIMEST+14
COUNT	TOTPAT+9~, TOTPAT+10, TOTPAT+13, TOTPAT+18*, TOTPAT+20, TIMEST~, TIMEST+13, TIMEST+14, SIZEST~, SIZEST+10 , SIZEST+11
DFN	TOTPAT+9~, TOTPAT+10, TOTPAT+18
DIR	EN+36~, PAUSE+7~
DIR("A"	EN+38*
DIR("B"	EN+39*
DIR(0	EN+37, PAUSE+10
DIRUT	EN+41, PAUSE+7~, PAUSE+12
DUOUT	PAUSE+7~, PAUSE+12
DUZ	ENV+12
ESTIMATE	TOTPAT~, TOTPAT+13
HOURS	TIMEST+11~, TIMEST+15*, TIMEST+16, TIMEST+19
IVMARRAY	CLEAR~, CLEAR+13, CLEAR+15
IVMARRAY("HOST"	CLEAR+14*
IVMARRY1	EN~, EN+24, EN+27, EN+44, EN+51, EN+57, EST~
IVMARRY1("DIR"	EN+57
IVMARRY1("EXTRACT"	EN+30
IVMARRY1("LASTPAT"	EN+30
IVMARRY1("PROC"	EST+15, EST+20
IVMARRY1("PROJECT"	EN+50, EST+26
IVMCONST	EN~, EN+21, EN+51, EST~, EST+18, HDR2~, CLEAR+11~, CLEAR+13
IVMCONST("AVG100"	EST+24
IVMCONST("HOST"	CLEAR+14
IVMCONST("PERCNT"	EST+24, EST+27, HDR2+12
IVMCONST("SIZE"	EST+27
IVMOK	ENV+9~, ENV+10, ENV+12, ENV+14
IVMTOTAL	EST+9~, EST+12, EST+15, EST+20, EST+21, EST+24, EST+27
MINUTES	TIMEST+11~, TIMEST+17*, TIMEST+19
PERCN	TIMEST~, TIMEST+13, TIMEST+14, SIZEST~, SIZEST+10, SIZEST+11
QUIT	EN+9~, EN+11, EN+18, EN+30, EN+42, EN+54, EN+57, EN+64, ENQ+2
SECONDS	TIMEST+11~, TIMEST+14, TIMEST+15, TIMEST+16, TIMEST+17
SIZE	SIZEST~, SIZEST+10, SIZEST+11
SUCCESS	PAUSE+7~, PAUSE+8, PAUSE+14, PAUSEQ
X	EST+9~, EST+21, EST+22, EST+24, EST+25, EST+26, EST+27*, EST+28
X2	EST+9~, EST+21, EST+27
X3	EST+9~, EST+21, EST+27
Y	EN+41, PAUSE+7~
ZTDESC	EN+9~, EN+61*
ZTIO	EN+9~, EN+61*
ZTRTN	EN+9~, EN+61*
ZTSAVE	EN+9~
ZTSAVE("IVMARRY1("	EN+60*
ZTSAVE("IVMCONST("	EN+60*
>> ZTSK	EN+63, EN+64

Customize PDF page

Package: Income Verification Match

Routine: IVMBULK

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: