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

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for means test cleanup
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
CHECK() ; Check for an existing XTMP global from a previous search. If one is found,
; continue processing means test records for deletion.
CLNUP ; Process XTMP global means test records for deletion
PRINT ; Print a report of the means test records found without a status
DISPLY(NODE0,MTIEN) ; Display the means test record being processed for deletion
REPORT ; Print report of found MT records stored in the XTMP global
HDR ; Print Report header
NOTIFY ; Send notification message when clenup session is completed
QUERY ; Report query

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call