AGEVINU ; cmi/flag/maw - AGEV Update Insurance Information ;
;;7.1;PATIENT REGISTRATION;;AUG 25,2005
;
MCD(AGEVPAT) ;EP - file medicaid data
S (AGEVMCDE,AGEVMCME)=""
I AGEVIID="" S AGEVERCD="NOMCDN" X AGEVERR Q
I AGEVPED="" S AGEVERCD="NOMCDED" X AGEVERR Q
S AGEVMCD=0
F S AGEVMCD=$O(^AUPNMCD("B",AGEVPAT,AGEVMCD)) Q:AGEVMCD="" D
. I $P(^AUPNMCD(AGEVMCD,0),U,3)=AGEVIID S AGEVMCDE=AGEVMCD Q
.Q
I AGEVMCDE="" D Q
. S DIC="^AUPNMCD(",DIC(0)="L",DLAYGO=9000005,X=AGEVPAT
. S DIC("DR")=".02////"_AGEVICN_";.03///"_AGEVIID_";.04///"_AGEVMST
. S DIC("DR")=DIC("DR")_";.05///"_AGEVNOI
. KILL DD,DO
. D FILE^DICN
. I Y<0 S AGEVERCD="NOMCD" X AGEVERR Q
. S AGEVMCDE=+Y
. S DIC="^AUPNMCD("_AGEVMCDE_",11,",DIC("P")=$P(^DD(9000004,1101,0),U,2)
. S DIC(0)="L",DA(1)=AGEVMCDE,X=AGEVPED,DIC("DR")=".02///"_AGEVPEXD
. S DIC("DR")=DIC("DR")_";.03///"_AGEVCT
. D ^DIC
. I Y<0 S AGEVERCD="NOMCDM" X AGEVERR Q
.Q
S AGEVMCM=0
F S AGEVMCM=$O(^AUPNMCD(AGEVMCDE,11,AGEVMCM)) Q:AGEVMCM="" D
. S AGEVDATA=$G(^AUPNMCD(AGEVMCDE,11,AGEVMCM,0))
. I AGEVMCM=AGEVPED,$P(AGEVDATA,U,3)=AGEVCT S AGEVMCME=AGEVMCM Q
.Q
Q:'$D(^AUPNMCR(AGEVMCDE,0))
I AGEVMCME="" D Q
. S DIC="^AUPNMCD("_AGEVMCDE_",11,",DIC("P")=$P(^DD(9000004,1101,0),U,2)
. S DIC(0)="L",DA(1)=AGEVMCDE,X=AGEVPED,DIC("DR")=".02///"_AGEVPEXD
. S DIC("DR")=DIC("DR")_";.03///"_AGEVCT
. D ^DIC
. I Y<0 S AGEVERCD="NOMCDM" X AGEVERR Q
.Q
S DIE="^AUPNMCD("_AGEVMCDE_",11,",DA(1)=AGEVMCDE,DA=AGEVMCME
S DR=".02///"_AGEVPEXD_";.03///"_AGEVCT
D ^DIE
I $D(Y) S AGEVERCD="NOUPMCDM" X AGEVERR Q
Q
;
MCR(AGEVPAT) ;EP - file medicare data
S AGEVMCRE=""
I AGEVIID="" S AGEVERCD="NOMCRN" X AGEVERR Q
I AGEVPED="" S AGEVERCD="NOMCRED" X AGEVERR Q
I '$D(^AUPNMCR(AGEVPAT,0)) D Q
. S DIC="^AUPNMCR(",DLAYGO=9000003,X=AGEVPAT,DINUM=X,DIC(0)="L"
. S DIC("DR")=".02////"_AGEVICN_";.03///"_AGEVIID_";.04///"_AGEVSUF
. KILL DD,DO
. D FILE^DICN
. K DINUM
. I Y<0 S AGEVERCD="NOMCR" X AGEVERR Q
. S DIC="^AUPNMCR("_AGEVPAT_",11,",DIC("P")=$P(^DD(9000003,1101,0),U,2)
. S DIC(0)="L",DA(1)=AGEVPAT,X=AGEVPED
. S DIC("DR")=".02///"_AGEVPEXD_";.03///"_AGEVCT
. D ^DIC
. I Y<0 S AGEVERCD="NOMCRM" X AGEVERR Q
.Q
S DIE="^AUPNMCR(",DA=AGEVPAT,DR=".03///"_AGEVIID_";.04///"_AGEVGN
S DR=DR_";2101///"_AGEVNOI
D ^DIE
I $D(Y) S AGEVERCD="NOUPMCR" X AGEVERR Q
S AGEVMCR=0
F S AGEVMCR=$O(^AUPNMCR(AGEVPAT,11,AGEVMCR)) Q:AGEVMCR="" D
. S AGEVDATA=$G(^AUPNMCR(AGEVPAT,11,AGEVMCR,0))
. I $P(AGEVDATA,U)=AGEVPED,$P(AGEVDATA,U,3)=AGEVCT S AGEVMCRE=AGEVMCR Q
.Q
Q:'$D(^AUPNMCR(AGEVPAT,0))
I AGEVMCRE="" D Q
. S DIC="^AUPNMCR("_AGEVPAT_",11,",DIC("P")=$P(^DD(9000003,1101,0),U,2)
. S DIC(0)="L",DA(1)=AGEVPAT,X=AGEVPED
. S DIC("DR")=".02///"_AGEVPEXD_";.03///"_AGEVCT
. D ^DIC
. I Y<0 S AGEVERCD="NOMCRM" X AGEVERR Q
.Q
S DIE="^AUPNMCR("_DFN_",11,",DA(1)=AGEVPAT,DA=AGEVMCRE
S DR=".02///"_AGEVPEXD
D ^DIE
I $D(Y) S AGEVERCD="NOUPMCRM" X AGEVERR Q
Q
;
PI(AGEVPAT) ;EP - file private insurance data
S AGEVPH=""
I AGEVICN="" S AGEVERCD="NOICN" X AGEVERR Q
Q:AGEVIID=""
S AGEVMA=0
F S AGEVMA=$O(^AUPN3PPH("D",AGEVIID,AGEVMA)) Q:AGEVMA="" D
. I $P(^AUPN3PPH(AGEVMA,0),U,3)=AGEVICNI S AGEVPH=AGEVMA Q
.Q
I AGEVPH="" D Q:$D(AGEVERCD)
. Q:AGEVNOI=""
. S DIC="^AUPN3PPH(",X=AGEVNOI,DLAYGO=9000003.1,DIC(0)="L"
. S DIC("DR")=".03////"_AGEVICN_";.04///"_AGEVIID
. S DIC("DR")=DIC("DR")_";.09///"_AGEVSTR
. S DIC("DR")=DIC("DR")_";.11///"_AGEVCTY_";.12///"_AGEVST
. S DIC("DR")=DIC("DR")_";.13///"_AGEVZP_";.17///"_AGEVPED
. S DIC("DR")=DIC("DR")_";.18///"_AGEVPEXD
. KILL DD,D0,DO
. D FILE^DICN
. I Y<0 S AGEVERCD="NO3PPH" X AGEVERR Q
. S AGEVPH=+Y
.Q
Q:AGEVNOI=""
I $D(^AUPNPRVT(AGEVPAT,0)) D UPI^AGEVINU Q
S DIC="^AUPNPRVT(",DLAYGO=9000006,DIC(0)="L",X=AGEVPAT,DINUM=X
KILL DD,DO
D FILE^DICN
KILL DINUM
I Y<0 S AGEVERCD="NOPIE" X AGEVERR Q
S DIC="^AUPNPRVT("_AGEVPAT_",11,"
S DIC("P")=$P(^DD(9000006,1101,0),U,2),DIC(0)="L",DA(1)=AGEVPAT
S X="`"_AGEVICN,DIC("DR")=".02///"_AGEVIID_";.04///"_AGEVNOI
S DIC("DR")=DIC("DR")_";.06///"_AGEVPED_";.07///"_AGEVPEXD
S DIC("DR")=DIC("DR")_";.08////"_AGEVPH
D ^DIC
I Y<0 S AGEVERCD="NOPIEM" X AGEVERR Q
Q
;
UPI ;EP -- update private insurance
S AGEVPIMM=""
S AGEVPIM=0
F S AGEVPIM=$O(^AUPNPRVT(AGEVPAT,11,AGEVPIM)) Q:AGEVPIM="" D
. S AGEVDATA=$G(^AUPNPRVT(AGEVPAT,11,AGEVPIM,0))
. I $P(AGEVDATA,U)=AGEVICNI,$P(AGEVDATA,U,6)=AGEVPED,$P(AGEVDATA,U,8)=AGEVPH S AGEVPIMM=AGEVPIM Q
.Q
I AGEVPIMM="" D Q
. S DIC="^AUPNPRVT("_AGEVPAT_",11,"
. S DIC("P")=$P(^DD(9000006,1101,0),U,2),DIC(0)="L",DA(1)=AGEVPAT
. S X="`"_AGEVICN,DIC("DR")=".02///"_AGEVIID_";.04///"_AGEVNOI
. S DIC("DR")=DIC("DR")_";.06///"_AGEVPED_";.07///"_AGEVPEXD
. S DIC("DR")=DIC("DR")_";.08///"_AGEVPH
. D ^DIC
. I Y<0 S AGEVERCD="NOPIEM" X AGEVERR Q
.Q
S DIE="^AUPNPRVT("_AGEVPAT_",11,"
S DIC("P")=$P(^DD(9000006,1101,0),U,2),DA=AGEVPIMM,DA(1)=AGEVPAT
S DR=".02///"_AGEVIID_";.04///"_AGEVNOI
S DR=DR_";.07///"_AGEVPEXD
D ^DIE
I $D(Y) S AGEVERCD="NOUPIEM" X AGEVERR Q
Q
;
EOJ ;-- kill variables
D EN^XBVK("AGEV") ;should I use this instead
K AGEVICN,AGEVGN,AGEVGNM,AGEVPED,AGEVPEXD,AGEVNOI,AGEVIDOB,AGEVSTR
K AGEVCTY,AGEVST,AGEVZP,AGEVISX,AGEVIID,AGEVIT,AGEVMCD,AGEVMCDE,AGEVMCM
K AGEVMCME,AGEVMCR,AGEVMCRE,AGEVMA,AGEVPH,AGEVICNI
Q
AGEVINU ; cmi/flag/maw - AGEV Update Insurance Information ;
+1 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
+2 ;
MCD(AGEVPAT) ;EP - file medicaid data
+1 SET (AGEVMCDE,AGEVMCME)=""
+2 IF AGEVIID=""
SET AGEVERCD="NOMCDN"
XECUTE AGEVERR
QUIT
+3 IF AGEVPED=""
SET AGEVERCD="NOMCDED"
XECUTE AGEVERR
QUIT
+4 SET AGEVMCD=0
+5 FOR
SET AGEVMCD=$ORDER(^AUPNMCD("B",AGEVPAT,AGEVMCD))
IF AGEVMCD=""
QUIT
Begin DoDot:1
+6 IF $PIECE(^AUPNMCD(AGEVMCD,0),U,3)=AGEVIID
SET AGEVMCDE=AGEVMCD
QUIT
+7 QUIT
End DoDot:1
+8 IF AGEVMCDE=""
Begin DoDot:1
+9 SET DIC="^AUPNMCD("
SET DIC(0)="L"
SET DLAYGO=9000005
SET X=AGEVPAT
+10 SET DIC("DR")=".02////"_AGEVICN_";.03///"_AGEVIID_";.04///"_AGEVMST
+11 SET DIC("DR")=DIC("DR")_";.05///"_AGEVNOI
+12 KILL DD,DO
+13 DO FILE^DICN
+14 IF Y<0
SET AGEVERCD="NOMCD"
XECUTE AGEVERR
QUIT
+15 SET AGEVMCDE=+Y
+16 SET DIC="^AUPNMCD("_AGEVMCDE_",11,"
SET DIC("P")=$PIECE(^DD(9000004,1101,0),U,2)
+17 SET DIC(0)="L"
SET DA(1)=AGEVMCDE
SET X=AGEVPED
SET DIC("DR")=".02///"_AGEVPEXD
+18 SET DIC("DR")=DIC("DR")_";.03///"_AGEVCT
+19 DO ^DIC
+20 IF Y<0
SET AGEVERCD="NOMCDM"
XECUTE AGEVERR
QUIT
+21 QUIT
End DoDot:1
QUIT
+22 SET AGEVMCM=0
+23 FOR
SET AGEVMCM=$ORDER(^AUPNMCD(AGEVMCDE,11,AGEVMCM))
IF AGEVMCM=""
QUIT
Begin DoDot:1
+24 SET AGEVDATA=$GET(^AUPNMCD(AGEVMCDE,11,AGEVMCM,0))
+25 IF AGEVMCM=AGEVPED
IF $PIECE(AGEVDATA,U,3)=AGEVCT
SET AGEVMCME=AGEVMCM
QUIT
+26 QUIT
End DoDot:1
+27 IF '$DATA(^AUPNMCR(AGEVMCDE,0))
QUIT
+28 IF AGEVMCME=""
Begin DoDot:1
+29 SET DIC="^AUPNMCD("_AGEVMCDE_",11,"
SET DIC("P")=$PIECE(^DD(9000004,1101,0),U,2)
+30 SET DIC(0)="L"
SET DA(1)=AGEVMCDE
SET X=AGEVPED
SET DIC("DR")=".02///"_AGEVPEXD
+31 SET DIC("DR")=DIC("DR")_";.03///"_AGEVCT
+32 DO ^DIC
+33 IF Y<0
SET AGEVERCD="NOMCDM"
XECUTE AGEVERR
QUIT
+34 QUIT
End DoDot:1
QUIT
+35 SET DIE="^AUPNMCD("_AGEVMCDE_",11,"
SET DA(1)=AGEVMCDE
SET DA=AGEVMCME
+36 SET DR=".02///"_AGEVPEXD_";.03///"_AGEVCT
+37 DO ^DIE
+38 IF $DATA(Y)
SET AGEVERCD="NOUPMCDM"
XECUTE AGEVERR
QUIT
+39 QUIT
+40 ;
MCR(AGEVPAT) ;EP - file medicare data
+1 SET AGEVMCRE=""
+2 IF AGEVIID=""
SET AGEVERCD="NOMCRN"
XECUTE AGEVERR
QUIT
+3 IF AGEVPED=""
SET AGEVERCD="NOMCRED"
XECUTE AGEVERR
QUIT
+4 IF '$DATA(^AUPNMCR(AGEVPAT,0))
Begin DoDot:1
+5 SET DIC="^AUPNMCR("
SET DLAYGO=9000003
SET X=AGEVPAT
SET DINUM=X
SET DIC(0)="L"
+6 SET DIC("DR")=".02////"_AGEVICN_";.03///"_AGEVIID_";.04///"_AGEVSUF
+7 KILL DD,DO
+8 DO FILE^DICN
+9 KILL DINUM
+10 IF Y<0
SET AGEVERCD="NOMCR"
XECUTE AGEVERR
QUIT
+11 SET DIC="^AUPNMCR("_AGEVPAT_",11,"
SET DIC("P")=$PIECE(^DD(9000003,1101,0),U,2)
+12 SET DIC(0)="L"
SET DA(1)=AGEVPAT
SET X=AGEVPED
+13 SET DIC("DR")=".02///"_AGEVPEXD_";.03///"_AGEVCT
+14 DO ^DIC
+15 IF Y<0
SET AGEVERCD="NOMCRM"
XECUTE AGEVERR
QUIT
+16 QUIT
End DoDot:1
QUIT
+17 SET DIE="^AUPNMCR("
SET DA=AGEVPAT
SET DR=".03///"_AGEVIID_";.04///"_AGEVGN
+18 SET DR=DR_";2101///"_AGEVNOI
+19 DO ^DIE
+20 IF $DATA(Y)
SET AGEVERCD="NOUPMCR"
XECUTE AGEVERR
QUIT
+21 SET AGEVMCR=0
+22 FOR
SET AGEVMCR=$ORDER(^AUPNMCR(AGEVPAT,11,AGEVMCR))
IF AGEVMCR=""
QUIT
Begin DoDot:1
+23 SET AGEVDATA=$GET(^AUPNMCR(AGEVPAT,11,AGEVMCR,0))
+24 IF $PIECE(AGEVDATA,U)=AGEVPED
IF $PIECE(AGEVDATA,U,3)=AGEVCT
SET AGEVMCRE=AGEVMCR
QUIT
+25 QUIT
End DoDot:1
+26 IF '$DATA(^AUPNMCR(AGEVPAT,0))
QUIT
+27 IF AGEVMCRE=""
Begin DoDot:1
+28 SET DIC="^AUPNMCR("_AGEVPAT_",11,"
SET DIC("P")=$PIECE(^DD(9000003,1101,0),U,2)
+29 SET DIC(0)="L"
SET DA(1)=AGEVPAT
SET X=AGEVPED
+30 SET DIC("DR")=".02///"_AGEVPEXD_";.03///"_AGEVCT
+31 DO ^DIC
+32 IF Y<0
SET AGEVERCD="NOMCRM"
XECUTE AGEVERR
QUIT
+33 QUIT
End DoDot:1
QUIT
+34 SET DIE="^AUPNMCR("_DFN_",11,"
SET DA(1)=AGEVPAT
SET DA=AGEVMCRE
+35 SET DR=".02///"_AGEVPEXD
+36 DO ^DIE
+37 IF $DATA(Y)
SET AGEVERCD="NOUPMCRM"
XECUTE AGEVERR
QUIT
+38 QUIT
+39 ;
PI(AGEVPAT) ;EP - file private insurance data
+1 SET AGEVPH=""
+2 IF AGEVICN=""
SET AGEVERCD="NOICN"
XECUTE AGEVERR
QUIT
+3 IF AGEVIID=""
QUIT
+4 SET AGEVMA=0
+5 FOR
SET AGEVMA=$ORDER(^AUPN3PPH("D",AGEVIID,AGEVMA))
IF AGEVMA=""
QUIT
Begin DoDot:1
+6 IF $PIECE(^AUPN3PPH(AGEVMA,0),U,3)=AGEVICNI
SET AGEVPH=AGEVMA
QUIT
+7 QUIT
End DoDot:1
+8 IF AGEVPH=""
Begin DoDot:1
+9 IF AGEVNOI=""
QUIT
+10 SET DIC="^AUPN3PPH("
SET X=AGEVNOI
SET DLAYGO=9000003.1
SET DIC(0)="L"
+11 SET DIC("DR")=".03////"_AGEVICN_";.04///"_AGEVIID
+12 SET DIC("DR")=DIC("DR")_";.09///"_AGEVSTR
+13 SET DIC("DR")=DIC("DR")_";.11///"_AGEVCTY_";.12///"_AGEVST
+14 SET DIC("DR")=DIC("DR")_";.13///"_AGEVZP_";.17///"_AGEVPED
+15 SET DIC("DR")=DIC("DR")_";.18///"_AGEVPEXD
+16 KILL DD,D0,DO
+17 DO FILE^DICN
+18 IF Y<0
SET AGEVERCD="NO3PPH"
XECUTE AGEVERR
QUIT
+19 SET AGEVPH=+Y
+20 QUIT
End DoDot:1
IF $DATA(AGEVERCD)
QUIT
+21 IF AGEVNOI=""
QUIT
+22 IF $DATA(^AUPNPRVT(AGEVPAT,0))
DO UPI^AGEVINU
QUIT
+23 SET DIC="^AUPNPRVT("
SET DLAYGO=9000006
SET DIC(0)="L"
SET X=AGEVPAT
SET DINUM=X
+24 KILL DD,DO
+25 DO FILE^DICN
+26 KILL DINUM
+27 IF Y<0
SET AGEVERCD="NOPIE"
XECUTE AGEVERR
QUIT
+28 SET DIC="^AUPNPRVT("_AGEVPAT_",11,"
+29 SET DIC("P")=$PIECE(^DD(9000006,1101,0),U,2)
SET DIC(0)="L"
SET DA(1)=AGEVPAT
+30 SET X="`"_AGEVICN
SET DIC("DR")=".02///"_AGEVIID_";.04///"_AGEVNOI
+31 SET DIC("DR")=DIC("DR")_";.06///"_AGEVPED_";.07///"_AGEVPEXD
+32 SET DIC("DR")=DIC("DR")_";.08////"_AGEVPH
+33 DO ^DIC
+34 IF Y<0
SET AGEVERCD="NOPIEM"
XECUTE AGEVERR
QUIT
+35 QUIT
+36 ;
UPI ;EP -- update private insurance
+1 SET AGEVPIMM=""
+2 SET AGEVPIM=0
+3 FOR
SET AGEVPIM=$ORDER(^AUPNPRVT(AGEVPAT,11,AGEVPIM))
IF AGEVPIM=""
QUIT
Begin DoDot:1
+4 SET AGEVDATA=$GET(^AUPNPRVT(AGEVPAT,11,AGEVPIM,0))
+5 IF $PIECE(AGEVDATA,U)=AGEVICNI
IF $PIECE(AGEVDATA,U,6)=AGEVPED
IF $PIECE(AGEVDATA,U,8)=AGEVPH
SET AGEVPIMM=AGEVPIM
QUIT
+6 QUIT
End DoDot:1
+7 IF AGEVPIMM=""
Begin DoDot:1
+8 SET DIC="^AUPNPRVT("_AGEVPAT_",11,"
+9 SET DIC("P")=$PIECE(^DD(9000006,1101,0),U,2)
SET DIC(0)="L"
SET DA(1)=AGEVPAT
+10 SET X="`"_AGEVICN
SET DIC("DR")=".02///"_AGEVIID_";.04///"_AGEVNOI
+11 SET DIC("DR")=DIC("DR")_";.06///"_AGEVPED_";.07///"_AGEVPEXD
+12 SET DIC("DR")=DIC("DR")_";.08///"_AGEVPH
+13 DO ^DIC
+14 IF Y<0
SET AGEVERCD="NOPIEM"
XECUTE AGEVERR
QUIT
+15 QUIT
End DoDot:1
QUIT
+16 SET DIE="^AUPNPRVT("_AGEVPAT_",11,"
+17 SET DIC("P")=$PIECE(^DD(9000006,1101,0),U,2)
SET DA=AGEVPIMM
SET DA(1)=AGEVPAT
+18 SET DR=".02///"_AGEVIID_";.04///"_AGEVNOI
+19 SET DR=DR_";.07///"_AGEVPEXD
+20 DO ^DIE
+21 IF $DATA(Y)
SET AGEVERCD="NOUPIEM"
XECUTE AGEVERR
QUIT
+22 QUIT
+23 ;
EOJ ;-- kill variables
+1 ;should I use this instead
DO EN^XBVK("AGEV")
+2 KILL AGEVICN,AGEVGN,AGEVGNM,AGEVPED,AGEVPEXD,AGEVNOI,AGEVIDOB,AGEVSTR
+3 KILL AGEVCTY,AGEVST,AGEVZP,AGEVISX,AGEVIID,AGEVIT,AGEVMCD,AGEVMCDE,AGEVMCM
+4 KILL AGEVMCME,AGEVMCR,AGEVMCRE,AGEVMA,AGEVPH,AGEVICNI
+5 QUIT
