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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IVMUPUR

Package: Income Verification Match

Routine: IVMUPUR


Information

IVMUPUR ;ALB/CPM - PURGE IVM TRANSMISSION RECORDS ; 22-MAY-94

Source Information

Source file <IVMUPUR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  ^DIK  ^DIR  
Income Verification Match 1 $$DAT2^IVMUFNC4  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Income Verification Match 1 IVM SYS PURGE TRANSMISSIONS  

Entry Points

Name Comments DBIA/ICR reference
EN ; Queue job to purge IVM Transmissions from file #301.6
SEL ; - select an income year prior to that which current MT's are based
ENQ
NODUZ() ; Check for the existence of DUZ
; Input: NONE
; Output: 0 -- has DUZ, 1 -- no DUZ
OKAY() ; Okay to queue this job?
; Input: NONE
; Output: 0 -- No, not okay, 1 -- Yes, okay to continue
TASK ; Task off the job.
DQ ; Tasked entry point to purge transmission data.
; Input: IVMYR -- Income year for which to purge data

External References

Name Field # of Occurrence
^%DT SEL+2
NOW^%DTC DQ+4, DQ+18
^%ZTLOAD TASK+3
^DIK DQ+16
^DIR OKAY+6
$$DAT2^IVMUFNC4 DQ+28, DQ+29
^XMD DQ+39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to purge data from the IVM TRANSMISSIONS (#301.6) file."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Entries in this file will only be purged for corresponding case records"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"in the IVM PATIENT (#301.5) file which have been closed."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"You will purge transmission records for an entire income year's worth of cases."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"However, you must select an income year prior to the year which corresponds"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"to the current year's Means Tests. Since this year's Means Tests are based"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"on ",IVMPYR," income, you must select an income year prior to ",IVMPYR,".",!!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,"Invalid year entered. Enter a year prior to ",IVMPYR,".",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,"Your DUZ code must be defined in order to use this option.",!
  • Line Location: NODUZ+4
Function Call: WRITE
  • Prompt: !
  • Line Location: OKAY+6
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  • Line Location: TASK+3
Routine Call
  • DIR
  • Line Location:
    • OKAY+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IVM(301.6 - [#301.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IVM(301.5 - [#301.5] DQ+7, DQ+8, DQ+10
^IVM(301.6 - [#301.6] DQ+14

Label References

Name Line Occurrences
$$NODUZ EN+2
$$OKAY SEL+7
ENQ EN+2, SEL+2
SEL SEL+3
TASK SEL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+4, DQ+18
%DT SEL+2*!
%DT("A" SEL+1*
%DT(0 SEL+2*
DA DQ+16*, DQ+42!
DFN DQ+7*, DQ+8, DQ+42!
DIK DQ+16*, DQ+42!
DIR OKAY+3~
DIR("?" OKAY+5*, OKAY+6*
DIR("A" OKAY+4*
DIR(0 OKAY+4*
DIRUT OKAY+3~, OKAY+7
DT EN+4
DTOUT SEL+2, OKAY+3~, OKAY+7
DUOUT OKAY+3~, OKAY+7
DUZ NODUZ+4, DQ+24
IVMCNTP DQ+3*, DQ+15*, DQ+36, DQ+42!
IVMCNTT DQ+3*, DQ+9*, DQ+34, DQ+42!
IVMCNTV DQ+3*, DQ+11*, DQ+35, DQ+42!
IVMDA DQ+8*, DQ+10, DQ+14, DQ+42!
IVMEND DQ+18*, DQ+29, DQ+42!
IVMPYR EN+4*, EN+13, SEL+3, ENQ!
IVMSTART DQ+4*, DQ+28, DQ+42!
IVMTR DQ+14*, DQ+16, DQ+42!
IVMTXT DQ+42!
IVMTXT(1 DQ+26*
IVMTXT(10 DQ+35*
IVMTXT(11 DQ+36*
IVMTXT(2 DQ+27*
IVMTXT(3 DQ+28*
IVMTXT(4 DQ+29*
IVMTXT(5 DQ+30*
IVMTXT(6 DQ+31*
IVMTXT(7 DQ+32*
IVMTXT(8 DQ+33*
IVMTXT(9 DQ+34*
IVMYR SEL+4*, ENQ!, DQ+7, DQ+8, DQ+32, DQ+42!
XMDUZ DQ+22*, DQ+43!
XMSUB DQ+21*, DQ+43!
XMTEXT DQ+23*, DQ+43!
XMY DQ+43!
XMY( DQ+24*
Y SEL+2, SEL+3, SEL+4, NODUZ+3~, NODUZ+4*, NODUZ+5, OKAY+3~, OKAY+7
>> ZTDESC TASK+2*
>> ZTIO TASK+1*
>> ZTQUEUED DQ+41
>> ZTREQ DQ+41*
>> ZTRTN TASK+1*
>> ZTSAVE("IVMYR" TASK+1*
ZTSK TASK+3, TASK+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All