AMHRBV11 ; IHS/CMI/LAB - continuation of AMHV1 ;
;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
5 ;ENTRY POINT
I $Y>(IOSL-7) D HEAD^AMHRBV1 Q:$D(AMHQUIT)
D HD^AMHRBV1
S AMHMDFN=0 F S AMHMDFN=$O(^AUPNPRVT(DFN,11,AMHMDFN)) Q:AMHMDFN'=+AMHMDFN!($D(AMHQUIT)) I $D(^AUPNPRVT(DFN,11,AMHMDFN,0)) S AMHREC=^AUPNPRVT(DFN,11,AMHMDFN,0) D 52
Q:$D(AMHQUIT)
D VISIT^AMHRBV1
Q
52 ;
Q:$P(AMHREC,U,6)=""
Q:$P(AMHREC,U,6)>AMHED
I $P(AMHREC,U,7)]"",$P(AMHREC,U,7)<AMHSD Q
53 ;
I $Y>(IOSL-9) D HEAD^AMHRBV1 Q:$D(AMHQUIT)
W !?8,"INSURER: ",$P(^AUTNINS($P(AMHREC,U),0),U)
W !?8,"POLICY #: ",$P(AMHREC,U,2),?47,"COVERAGE TYPE: ",$P(AMHREC,U,3)
W !?8,"INSURED: ",$P(AMHREC,U,4),?47,"REL: ",$S($P(AMHREC,U,5)]"":$P(^AUTTRLSH($P(AMHREC,U,5),0),U),1:"")
W !?8,"ELIG BEG DATE: " S Y=$P(AMHREC,U,6) D:Y]"" DD^%DT W Y,?47,"ELIG END DATE: " S Y=$P(AMHREC,U,7) D:Y]"" DD^%DT W Y
W !
Q
4 ;ENTRY POINT
I $Y>(IOSL-7) D HEAD^AMHRBV1 Q:$D(AMHQUIT)
D HD^AMHRBV1
S AMHMDFN=0 F S AMHMDFN=$O(^AUPNMCD("B",DFN,AMHMDFN)) Q:AMHMDFN'=+AMHMDFN!($D(AMHQUIT)) S AMHREC=^AUPNMCD(AMHMDFN,0) D 42
Q:$D(AMHQUIT)
W !
D VISIT^AMHRBV1
Q
42 ;
Q:'$D(^AUPNMCD(AMHMDFN,11))
S (AMHNDFN,AMHGOT)=0 F S AMHNDFN=$O(^AUPNMCD(AMHMDFN,11,AMHNDFN)) Q:AMHNDFN'=+AMHNDFN!($D(AMHQUIT)) S AMHNREC=^AUPNMCD(AMHMDFN,11,AMHNDFN,0) D 43
Q
;
43 ;
Q:AMHNDFN>AMHED
I $P(AMHNREC,U,2)]"",$P(AMHNREC,U,2)<AMHSD Q
S AMHGOT=AMHGOT+1
G:AMHGOT>1 431
I $Y>(IOSL-9) D HEAD^AMHRBV1 Q:$D(AMHQUIT)
S AMHMN=$S($D(^AUPNMCD(AMHMDFN,21)):$P(^AUPNMCD(AMHMDFN,21),U),1:"")
S AMHMDOB=$S($D(^AUPNMCD(AMHMDFN,21)):$P(^AUPNMCD(AMHMDFN,21),U,2),1:"")
W !?8,"(MCD) ",AMHMN,?61,AMHMDOB
W !?8,"Medicaid #: ",$P(AMHREC,U,3),?50,"State: ",$S($P(AMHREC,U,4)="":"",1:$P(^DIC(5,$P(AMHREC,U,4),0),U))
W !?8,"Name/Insured: ",$P(AMHREC,U,5),?50,"Sex of Insured: ",$P(AMHREC,U,7)
431 I $Y>(IOSL-6) D HEAD^AMHRBV1 Q:$D(AMHQUIT)
W !?8,"Elig Beg Date: " S Y=$P(AMHNREC,U) D:Y]"" DD^%DT W ?20,Y,?35,"Coverage: ",$P(AMHNREC,U,3),?50,"Elig End Date: " S Y=$P(AMHNREC,U,2) D:Y]"" DD^%DT W Y
Q
6 ;ENTRY POINT
I $Y>(IOSL-9) D HEAD^AMHRBV1 Q:$D(AMHQUIT)
D HD^AMHRBV1
Q:$D(AMHQUIT)
W !
D VISIT^AMHRBV1
Q
AMHRBV11 ; IHS/CMI/LAB - continuation of AMHV1 ;
+1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
5 ;ENTRY POINT
+1 IF $Y>(IOSL-7)
DO HEAD^AMHRBV1
IF $DATA(AMHQUIT)
QUIT
+2 DO HD^AMHRBV1
+3 SET AMHMDFN=0
FOR
SET AMHMDFN=$ORDER(^AUPNPRVT(DFN,11,AMHMDFN))
IF AMHMDFN'=+AMHMDFN!($DATA(AMHQUIT))
QUIT
IF $DATA(^AUPNPRVT(DFN,11,AMHMDFN,0))
SET AMHREC=^AUPNPRVT(DFN,11,AMHMDFN,0)
DO 52
+4 IF $DATA(AMHQUIT)
QUIT
+5 DO VISIT^AMHRBV1
+6 QUIT
52 ;
+1 IF $PIECE(AMHREC,U,6)=""
QUIT
+2 IF $PIECE(AMHREC,U,6)>AMHED
QUIT
+3 IF $PIECE(AMHREC,U,7)]""
IF $PIECE(AMHREC,U,7)<AMHSD
QUIT
53 ;
+1 IF $Y>(IOSL-9)
DO HEAD^AMHRBV1
IF $DATA(AMHQUIT)
QUIT
+2 WRITE !?8,"INSURER: ",$PIECE(^AUTNINS($PIECE(AMHREC,U),0),U)
+3 WRITE !?8,"POLICY #: ",$PIECE(AMHREC,U,2),?47,"COVERAGE TYPE: ",$PIECE(AMHREC,U,3)
+4 WRITE !?8,"INSURED: ",$PIECE(AMHREC,U,4),?47,"REL: ",$SELECT($PIECE(AMHREC,U,5)]"":$PIECE(^AUTTRLSH($PIECE(AMHREC,U,5),0),U),1:"")
+5 WRITE !?8,"ELIG BEG DATE: "
SET Y=$PIECE(AMHREC,U,6)
IF Y]""
DO DD^%DT
WRITE Y,?47,"ELIG END DATE: "
SET Y=$PIECE(AMHREC,U,7)
IF Y]""
DO DD^%DT
WRITE Y
+6 WRITE !
+7 QUIT
4 ;ENTRY POINT
+1 IF $Y>(IOSL-7)
DO HEAD^AMHRBV1
IF $DATA(AMHQUIT)
QUIT
+2 DO HD^AMHRBV1
+3 SET AMHMDFN=0
FOR
SET AMHMDFN=$ORDER(^AUPNMCD("B",DFN,AMHMDFN))
IF AMHMDFN'=+AMHMDFN!($DATA(AMHQUIT))
QUIT
SET AMHREC=^AUPNMCD(AMHMDFN,0)
DO 42
+4 IF $DATA(AMHQUIT)
QUIT
+5 WRITE !
+6 DO VISIT^AMHRBV1
+7 QUIT
42 ;
+1 IF '$DATA(^AUPNMCD(AMHMDFN,11))
QUIT
+2 SET (AMHNDFN,AMHGOT)=0
FOR
SET AMHNDFN=$ORDER(^AUPNMCD(AMHMDFN,11,AMHNDFN))
IF AMHNDFN'=+AMHNDFN!($DATA(AMHQUIT))
QUIT
SET AMHNREC=^AUPNMCD(AMHMDFN,11,AMHNDFN,0)
DO 43
+3 QUIT
+4 ;
43 ;
+1 IF AMHNDFN>AMHED
QUIT
+2 IF $PIECE(AMHNREC,U,2)]""
IF $PIECE(AMHNREC,U,2)<AMHSD
QUIT
+3 SET AMHGOT=AMHGOT+1
+4 IF AMHGOT>1
GOTO 431
+5 IF $Y>(IOSL-9)
DO HEAD^AMHRBV1
IF $DATA(AMHQUIT)
QUIT
+6 SET AMHMN=$SELECT($DATA(^AUPNMCD(AMHMDFN,21)):$PIECE(^AUPNMCD(AMHMDFN,21),U),1:"")
+7 SET AMHMDOB=$SELECT($DATA(^AUPNMCD(AMHMDFN,21)):$PIECE(^AUPNMCD(AMHMDFN,21),U,2),1:"")
+8 WRITE !?8,"(MCD) ",AMHMN,?61,AMHMDOB
+9 WRITE !?8,"Medicaid #: ",$PIECE(AMHREC,U,3),?50,"State: ",$SELECT($PIECE(AMHREC,U,4)="":"",1:$PIECE(^DIC(5,$PIECE(AMHREC,U,4),0),U))
+10 WRITE !?8,"Name/Insured: ",$PIECE(AMHREC,U,5),?50,"Sex of Insured: ",$PIECE(AMHREC,U,7)
431 IF $Y>(IOSL-6)
DO HEAD^AMHRBV1
IF $DATA(AMHQUIT)
QUIT
+1 WRITE !?8,"Elig Beg Date: "
SET Y=$PIECE(AMHNREC,U)
IF Y]""
DO DD^%DT
WRITE ?20,Y,?35,"Coverage: ",$PIECE(AMHNREC,U,3),?50,"Elig End Date: "
SET Y=$PIECE(AMHNREC,U,2)
IF Y]""
DO DD^%DT
WRITE Y
+2 QUIT
6 ;ENTRY POINT
+1 IF $Y>(IOSL-9)
DO HEAD^AMHRBV1
IF $DATA(AMHQUIT)
QUIT
+2 DO HD^AMHRBV1
+3 IF $DATA(AMHQUIT)
QUIT
+4 WRITE !
+5 DO VISIT^AMHRBV1
+6 QUIT
