Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IVM(301.6 - [#301.6] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call