- ABMUMISS ; IHS/SD/SDR - 3PB/UFMS Cashiering Options
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;
- ; New routine - abm*2.6
- ; Check for bills that were missed in session
- UFMSCK ;
- W !!,"Will now check for any ""missing"" claims/bills..."
- ;
- ;ABMFD contains open date/time of session; start there and
- ;go thru approved bills looking for this user
- ;
- S ABMPAR=0
- S ABMPFLG=0
- F S ABMPAR=$O(^BAR(90052.05,ABMPAR)) Q:'ABMPAR D Q:ABMPFLG=1
- .I $D(^BAR(90052.05,ABMPAR,DUZ(2))) D
- ..Q:$P($G(^BAR(90052.05,ABMPAR,DUZ(2),0)),U,3)'=ABMPAR
- ..S ABMPFLG=1 ;set flag to stop looking; this is our parent
- S ABMSITE=0
- F S ABMSITE=$O(^BAR(90052.05,ABMPAR,ABMSITE)) Q:'ABMSITE D
- .I $D(^BAR(90052.05,ABMPAR,ABMSITE)) D
- ..Q:$P($G(^BAR(90052.05,ABMPAR,ABMSITE,0)),U,3)'=ABMPAR
- ..I ABMPAR=ABMSITE S ABMPARNT=ABMPAR
- ..S ABMP("SATS",ABMSITE)=""
- ;
- S ABMFFLG=0
- S ABMHOLD=DUZ(2)
- S DUZ(2)=0
- F S DUZ(2)=$O(ABMP("SATS",DUZ(2))) Q:'DUZ(2) D
- .Q:$P($G(^ABMDPARM(DUZ(2),1,4)),U,15)'=1
- .K ABMLOC
- .S ABMASDT=(ABMFD-.000001)
- .F S ABMASDT=$O(^ABMDBILL(DUZ(2),"AP",ABMASDT)) Q:'ABMASDT D
- ..S ABMP("BDFN")=0
- ..F S ABMP("BDFN")=$O(^ABMDBILL(DUZ(2),"AP",ABMASDT,ABMP("BDFN"))) Q:'ABMP("BDFN") D
- ...I $P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),1)),U,4)'=DUZ Q
- ...I $P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U,7)=901 Q ;don't add if POS claim
- ...D ADDBENTR^ABMUCUTL("ABILL",ABMP("BDFN"))
- ...I ($P(Y,U,3)'="") D
- ....W !?5,"Bill number: ",$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U)," added to session"
- ....S ABMFFLG=1
- I ABMFFLG=0 W !,"No ""missing"" bills found"
- S DUZ(2)=ABMHOLD
- W !!
- K ABMPARNT,ABMP("SATS")
- Q
- ABMUMISS ; IHS/SD/SDR - 3PB/UFMS Cashiering Options
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;
- +3 ; New routine - abm*2.6
- +4 ; Check for bills that were missed in session
- UFMSCK ;
- +1 WRITE !!,"Will now check for any ""missing"" claims/bills..."
- +2 ;
- +3 ;ABMFD contains open date/time of session; start there and
- +4 ;go thru approved bills looking for this user
- +5 ;
- +6 SET ABMPAR=0
- +7 SET ABMPFLG=0
- +8 FOR
- SET ABMPAR=$ORDER(^BAR(90052.05,ABMPAR))
- IF 'ABMPAR
- QUIT
- Begin DoDot:1
- +9 IF $DATA(^BAR(90052.05,ABMPAR,DUZ(2)))
- Begin DoDot:2
- +10 IF $PIECE($GET(^BAR(90052.05,ABMPAR,DUZ(2),0)),U,3)'=ABMPAR
- QUIT
- +11 ;set flag to stop looking; this is our parent
- SET ABMPFLG=1
- End DoDot:2
- End DoDot:1
- IF ABMPFLG=1
- QUIT
- +12 SET ABMSITE=0
- +13 FOR
- SET ABMSITE=$ORDER(^BAR(90052.05,ABMPAR,ABMSITE))
- IF 'ABMSITE
- QUIT
- Begin DoDot:1
- +14 IF $DATA(^BAR(90052.05,ABMPAR,ABMSITE))
- Begin DoDot:2
- +15 IF $PIECE($GET(^BAR(90052.05,ABMPAR,ABMSITE,0)),U,3)'=ABMPAR
- QUIT
- +16 IF ABMPAR=ABMSITE
- SET ABMPARNT=ABMPAR
- +17 SET ABMP("SATS",ABMSITE)=""
- End DoDot:2
- End DoDot:1
- +18 ;
- +19 SET ABMFFLG=0
- +20 SET ABMHOLD=DUZ(2)
- +21 SET DUZ(2)=0
- +22 FOR
- SET DUZ(2)=$ORDER(ABMP("SATS",DUZ(2)))
- IF 'DUZ(2)
- QUIT
- Begin DoDot:1
- +23 IF $PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,15)'=1
- QUIT
- +24 KILL ABMLOC
- +25 SET ABMASDT=(ABMFD-.000001)
- +26 FOR
- SET ABMASDT=$ORDER(^ABMDBILL(DUZ(2),"AP",ABMASDT))
- IF 'ABMASDT
- QUIT
- Begin DoDot:2
- +27 SET ABMP("BDFN")=0
- +28 FOR
- SET ABMP("BDFN")=$ORDER(^ABMDBILL(DUZ(2),"AP",ABMASDT,ABMP("BDFN")))
- IF 'ABMP("BDFN")
- QUIT
- Begin DoDot:3
- +29 IF $PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),1)),U,4)'=DUZ
- QUIT
- +30 ;don't add if POS claim
- IF $PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U,7)=901
- QUIT
- +31 DO ADDBENTR^ABMUCUTL("ABILL",ABMP("BDFN"))
- +32 IF ($PIECE(Y,U,3)'="")
- Begin DoDot:4
- +33 WRITE !?5,"Bill number: ",$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U)," added to session"
- +34 SET ABMFFLG=1
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +35 IF ABMFFLG=0
- WRITE !,"No ""missing"" bills found"
- +36 SET DUZ(2)=ABMHOLD
- +37 WRITE !!
- +38 KILL ABMPARNT,ABMP("SATS")
- +39 QUIT
