AGELUPNM ;IHS/SET/GTH - INITIAL PROCESS OF NM MEDICAID FILE ;
;;7.1;PATIENT REGISTRATION;**2**;JAN 31, 2007
;
;This is the start point, that's called from option
;AG TM ELI UPLOAD, on the Eligibility menu (AG TM ELIGIBILITY).
;
TXT ;
;;This process takes the State of New Mexico's data file for Medicaid
;;and reformats it into single eligibility records for distribution
;;to specific sites in the State.
;;
;;This process only exists at Albuquerque. For now....
;;
;;This processing is specific to the format of Medicaid data provided
;;by the State of New Mexico.
;;###
;
START ;start
NEW AG,AGFILE,AGPATH,AGCNT,DIR
KILL ^TMP($J,"AGELUPNM")
D HELP^XBHELP("TXT","AGELUPNM")
Q:'$$DIR^XBDIR("E")
D OPEN
Q:$D(DIRUT)
;I POP W !,"Could not open host file",! Q
I POP W !,"Could not open host file",! H 3 Q ;AG*7.1*2
D CLOSE^%ZISH("AGNMFILE")
D READIN,WRITEOUT
KILL ^TMP($J,"AGELUPNM")
U IO(0)
W !!,"D O N E",!!
I $$DIR^XBDIR("E","Press RETURN")
Q
OPEN ;open host file
NEW AGLIST
KILL AGFILE,DIR
S AGPATH=$P($G(^AGFAC(DUZ(2),2)),U,2)
I AGPATH="" S AGPATH=$S($P(^%ZOSF("OS"),U,1)["UNIX":"/usr/spool/uucppublic/",1:$P($G(^AUTTSITE(1,1)),U,1))
S AGPATH=$$DIR^XBDIR("F","Enter directory containing file with NM Medicaid info",AGPATH,"","","",1)
Q:$D(DIRUT)
I '$$LIST^%ZISH(AGPATH,"IHS"_"*",.AGLIST) D I $G(AGFILE) S AGFILE=AGLIST(AGFILE)
. NEW AG
. S AG=0
. F S AG=$O(AGLIST(AG)) Q:'AG D I $D(DIRUT) KILL AGFILE Q
.. W !,$J(AG,3),". ",AGLIST(AG)
.. S:(('(AG#5))!('$D(AGLIST(AG+1)))) AGFILE=$$DIR^XBDIR("NO^1:"_AG,"Process which file (or '^' to specify file)")
.. Q:$G(AGFILE)
..Q
.Q
I '$L($G(AGFILE)) S AGFILE=$$DIR^XBDIR("F","Enter name of file","","","","",2)
Q:$D(DIRUT)
D OPEN^%ZISH("AGNMFILE",AGPATH,AGFILE,"R")
Q
READIN ;read through file
U IO(0)
W !,"Processing NM Medicaid file..."
D WAIT^DICD
W !
S AGCNT=0
F %=1:1:5 S AGCNT(%)=0
D OPEN^%ZISH("AGNMFILE",AGPATH,AGFILE,"R")
U IO
KILL P
F R X:DTIME Q:$$STATUS^%ZISH D
. I '(AGCNT#1000) U IO(0) W $J(AGCNT,8) U IO
. S AGCNT=AGCNT+1,AGCNT(+X)=AGCNT(+X)+1
. Q:'("12"[$E(X))
. ;remove leading "0"s
. F S P=$F(X,"^0") Q:'P S X=$E(X,1,P-2)_$E(X,P,$L(X))
. ;remove trailing blanks
. F S P=$F(X," ^") Q:'P S X=$E(X,1,P-3)_$E(X,P-1,$L(X))
. ;remove insignifant times
. F S P=$F(X," 0:00:00") Q:'P S X=$E(X,1,P-9)_$E(X,P,$L(X))
. ;remove open-ended end dates
. F S P=$F(X,"12/31/9999") Q:'P S X=$E(X,1,P-11)_$E(X,P,$L(X))
. ;Keep all eligibility records (2) at the same node.
. I $E(X)="2" S X=$P(X,U,1,5) I $D(^TMP($J,"AGELUPNM",$P(X,U,2),2)) S ^(2)=^(2)_U_$P(X,U,3,5) Q
. S ^TMP($J,"AGELUPNM",$P(X,U,2),$P(X,U,1))=$P(X,U,3,999)
.Q
KILL P
D CLOSE^%ZISH("AGNMFILE")
U IO(0)
W !!,AGCNT," records found in file:",!
F %=1:1:5 W !?5,%,". : ",AGCNT(%)
Q
WRITEOUT ;
NEW AGSYSID
S AGFILE="cmsd"_$$LTR^AGELUP3(3)_"."_$E(DT,2,5)
U IO(0)
W !,"Writing to file ",AGPATH,AGFILE,"...."
D WAIT^DICD
W !
D OPEN^%ZISH("AGNMFILE",AGPATH,AGFILE,"W")
Q:POP
U IO
S (AGCNT,AGSYSID)=0
F S AGSYSID=$O(^TMP($J,"AGELUPNM",AGSYSID)) Q:'AGSYSID D
. S AGCNT=AGCNT+1
. I '(AGCNT#1000) U IO(0) W AGCNT," of ",AGCNT(1)," / " U IO
. Q:'$D(^TMP($J,"AGELUPNM",AGSYSID,2))
. Q:'$D(^TMP($J,"AGELUPNM",AGSYSID,1))
. S X=^TMP($J,"AGELUPNM",AGSYSID,1)_"^^^^^^^"_^(2)
. W X,!
.Q
D CLOSE^%ZISH("AGNMFILE")
Q
AGELUPNM ;IHS/SET/GTH - INITIAL PROCESS OF NM MEDICAID FILE ;
+1 ;;7.1;PATIENT REGISTRATION;**2**;JAN 31, 2007
+2 ;
+3 ;This is the start point, that's called from option
+4 ;AG TM ELI UPLOAD, on the Eligibility menu (AG TM ELIGIBILITY).
+5 ;
TXT ;
+1 ;;This process takes the State of New Mexico's data file for Medicaid
+2 ;;and reformats it into single eligibility records for distribution
+3 ;;to specific sites in the State.
+4 ;;
+5 ;;This process only exists at Albuquerque. For now....
+6 ;;
+7 ;;This processing is specific to the format of Medicaid data provided
+8 ;;by the State of New Mexico.
+9 ;;###
+10 ;
START ;start
+1 NEW AG,AGFILE,AGPATH,AGCNT,DIR
+2 KILL ^TMP($JOB,"AGELUPNM")
+3 DO HELP^XBHELP("TXT","AGELUPNM")
+4 IF '$$DIR^XBDIR("E")
QUIT
+5 DO OPEN
+6 IF $DATA(DIRUT)
QUIT
+7 ;I POP W !,"Could not open host file",! Q
+8 ;AG*7.1*2
IF POP
WRITE !,"Could not open host file",!
HANG 3
QUIT
+9 DO CLOSE^%ZISH("AGNMFILE")
+10 DO READIN
DO WRITEOUT
+11 KILL ^TMP($JOB,"AGELUPNM")
+12 USE IO(0)
+13 WRITE !!,"D O N E",!!
+14 IF $$DIR^XBDIR("E","Press RETURN")
+15 QUIT
OPEN ;open host file
+1 NEW AGLIST
+2 KILL AGFILE,DIR
+3 SET AGPATH=$PIECE($GET(^AGFAC(DUZ(2),2)),U,2)
+4 IF AGPATH=""
SET AGPATH=$SELECT($PIECE(^%ZOSF("OS"),U,1)["UNIX":"/usr/spool/uucppublic/",1:$PIECE($GET(^AUTTSITE(1,1)),U,1))
+5 SET AGPATH=$$DIR^XBDIR("F","Enter directory containing file with NM Medicaid info",AGPATH,"","","",1)
+6 IF $DATA(DIRUT)
QUIT
+7 IF '$$LIST^%ZISH(AGPATH,"IHS"_"*",.AGLIST)
Begin DoDot:1
+8 NEW AG
+9 SET AG=0
+10 FOR
SET AG=$ORDER(AGLIST(AG))
IF 'AG
QUIT
Begin DoDot:2
+11 WRITE !,$JUSTIFY(AG,3),". ",AGLIST(AG)
+12 IF (('(AG#5))!('$DATA(AGLIST(AG+1))))
SET AGFILE=$$DIR^XBDIR("NO^1:"_AG,"Process which file (or '^' to specify file)")
+13 IF $GET(AGFILE)
QUIT
+14 QUIT
End DoDot:2
IF $DATA(DIRUT)
KILL AGFILE
QUIT
+15 QUIT
End DoDot:1
IF $GET(AGFILE)
SET AGFILE=AGLIST(AGFILE)
+16 IF '$LENGTH($GET(AGFILE))
SET AGFILE=$$DIR^XBDIR("F","Enter name of file","","","","",2)
+17 IF $DATA(DIRUT)
QUIT
+18 DO OPEN^%ZISH("AGNMFILE",AGPATH,AGFILE,"R")
+19 QUIT
READIN ;read through file
+1 USE IO(0)
+2 WRITE !,"Processing NM Medicaid file..."
+3 DO WAIT^DICD
+4 WRITE !
+5 SET AGCNT=0
+6 FOR %=1:1:5
SET AGCNT(%)=0
+7 DO OPEN^%ZISH("AGNMFILE",AGPATH,AGFILE,"R")
+8 USE IO
+9 KILL P
+10 FOR
READ X:DTIME
IF $$STATUS^%ZISH
QUIT
Begin DoDot:1
+11 IF '(AGCNT#1000)
USE IO(0)
WRITE $JUSTIFY(AGCNT,8)
USE IO
+12 SET AGCNT=AGCNT+1
SET AGCNT(+X)=AGCNT(+X)+1
+13 IF '("12"[$EXTRACT(X))
QUIT
+14 ;remove leading "0"s
+15 FOR
SET P=$FIND(X,"^0")
IF 'P
QUIT
SET X=$EXTRACT(X,1,P-2)_$EXTRACT(X,P,$LENGTH(X))
+16 ;remove trailing blanks
+17 FOR
SET P=$FIND(X," ^")
IF 'P
QUIT
SET X=$EXTRACT(X,1,P-3)_$EXTRACT(X,P-1,$LENGTH(X))
+18 ;remove insignifant times
+19 FOR
SET P=$FIND(X," 0:00:00")
IF 'P
QUIT
SET X=$EXTRACT(X,1,P-9)_$EXTRACT(X,P,$LENGTH(X))
+20 ;remove open-ended end dates
+21 FOR
SET P=$FIND(X,"12/31/9999")
IF 'P
QUIT
SET X=$EXTRACT(X,1,P-11)_$EXTRACT(X,P,$LENGTH(X))
+22 ;Keep all eligibility records (2) at the same node.
+23 IF $EXTRACT(X)="2"
SET X=$PIECE(X,U,1,5)
IF $DATA(^TMP($JOB,"AGELUPNM",$PIECE(X,U,2),2))
SET ^(2)=^(2)_U_$PIECE(X,U,3,5)
QUIT
+24 SET ^TMP($JOB,"AGELUPNM",$PIECE(X,U,2),$PIECE(X,U,1))=$PIECE(X,U,3,999)
+25 QUIT
End DoDot:1
+26 KILL P
+27 DO CLOSE^%ZISH("AGNMFILE")
+28 USE IO(0)
+29 WRITE !!,AGCNT," records found in file:",!
+30 FOR %=1:1:5
WRITE !?5,%,". : ",AGCNT(%)
+31 QUIT
WRITEOUT ;
+1 NEW AGSYSID
+2 SET AGFILE="cmsd"_$$LTR^AGELUP3(3)_"."_$EXTRACT(DT,2,5)
+3 USE IO(0)
+4 WRITE !,"Writing to file ",AGPATH,AGFILE,"...."
+5 DO WAIT^DICD
+6 WRITE !
+7 DO OPEN^%ZISH("AGNMFILE",AGPATH,AGFILE,"W")
+8 IF POP
QUIT
+9 USE IO
+10 SET (AGCNT,AGSYSID)=0
+11 FOR
SET AGSYSID=$ORDER(^TMP($JOB,"AGELUPNM",AGSYSID))
IF 'AGSYSID
QUIT
Begin DoDot:1
+12 SET AGCNT=AGCNT+1
+13 IF '(AGCNT#1000)
USE IO(0)
WRITE AGCNT," of ",AGCNT(1)," / "
USE IO
+14 IF '$DATA(^TMP($JOB,"AGELUPNM",AGSYSID,2))
QUIT
+15 IF '$DATA(^TMP($JOB,"AGELUPNM",AGSYSID,1))
QUIT
+16 SET X=^TMP($JOB,"AGELUPNM",AGSYSID,1)_"^^^^^^^"_^(2)
+17 WRITE X,!
+18 QUIT
End DoDot:1
+19 DO CLOSE^%ZISH("AGNMFILE")
+20 QUIT
