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: IVMBULK

Package: Income Verification Match

Routine: IVMBULK


Information

IVMBULK ;ALB/KCL - IVM/ENROLLMENT Extract ; 18-AUG-1997

Source Information

Source file <IVMBULK.m>

Call Graph

Call Graph

Call Graph Total: 6

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
PAUSE() ; --
; Description: End-of-Page, Press return to continue or "^" to exit.
EST(IVMARRY1,IVMCONST) ; --
; Description: Calculate extract size/time estimates.
PAUSEQ
HDR1 ; --
; Description: Write extract user info.
ENV() ; --
; Description: This function performs an environment check for the enrollment initial data extract job.
CLEAR(IVMARRAY) ;
TOTPAT(ESTIMATE) ; --
; Description: This function counts the number of records in the PATIENT file.
ENQ ;
; if job is not queued, unlock IVM EXTRACT MANAGEMENT file
EN(IVMARRY1,IVMCONST) ; --
; Description: Entry point responsible for queuing off the enrollment extract job.
ESTQ
HDR2(IVMCONST) ; --
; Description: Write extract estimate disclaimer
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.

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
  • %ZIS
  • Line Location:
    • EN+62
Routine Call
  • DIR
  • Line Location:
    • EN+40
    • PAUSE+11

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All