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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DG53467P

Package: Registration

Routine: DG53467P


Information

DG53467P ; ALB/SCK - POST INSTALLATION ROUTINE DG*5.3*467 ; 8/6/2002

Source Information

Source file <DG53467P.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 HOME^%ZIS  ($$PWD,CLOSE,OPEN)^%ZISH  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
VA Fileman 3 EN1^DIP  $$GET1^DIQ  ^DIR  
Income Verification Match 1 $$EN^IVMCMD  
MailMan 1 ^XMD  
Registration 1 PID^VADPT6  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for means test cleanup
HDR ; Print Report header
CHECK() ; Check for an existing XTMP global from a previous search. If one is found,
; continue processing means test records for deletion.
REPORT ; Print report of found MT records stored in the XTMP global
QUE ; Que off a task to search for means test records with a missing status
BUILD ; Build list of means test records and store in temporary global
CLNUP ; Process XTMP global means test records for deletion
PRINT ; Print a report of the means test records found without a status
QUERY ; Report query
DISPLY(NODE0,MTIEN) ; Display the means test record being processed for deletion
NOTIFY ; Send notification message when clenup session is completed

External References

Name Field # of Occurrence
HOME^%ZIS QUE+16, PRINT+7
$$PWD^%ZISH NOTIFY+5
CLOSE^%ZISH NOTIFY+15
OPEN^%ZISH NOTIFY+7
^%ZTLOAD QUE+12
EN1^DIP QUERY+12
$$GET1^DIQ DISPLY+5, DISPLY+9, DISPLY+11, DISPLY+12, DISPLY+13, DISPLY+15, REPORT+9, REPORT+12, REPORT+13, REPORT+14
^DIR CHECK+12, CHECK+24, CLNUP+7, CLNUP+11, CLNUP+19, CLNUP+29
$$EN^IVMCMD CLNUP+24
PID^VADPT6 DISPLY+4, REPORT+8
$$FMADD^XLFDT BUILD+3
$$FMTE^XLFDT CHECK+9, CHECK+21, DISPLY+7, REPORT+11, HDR+4, NOTIFY+18
$$NOW^XLFDT HDR+4, NOTIFY+4, NOTIFY+18
^XMD NOTIFY+28
EN^XUTMDEVQ PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> You must have the Means Test Delete key to run this cleanup!",$CHAR(7)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?3,"Cleanup complete, the ^XTMP global has been removed."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!?3,"This will task off the search for Means Test records with a missing means"
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?3,"test status. Re-running this entry point after completion of the search"
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !?3,"will initiate the cleanup process of these means test records."
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !!?5,"Search canceled!"
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !!?5,"Search queued! [ ",ZTSK," ]"
  • Line Location: QUE+15
Function Call: WRITE
  • Prompt: !!?3,">> The means test search for records with a missing status is still in"
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !?3,">> progress. Please check back later."
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !?3,">> The cleanup search was completed on "_$$FMTE^XLFDT($P(^XTMP("DG467",0),U,2))
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !?3," There were no means test records found."
  • Line Location: CHECK+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLNUP+13
Function Call: WRITE
  • Prompt: !?5,">>> DELETED"
  • Line Location: CLNUP+25
Function Call: WRITE
  • Prompt: !?5,"The deletion call was unable to remove record ",NDX
  • Line Location: CLNUP+27
Function Call: WRITE
  • Prompt: !!,"Report requires 132-col printer."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLY+3
Function Call: WRITE
  • Prompt: !?3,"Name : ",$$GET1^DIQ(2,DFN,.01)
  • Line Location: DISPLY+5
Function Call: WRITE
  • Prompt: !?3,"SSN : ",VA("PID")
  • Line Location: DISPLY+6
Function Call: WRITE
  • Prompt: !?3,"Date of Test : ",$$FMTE^XLFDT($P(NODE0,U,1))
  • Line Location: DISPLY+7
Function Call: WRITE
  • Prompt: !?3,"Status : "
  • Line Location: DISPLY+8
Function Call: WRITE
  • Prompt: $$GET1^DIQ(408.32,$P(NODE0,U,3),.01)
  • Line Location: DISPLY+9
Function Call: WRITE
  • Prompt: !?3,"Completed By : "
  • Line Location: DISPLY+10
Function Call: WRITE
  • Prompt: $$GET1^DIQ(2,$P(NODE0,U,6),.01)
  • Line Location: DISPLY+11
Function Call: WRITE
  • Prompt: !?3,"Prim Inc Test for Yr : ",$$GET1^DIQ(408.31,NDX,2)
  • Line Location: DISPLY+12
Function Call: WRITE
  • Prompt: !?3,"Test Determined Status : ",$$GET1^DIQ(408.32,+$$GET1^DIQ(408.31,NDX,2.03),.01)
  • Line Location: DISPLY+13
Function Call: WRITE
  • Prompt: !?3,"Source of Income Test : "
  • Line Location: DISPLY+14
Function Call: WRITE
  • Prompt: $$GET1^DIQ(408.34,$P(NODE0,U,23),.01)
  • Line Location: DISPLY+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLY+16
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(2,DFN,.01)
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: ?30,VA("BID")
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: ?40,$$FMTE^XLFDT($P(NODE,U,1))
  • Line Location: REPORT+11
Function Call: WRITE
  • Prompt: ?56,$$GET1^DIQ(2,$P(NODE,U,6),.01)
  • Line Location: REPORT+12
Function Call: WRITE
  • Prompt: ?85,$$GET1^DIQ(408.31,NDX,2)
  • Line Location: REPORT+13
Function Call: WRITE
  • Prompt: ?98,$$GET1^DIQ(408.32,+$$GET1^DIQ(408.31,NDX,2.03),.01)
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: "Report of Means Test Records with Missing Status not yet Processed"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Page ",PAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?85,"Principle"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?30,"Last",?40,"Date",?85,"Inc. Test",?98,"Test-Determined"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Name",?30,"Four",?40,"of Test",?56,"Completed by",?85,"for Year",?98,"Status"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: NDX_" | (0) "_$G(^TMP("DG467",$J,NDX,0)),!
  • Line Location: NOTIFY+12
Function Call: WRITE
  • Prompt: NDX_" | (2) "_$G(^TMP("DG467",$J,NDX,2)),!
  • Line Location: NOTIFY+13
Function Call: WRITE
  • Prompt: NDX_" | (PRIM) "_$G(^TMP("DG467",$J,NDX,"PRIM")),!
  • Line Location: NOTIFY+14
Routine Call
  • %ZIS
  • Line Location:
    • QUE+16
    • PRINT+7
Routine Call
  • DIR
  • Line Location:
    • CHECK+12
    • CHECK+24
    • CLNUP+7
    • CLNUP+11
    • CLNUP+19
    • CLNUP+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGMT(408.31 - [#408.31] Classic Fileman Calls,  GET1^DIQ
^DG(408.32 - [#408.32] GET1^DIQ
^DG(408.34 - [#408.34] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] BUILD+6, BUILD+7, CLNUP+21, CLNUP+22, CLNUP+23
^TMP("DG467" CLNUP+3!, CLNUP+21*, CLNUP+22*, CLNUP+23*, CLNUP+30!, NOTIFY+11, NOTIFY+12, NOTIFY+13, NOTIFY+14
^XTMP("DG467" EN+5, EN+8, BUILD+3*, BUILD+10*, BUILD+11*, CHECK+4, CHECK+8, CHECK+9, CHECK+13!, CHECK+15
, CHECK+17, CLNUP+16, CLNUP+17, CLNUP+31!, CLNUP+35, CLNUP+36!, REPORT+6, REPORT+7
^XUSEC("DG MTDELETE" EN+2

Label References

Name Line Occurrences
$$CHECK EN+6
CLNUP EN+7
DISPLY CLNUP+17
HDR REPORT+4
NOTIFY CLNUP+33
PRINT CLNUP+8
QUE EN+10, CHECK+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BY QUERY+1~, QUERY+6*
CNT CHECK+2~, CHECK+16*, CHECK+17*, CHECK+20
DDASH HDR+1~, HDR+9*
DFN DISPLY+1~, DISPLY+4*, DISPLY+5, REPORT+1~, REPORT+8*, REPORT+9
DHD QUERY+1~, QUERY+10*
DIC QUERY+1~, QUERY+4*
DIR CHECK+2~, CHECK+12!, CHECK+24!, CLNUP+1~, CLNUP+7!, CLNUP+11!, CLNUP+19!, CLNUP+29!, PRINT+1~
DIR("?" CHECK+23*
DIR("A" CHECK+11*, CHECK+20*, CHECK+21*, CHECK+22*, CLNUP+5*, CLNUP+6*, CLNUP+10*, CLNUP+18*, CLNUP+28*
DIR("B" CHECK+11*, CHECK+19*, CLNUP+5*, CLNUP+18*
DIR(0 CHECK+11*, CHECK+19*, CLNUP+5*, CLNUP+10*, CLNUP+18*, CLNUP+28*
DIRUT CHECK+25, CLNUP+1~, CLNUP+16, CLNUP+20
DT BUILD+3
DUZ EN+2, NOTIFY+25
FLDS QUERY+1~, QUERY+5*
FNAME NOTIFY+1~, NOTIFY+4*, NOTIFY+7, NOTIFY+21
FR QUERY+1~, QUERY+7*
IO NOTIFY+1~, NOTIFY+9
IOF QUE+3, CLNUP+13, DISPLY+3
IOM HDR+9
L QUERY+1~, QUERY+3*
LASTDT CHECK+2~, CHECK+15*, CHECK+21
MSG NOTIFY+1~
MSG( NOTIFY+20*
MSG(1 NOTIFY+17*
MSG(2 NOTIFY+18*
MSG(3 NOTIFY+19*
MSG(4 NOTIFY+21*
MSG(5 NOTIFY+22*
MTIEN BUILD+1~, BUILD+5*, BUILD+6*, BUILD+7, BUILD+10, DISPLY~
MTNDE BUILD+1~, BUILD+7*, BUILD+8, BUILD+9, BUILD+10
NDX CHECK+2~, CHECK+16*, CHECK+17*, CLNUP+1~, CLNUP+15*, CLNUP+16*, CLNUP+17, CLNUP+21, CLNUP+22, CLNUP+23
, CLNUP+24, CLNUP+27, CLNUP+30, CLNUP+31, DISPLY+12, DISPLY+13, REPORT+1~, REPORT+5*, REPORT+6*, REPORT+7
, REPORT+13, REPORT+14, NOTIFY+1~, NOTIFY+10*, NOTIFY+11*, NOTIFY+12, NOTIFY+13, NOTIFY+14
NODE REPORT+1~, REPORT+7*, REPORT+8, REPORT+11, REPORT+12
NODE0 DISPLY~, DISPLY+4, DISPLY+7, DISPLY+9, DISPLY+11, DISPLY+15
PAGE REPORT+1~, REPORT+3*, HDR+5
PATH NOTIFY+1~, NOTIFY+5*, NOTIFY+7, NOTIFY+22
PG QUERY+1~, QUERY+9*
POP NOTIFY+1~, NOTIFY+8
RSLT CHECK+2~, CLNUP+1~, CLNUP+24*, CLNUP+25
RTN CHECK+2~
TO QUERY+1~, QUERY+8*
U BUILD+8, BUILD+9, CHECK+9, CHECK+15, DISPLY+4, DISPLY+7, DISPLY+9, DISPLY+11, DISPLY+15, REPORT+8
, REPORT+11, REPORT+12
VA DISPLY+1~, REPORT+1~
VA("BID" REPORT+10
VA("PID" DISPLY+6
X NOTIFY+1~, NOTIFY+4*
XMDUZ NOTIFY+1~, NOTIFY+26*
XMSUB NOTIFY+1~, NOTIFY+24*
XMTEXT NOTIFY+1~, NOTIFY+27*
XMY NOTIFY+1~
XMY( NOTIFY+25*
Y CHECK+2~, CHECK+13, CHECK+25, CLNUP+1~, CLNUP+8, CLNUP+20
ZNODE BUILD+1~
ZTDESC QUE+1~, QUE+9*
ZTDTH QUE+1~, QUE+10*
ZTIO QUE+1~, QUE+11*
ZTQUEUED QUE+1~
ZTRTN QUE+1~, QUE+8*
ZTSAVE QUE+1~, PRINT+1~, PRINT+5
ZTSAVE("DUZ" PRINT+4*
ZTSK QUE+1~, QUE+14, QUE+15
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All