ABMREQUE ; IHS/SD/SDR - Requeue bills in UFMS session ;
;;2.6;IHS 3P BILLING SYSTEM;**4,11**;NOV 12, 2009;Build 133
CR8SESS ;EP - create new session in file
;location
K DIC,DIE,X,Y,DA
S DIC="^ABMUCASH("
S DIC(0)="AMNEQ"
D ^DIC
I Y<0 Q
S ABMLOC=+Y
;
;user
K DIC,DIE,X,Y,DA
S DA(1)=ABMLOC
S DIC="^ABMUCASH(DA(1),10,"
S DIC(0)="AEQMN"
S DIC("P")=$P(^DD(9002274.45,".02",0),U,2)
D ^DIC
I Y<0 Q
S ABMUSER=+Y
;
K ABMO,ABMR,ABM,ABMTOT
S ABMFD=0
S ABMSDT=0
F S ABMSDT=$O(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSDT)) Q:+ABMSDT=0 D Q:ABMFD'=0
.I $P($G(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSDT,0)),U,4)="T" Q ;skip transmitted sessions
.S ABMST=$P($G(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSDT,0)),U,4)
.S ABMST=$S(ABMST="C":"CLOSED",ABMST="O":"OPEN",1:"")
.S ABMO(ABMSDT)=ABMST
;
I $D(ABMO) D Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
.W !!!,"SESSIONS FOUND FOR USER "_$P($G(^VA(200,ABMUSER,0)),U)_":"
.S ABMCNT=1
.S ABMSDT=0
.S ABMDIR=""
.F S ABMSDT=$O(ABMO(ABMSDT)) Q:'ABMSDT D
..S ABMR(ABMCNT)=ABMSDT
..S:(ABMDIR'="") ABMDIR=ABMDIR_";"_ABMCNT_":"_ABMSDT_" ("_$G(ABMO(ABMSDT))_")"
..S:(ABMDIR="") ABMDIR=ABMCNT_":"_ABMSDT_" ("_$G(ABMO(ABMSDT))_")"
..S ABMCNT=+$G(ABMCNT)+1
.K DIR,DIE,DIC,X,Y,DA
.S DIR(0)="SO^"_ABMDIR_";"_(ABMCNT)_":NEW SESSION"
.S DIR("A")="Select session to use"
.D ^DIR K DIR
.Q:$D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)
.I Y(0)="NEW SESSION" K ABMO Q
.W !!!,"Using session "_$G(ABMR(Y))
.S ABMSDT=$G(ABMR(Y))
;
;sign in date
I '$D(ABMO) D
.K DIC,DIE,X,Y,DA
.S DA(2)=ABMLOC
.S DA(1)=ABMUSER
.S DIC="^ABMUCASH("_DA(2)_",10,"_DA(1)_",20,"
.S X="NOW"
.S DIC(0)="LMO"
.S DIC("P")=$P(^DD(9002274.4502,".02",0),U,2)
.S DIC("DR")=".03///NOW;.04////C"
.D ^DIC
.S ABMSDT=+Y
.W !!!,"Created session "_ABMSDT
;
ADDBENTR ;EP - Add claim/bill to session log
S ABMTRIBL=$P($G(^ABMDPARM(DUZ(2),1,4)),U,14)
;
S ABMFLG=0
F D Q:ABMFLG=1
.W !!
.W !,"Use 1-3 character code for insurer type",!
.K DIC,DIE,X,Y,DA
.S DA(3)=ABMLOC
.S DA(2)=ABMUSER
.S DA(1)=ABMSDT
.S DIC="^ABMUCASH("_DA(3)_",10,"_DA(2)_",20,"_DA(1)_",11,"
.S DIC(0)="AEQLM" ;insurer type
.D ^DIC
.I +Y<0 S ABMFLG=1 Q
.S ABMBA=+Y
.S ABMBAOUT=$P(Y,U,2)
.;S ABMBAOUT=$P($T(@ABMBAOUT^ABMUCASH),";;",2)
.S ABMFLG1=0
.F D Q:ABMFLG1=1
..K DIC,DIE,X,Y,DA
..S DA(4)=ABMLOC
..S DA(3)=ABMUSER
..S DA(2)=ABMSDT
..S DA(1)=ABMBA
..S DIC="^ABMUCASH("_DA(4)_",10,"_DA(3)_",20,"_DA(2)_",11,"_DA(1)_",2,"
..S DIC("P")=$P(^DD(9002274.4510211,2,0),U,2)
..S DIC(0)="LMAEQ"
..D ^DIC
..I +Y<0 S ABMFLG1=1 Q
..S DIE=DIC
..S DA=+Y
..S DR=".01//;.02//;.03//"
..D ^DIE
..S ABM(ABMBAOUT,"CNT")=+$G(ABM(ABMBAOUT,"CNT"))+1
..S ABM(ABMBAOUT,"AMT")=+$G(ABM(ABMBAOUT,"AMT"))+$P($G(^ABMDBILL($P($G(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,2),$P($G(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,3),2)),U)
..S ABMTOT("CNT")=+$G(ABMTOT("CNT"))+1
..S ABMTOT("AMT")=+$G(ABMTOT("AMT"))++$P($G(^ABMDBILL($P($G(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,2),$P($G(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,3),2)),U)
W !!?3,"Budget Activity",?20,"Count",?30,"Amount"
S ABMBAOUT=""
F S ABMBAOUT=$O(ABM(ABMBAOUT)) Q:ABMBAOUT="" D
.W !?3,ABMBAOUT,?20,$G(ABM(ABMBAOUT,"CNT")),?26,$J($FN(ABM(ABMBAOUT,"AMT"),",",2),10)
W !?20,"=====",?26,"=========="
W !,?20,ABMTOT("CNT"),?26,$J($FN(ABMTOT("AMT"),",",2),10)
Q
ABMREQUE ; IHS/SD/SDR - Requeue bills in UFMS session ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**4,11**;NOV 12, 2009;Build 133
CR8SESS ;EP - create new session in file
+1 ;location
+2 KILL DIC,DIE,X,Y,DA
+3 SET DIC="^ABMUCASH("
+4 SET DIC(0)="AMNEQ"
+5 DO ^DIC
+6 IF Y<0
QUIT
+7 SET ABMLOC=+Y
+8 ;
+9 ;user
+10 KILL DIC,DIE,X,Y,DA
+11 SET DA(1)=ABMLOC
+12 SET DIC="^ABMUCASH(DA(1),10,"
+13 SET DIC(0)="AEQMN"
+14 SET DIC("P")=$PIECE(^DD(9002274.45,".02",0),U,2)
+15 DO ^DIC
+16 IF Y<0
QUIT
+17 SET ABMUSER=+Y
+18 ;
+19 KILL ABMO,ABMR,ABM,ABMTOT
+20 SET ABMFD=0
+21 SET ABMSDT=0
+22 FOR
SET ABMSDT=$ORDER(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSDT))
IF +ABMSDT=0
QUIT
Begin DoDot:1
+23 ;skip transmitted sessions
IF $PIECE($GET(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSDT,0)),U,4)="T"
QUIT
+24 SET ABMST=$PIECE($GET(^ABMUCASH(ABMLOC,10,ABMUSER,20,ABMSDT,0)),U,4)
+25 SET ABMST=$SELECT(ABMST="C":"CLOSED",ABMST="O":"OPEN",1:"")
+26 SET ABMO(ABMSDT)=ABMST
End DoDot:1
IF ABMFD'=0
QUIT
+27 ;
+28 IF $DATA(ABMO)
Begin DoDot:1
+29 WRITE !!!,"SESSIONS FOUND FOR USER "_$PIECE($GET(^VA(200,ABMUSER,0)),U)_":"
+30 SET ABMCNT=1
+31 SET ABMSDT=0
+32 SET ABMDIR=""
+33 FOR
SET ABMSDT=$ORDER(ABMO(ABMSDT))
IF 'ABMSDT
QUIT
Begin DoDot:2
+34 SET ABMR(ABMCNT)=ABMSDT
+35 IF (ABMDIR'="")
SET ABMDIR=ABMDIR_";"_ABMCNT_":"_ABMSDT_" ("_$GET(ABMO(ABMSDT))_")"
+36 IF (ABMDIR="")
SET ABMDIR=ABMCNT_":"_ABMSDT_" ("_$GET(ABMO(ABMSDT))_")"
+37 SET ABMCNT=+$GET(ABMCNT)+1
End DoDot:2
+38 KILL DIR,DIE,DIC,X,Y,DA
+39 SET DIR(0)="SO^"_ABMDIR_";"_(ABMCNT)_":NEW SESSION"
+40 SET DIR("A")="Select session to use"
+41 DO ^DIR
KILL DIR
+42 IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
QUIT
+43 IF Y(0)="NEW SESSION"
KILL ABMO
QUIT
+44 WRITE !!!,"Using session "_$GET(ABMR(Y))
+45 SET ABMSDT=$GET(ABMR(Y))
End DoDot:1
IF $DATA(DIRUT)!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)
QUIT
+46 ;
+47 ;sign in date
+48 IF '$DATA(ABMO)
Begin DoDot:1
+49 KILL DIC,DIE,X,Y,DA
+50 SET DA(2)=ABMLOC
+51 SET DA(1)=ABMUSER
+52 SET DIC="^ABMUCASH("_DA(2)_",10,"_DA(1)_",20,"
+53 SET X="NOW"
+54 SET DIC(0)="LMO"
+55 SET DIC("P")=$PIECE(^DD(9002274.4502,".02",0),U,2)
+56 SET DIC("DR")=".03///NOW;.04////C"
+57 DO ^DIC
+58 SET ABMSDT=+Y
+59 WRITE !!!,"Created session "_ABMSDT
End DoDot:1
+60 ;
ADDBENTR ;EP - Add claim/bill to session log
+1 SET ABMTRIBL=$PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,14)
+2 ;
+3 SET ABMFLG=0
+4 FOR
Begin DoDot:1
+5 WRITE !!
+6 WRITE !,"Use 1-3 character code for insurer type",!
+7 KILL DIC,DIE,X,Y,DA
+8 SET DA(3)=ABMLOC
+9 SET DA(2)=ABMUSER
+10 SET DA(1)=ABMSDT
+11 SET DIC="^ABMUCASH("_DA(3)_",10,"_DA(2)_",20,"_DA(1)_",11,"
+12 ;insurer type
SET DIC(0)="AEQLM"
+13 DO ^DIC
+14 IF +Y<0
SET ABMFLG=1
QUIT
+15 SET ABMBA=+Y
+16 SET ABMBAOUT=$PIECE(Y,U,2)
+17 ;S ABMBAOUT=$P($T(@ABMBAOUT^ABMUCASH),";;",2)
+18 SET ABMFLG1=0
+19 FOR
Begin DoDot:2
+20 KILL DIC,DIE,X,Y,DA
+21 SET DA(4)=ABMLOC
+22 SET DA(3)=ABMUSER
+23 SET DA(2)=ABMSDT
+24 SET DA(1)=ABMBA
+25 SET DIC="^ABMUCASH("_DA(4)_",10,"_DA(3)_",20,"_DA(2)_",11,"_DA(1)_",2,"
+26 SET DIC("P")=$PIECE(^DD(9002274.4510211,2,0),U,2)
+27 SET DIC(0)="LMAEQ"
+28 DO ^DIC
+29 IF +Y<0
SET ABMFLG1=1
QUIT
+30 SET DIE=DIC
+31 SET DA=+Y
+32 SET DR=".01//;.02//;.03//"
+33 DO ^DIE
+34 SET ABM(ABMBAOUT,"CNT")=+$GET(ABM(ABMBAOUT,"CNT"))+1
+35 SET ABM(ABMBAOUT,"AMT")=+$GET(ABM(ABMBAOUT,"AMT"))+$PIECE($GET(^ABMDBILL($PIECE($GET(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,2),$PIECE($GET(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,3),2)),U)
+36 SET ABMTOT("CNT")=+$GET(ABMTOT("CNT"))+1
+37 SET ABMTOT("AMT")=+$GET(ABMTOT("AMT"))++$PIECE($GET(^ABMDBILL($PIECE($GET(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,2),$PIECE($GET(^ABMUCASH(DA(4),10,DA(3),20,DA(2),11,DA(1),2,DA,0)),U,3),2)),U)
End DoDot:2
IF ABMFLG1=1
QUIT
End DoDot:1
IF ABMFLG=1
QUIT
+38 WRITE !!?3,"Budget Activity",?20,"Count",?30,"Amount"
+39 SET ABMBAOUT=""
+40 FOR
SET ABMBAOUT=$ORDER(ABM(ABMBAOUT))
IF ABMBAOUT=""
QUIT
Begin DoDot:1
+41 WRITE !?3,ABMBAOUT,?20,$GET(ABM(ABMBAOUT,"CNT")),?26,$JUSTIFY($FNUMBER(ABM(ABMBAOUT,"AMT"),",",2),10)
End DoDot:1
+42 WRITE !?20,"=====",?26,"=========="
+43 WRITE !,?20,ABMTOT("CNT"),?26,$JUSTIFY($FNUMBER(ABMTOT("AMT"),",",2),10)
+44 QUIT
