Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPSEU2

DGPSEU2.m

Go to the documentation of this file. 
  1. DGPSEU2 ;ALB/ERC - REPORTS FOR PSEUDO SSN ; 1/9/06 7:46am
  1.  ;;5.3;Registration;**653**;Aug 13, 1993;Build 2
  1.  ;
  1.  ;creates a report of all dependents with pseudo SSNs
  1.  ;can call for one Pseudo SSN Reason or can call for all reasons
  1.  ;sorted by reason
  1.  ;
  1. TSK2 ;
  1.  N DGQ,DGQUIT,DGREAS,DGXREAS,DGTXT
  1.  N ZTRTN,ZTDESC,ZTSK,ZTIO,ZTDTH,POP,IO,IOBS,IOF,IOHG,IOM,ION,IOPAR
  1.  N IOS,IOSL,IOST,IOT,IOUPAR,IOXY,%ZIS,ZTSAVE
  1.  K ^TMP("DGEVC",$J)
  1.  S DGQUIT=0
  1.  D QUESREAS^DGPSEUDO Q:DGQUIT
  1.  S %ZIS="Q"
  1.  D ^%ZIS I $G(POP) D ^%ZISC,HOME^%ZIS W !,"Job Terminated!" Q
  1.  I $D(IO("Q")) D  Q
  1.  . S ZTRTN="RPT2^DGPSEU2"
  1.  . S ZTDESC="DEPENDENTS WITH PSEUDO SOCIAL SECURITY NUMBERS"
  1.  . S (ZTSAVE("DGXREAS"),ZTSAVE("DGXVET"))=""
  1.  . D ^%ZTLOAD
  1.  . S DGTXT=$S($G(ZTSK):"Task: "_ZTSK_" Queued.",1:"Error: Process not queued!")
  1.  . W !,DGTXT
  1. RPT2 ;
  1.  N DGC,DGPAGE,DGQ
  1.  S (DGQUIT,DGPAGE)=0
  1.  S DGC=0
  1.  D LOOP2
  1.  D HDR2
  1.  I $G(DGC)'>0 W !!?25,"****NO RECORDS TO REPORT****" W ! D PAUSE^DGPSEUDO Q
  1.  D REP2(DGXREAS)
  1.  D ^%ZISC,HOME^%ZIS
  1.  K ^TMP("DGEVC",$J)
  1.  Q
  1. LOOP2 ;
  1.  I $E(IOST,1,2)["C-" U IO(0) W !!,"Scanning file...."
  1.  U IO
  1.  N DGCT,DGIEN13,DGX
  1.  K ^TMP("DGEVC",$J)
  1.  S DGX=999999999
  1.  S DGCT=0
  1.  S ^TMP("DGEVC",$J,"COUNT")=0
  1.  S ^TMP("DGEVC",$J,"COUNT","REFUSED TO PROVIDE")=0
  1.  S ^TMP("DGEVC",$J,"COUNT","SSN UNKNOWN/FOLLOW-UP REQUIRED")=0
  1.  S ^TMP("DGEVC",$J,"COUNT","NO SSN ASSIGNED")=0
  1.  S ^TMP("DGEVC",$J,"COUNT","NULL")=0
  1.  F  S DGX=$O(^DGPR(408.13,"SSN",DGX)) Q:DGX=""  D
  1.  . I DGX'["P" Q
  1.  . S DGIEN13=0
  1.  . F  S DGIEN13=$O(^DGPR(408.13,"SSN",DGX,DGIEN13)) Q:'DGIEN13  D
  1.  . . Q:'$D(^DGPR(408.13,DGIEN13,0))
  1.  . . D PSEU2
  1.  Q
  1. PSEU2 ;
  1.  N DGARR,DGCT,DGDFN,DGDOB,DGERR,DGIEN12,DGNAM,DGPAT,DGPSSN,DGSSN
  1.  I $D(^TMP("DGEVC",$J,DGIEN13)) Q
  1.  D GETS^DIQ(408.13,DGIEN13_",",".01;.09;.1","EI","DGARR","DGERR")
  1.  I $D(DGERR) K DGERR Q
  1.  I $G(DGARR(408.13,DGIEN13_",",.09,"I"))'["P" K DGARR Q
  1.  S DGDEPNAM=$G(DGARR(408.13,DGIEN13_",",.01,"I"))
  1.  S DGDEPSSN=$G(DGARR(408.13,DGIEN13_",",.09,"I"))
  1.  S DGREASON=$G(DGARR(408.13,DGIEN13_",",.1,"E"))
  1.  I $G(DGREASON)']"" S DGREASON="NULL"
  1.  I DGXREAS'="ALL",DGXREAS'=DGREASON K DGARR Q
  1.  S DGIEN12=0
  1.  S DGIEN12=$O(^DGPR(408.12,"C",DGIEN13_";DGPR(408.13,",DGIEN12))
  1.  I $G(DGIEN12)']"" K DGARR Q
  1.  I '$D(^DGPR(408.12,DGIEN12,0)) K DGARR Q
  1.  D GETS^DIQ(408.12,DGIEN12_",",".01;.02","EI","DGARR","DGERR")
  1.  I $D(DGERR) K DGARR,DGERR Q
  1.  S DGDFN=$G(DGARR(408.12,DGIEN12_",",.01,"I"))
  1.  I '$D(^DPT(DGDFN)),($G(^DPT(DGDFN,0))']"") K DGARR Q
  1.  S DGREL=$G(DGARR(408.12,DGIEN12_",",.02,"E"))
  1.  S DGREL=$$GETREL(DGREL)
  1.  D GETS^DIQ(2,DGDFN_",",".01;.09","EI","DGARR","DGERR")
  1.  I $D(DGERR) K DGARR,DGERR Q
  1.  S DGPATNAM=$G(DGARR(2,DGDFN_",",.01,"E"))
  1.  S DGPATSSN=$G(DGARR(2,DGDFN_",",.09,"I"))
  1.  S DGC=DGC+1
  1.  S ^TMP("DGEVC",$J,DGPATNAM,DGDFN,DGDEPNAM,DGIEN13)=DGPATSSN_"^"_DGREL_"^"_DGDEPSSN_"^"_DGREASON
  1.  S ^TMP("DGEVC",$J,"COUNT")=DGC
  1.  S ^TMP("DGEVC",$J,"COUNT",DGREASON)=$G(^TMP("DGEVC",$J,"COUNT",DGREASON))+1
  1.  K DGARR,DGDFN,DGERR,DGDEPNAM,DGDEPSSN,DGPATNAM,DGPATSSN,DGREASON,DGREL
  1.  Q
  1. HDR2 ;
  1.  N DGDATE,DGL,DGLINE,DGT,Y ;display veteran, non-vet or both
  1.  I $E(IOST,1,2)["C-" W @IOF
  1.  S DGPAGE=DGPAGE+1
  1.  W !?((IOM-46)\2),"Pseudo SSN Report for Means Test Dependents",?70,"Page:"_DGPAGE
  1.  S DGT="Report shows "_$S(DGXREAS="NULL":"<NONE ENTERED>",1:DGXREAS)
  1.  S DGL=$L(DGT)
  1.  W !?((IOM-DGL)\2),DGT
  1.  S Y=DT X ^DD("DD") S DGDATE=Y
  1.  W !?62,"Date: "_$G(DGDATE)
  1.  W !!,"PATIENT",?27,"PATIENT SSN"
  1.  W !?5,"DEPENDENT",?38,"RELATIONSHIP",?52,"DEP. PSSN",?64,"PSSN REASON"
  1.  N DGZ
  1.  W !
  1.  F DGZ=1:1:IOM W "-"
  1.  Q
  1. REP2(DGXREAS) ;
  1.  N DG0,DGCT,DGDNAM,DGIEN,DGN,DGPNAM,DGRR
  1.  S (DGDNAM,DGN,DGDFN,DGPNAM)=""
  1.  S DGCT=0
  1.  F  S DGPNAM=$O(^TMP("DGEVC",$J,DGPNAM)) Q:DGPNAM']""!($G(DGQ))  D
  1.  . I DGPNAM="COUNT",($O(^TMP("DGEVC",$J,DGPNAM,""))'>0) Q
  1.  . F  S DGDFN=$O(^TMP("DGEVC",$J,DGPNAM,DGDFN)) Q:DGDFN'>0!($G(DGQ))  D
  1.  . . N DG0
  1.  . . I $E(IOST,1,2)["C-",($Y>(IOSL-4)) D PAUSE^DGPSEUDO Q:$G(DGQ)
  1.  . . I $Y>(IOSL-4) D
  1.  . . . W @IOF
  1.  . . . D HDR2
  1.  . . S DG0=^DPT(DGDFN,0)
  1.  . . S DGSSN=$P(DG0,U,9)
  1.  . . W !!,$E($G(DGPNAM),1,25),?27,$G(DGSSN)
  1.  . . S (DGDNAM,DGIEN)=""
  1.  . . F  S DGDNAM=$O(^TMP("DGEVC",$J,DGPNAM,DGDFN,DGDNAM)) Q:DGDNAM']""!($G(DGQ))  D
  1.  . . . F  S DGIEN=$O(^TMP("DGEVC",$J,DGPNAM,DGDFN,DGDNAM,DGIEN)) Q:DGIEN'>0!($G(DGQ))  D
  1.  . . . . S DGN=^TMP("DGEVC",$J,DGPNAM,DGDFN,DGDNAM,DGIEN)
  1.  . . . . S DGRR=$P(DGN,U,4)
  1.  . . . . S DGRR=$S(DGRR["REF":"REF TO PROVIDE",DGRR["UNKN":"SSN UNK-F/U REQ",DGRR["NULL":"<NONE ENTERED>",1:DGRR)
  1.  . . . . I $E(IOST,1,2)["C-",($Y>(IOSL-4)) D PAUSE^DGPSEUDO Q:$G(DGQ)
  1.  . . . . I $Y>(IOSL-4) D
  1.  . . . . . W @IOF
  1.  . . . . . D HDR2
  1.  . . . . . W !,$E($G(DGPNAM),1,25),?27,$G(DGSSN)
  1.  . . . . W !?5,$G(DGDNAM),?38,$E($P(DGN,U,2),1,12),?52,$P(DGN,U,3),?64,$G(DGRR)
  1.  . . . . S DGCT=DGCT+1
  1.  I DGCT=DGC D
  1.  . I $E(IOST,1,2)["C-",($Y>(IOSL-6)) D PAUSE^DGPSEUDO Q:$G(DGQ)
  1.  . I $Y>(IOSL-6) D
  1.  . . W @IOF
  1.  . . D HDR2
  1.  . W !!?5,"Total number of dependents with Pseudo SSNs for this report: "_DGC
  1.  . I DGXREAS="ALL" D
  1.  . . W !?31,"Dependents who REFUSED TO PROVIDE: "_^TMP("DGEVC",$J,"COUNT","REFUSED TO PROVIDE")
  1.  . . W !?29,"Dependents who have NO SSN ASSIGNED: "_^TMP("DGEVC",$J,"COUNT","NO SSN ASSIGNED")
  1.  . . W !?33,"Dependents who have SSN UNKNOWN: "_^TMP("DGEVC",$J,"COUNT","SSN UNKNOWN/FOLLOW-UP REQUIRED")
  1.  . . W !?22,"Dependents who have no PSSN Reason entered: "_^TMP("DGEVC",$J,"COUNT","NULL")
  1.  W !
  1.  I $E(IOST,1,2)["C-",('$G(DGQ)) D PAUSE^DGPSEUDO
  1.  D ^%ZISC,HOME^%ZIS
  1.  Q
  1. GETREL(DGREL) ;some relationships will need to be abbreviated to fit the 12 
  1.  ; char spacing limit
  1.  I DGREL']"" Q DGREL
  1.  I $P(DGREL,"-")="GREAT" S $P(DGREL,"-")="GR"
  1.  Q DGREL