- ABMUVBCR ; IHS/SD/SDR - 3PB/UFMS View Batch Export Page Details
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ; New routine to display Reconciliation Export page detail
- ; from Supervisor View Export Menu Option
- EP ;EP
- Q
- ;
- HD ;HEADER FOR RECONCIALTION PAGE DETAIL LISTING
- I $G(ABME("PG")),($E(IOST)="C") S DIR(0)="E" D ^DIR K DIR Q:Y=0
- S ABME("PG")=1
- W $$EN^ABMVDF("IOF")
- W !?20,$$EN^ABMVDF("HIN"),"***** UFMS EXPORT RECONCILIATION PAGE *****",?70,"Page: ",$$EN^ABMVDF("HIF"),ABME("PG")
- W !,$$EN^ABMVDF("HIN"),"LOCATION: ",$$EN^ABMVDF("HIF"),$P($G(^AUTTLOC(ABMLOC,0)),U,2)
- W !,$$EN^ABMVDF("HIN"),"EXPORT DATE: ",$$EN^ABMVDF("HIF"),ABME("BDATE")
- W !,$$EN^ABMVDF("HIN"),"FILE NAME: ",$$EN^ABMVDF("HIF"),ABME("FNAME")
- W !,ABME("EQ"),!
- Q
- ;
- LOOP(ABMBDT,ABMLOC) ;EP - For every User and Session Date, loop through the Cashiering
- ; file and gather reconciliation info for one Export Date
- ;
- ; ;Enters with ABMBDT = Begin date = export ien -- constant
- ; ABMLOC = Location pointer -- constant
- ;
- K ABMC
- N ABMUSR,ABMSDT,ABMI
- D HD
- F ABMI=1,2 D
- .S ABMUS=0
- .F S ABMUS=$O(^ABMUTXMT(ABMBDT,ABMI,ABMUS)) Q:+ABMUS=0 D
- ..S ABMUSR=$G(^ABMUTXMT(ABMBDT,ABMI,ABMUS,0))
- ..Q:+ABMUSR=0
- ..S ABMSDT=0
- ..F S ABMSDT=$O(^ABMUTXMT(ABMBDT,ABMI,ABMUSR,2,ABMSDT)) Q:+ABMSDT=0 D
- ...D PAGE(.ABMC,ABMSDT,ABMI_0) ;Create local ABMC array
- S $P(ABMLINE,"-",80)="-"
- S ABMTRIBL=$P($G(^ABMDPARM(ABMLOC,1,4)),U,14) ;UFMS EXPORT FLAG
- D XSUM2^ABMURCON ;Display ABMC array
- Q
- ;
- PAGE(ABMC,ABMSDT,ABMLOOP) ;EP; SET LOCAL ARRAY FOR EXTRACT PAGE DISPLAY
- ;
- N ABMSTR,ABMO,ABMUSER
- S ABM0=$G(^ABMUCASH(ABMLOC,ABMLOOP,ABMUSR,20,ABMSDT,0))
- I $P(ABM0,U,3)="" Q
- S ABMSTR=$P(ABM0,U,4)_U_$P(ABM0,U,3) ;SESSION STATUS^SIGN OUT DATE
- S ABMUSER=$S(ABMLOOP=20:"POS",1:ABMUSR) ;SUB "POS" FOR USER IEN
- S ABMC(ABMSDT,ABMUSER,ABMSDT)=ABMSTR
- Q
- PAUSE ;EP;
- Q:$E(IOST,1,2)'="C-"
- K DIR
- P1 ;EP;
- W !
- S DIR(0)="E"
- S DIR("A")="Enter RETURN to Continue or '^' to exit"
- D ^DIR
- K DIR
- Q
- ABMUVBCR ; IHS/SD/SDR - 3PB/UFMS View Batch Export Page Details
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ; New routine to display Reconciliation Export page detail
- +3 ; from Supervisor View Export Menu Option
- EP ;EP
- +1 QUIT
- +2 ;
- HD ;HEADER FOR RECONCIALTION PAGE DETAIL LISTING
- +1 IF $GET(ABME("PG"))
- IF ($EXTRACT(IOST)="C")
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- IF Y=0
- QUIT
- +2 SET ABME("PG")=1
- +3 WRITE $$EN^ABMVDF("IOF")
- +4 WRITE !?20,$$EN^ABMVDF("HIN"),"***** UFMS EXPORT RECONCILIATION PAGE *****",?70,"Page: ",$$EN^ABMVDF("HIF"),ABME("PG")
- +5 WRITE !,$$EN^ABMVDF("HIN"),"LOCATION: ",$$EN^ABMVDF("HIF"),$PIECE($GET(^AUTTLOC(ABMLOC,0)),U,2)
- +6 WRITE !,$$EN^ABMVDF("HIN"),"EXPORT DATE: ",$$EN^ABMVDF("HIF"),ABME("BDATE")
- +7 WRITE !,$$EN^ABMVDF("HIN"),"FILE NAME: ",$$EN^ABMVDF("HIF"),ABME("FNAME")
- +8 WRITE !,ABME("EQ"),!
- +9 QUIT
- +10 ;
- LOOP(ABMBDT,ABMLOC) ;EP - For every User and Session Date, loop through the Cashiering
- +1 ; file and gather reconciliation info for one Export Date
- +2 ;
- +3 ; ;Enters with ABMBDT = Begin date = export ien -- constant
- +4 ; ABMLOC = Location pointer -- constant
- +5 ;
- +6 KILL ABMC
- +7 NEW ABMUSR,ABMSDT,ABMI
- +8 DO HD
- +9 FOR ABMI=1,2
- Begin DoDot:1
- +10 SET ABMUS=0
- +11 FOR
- SET ABMUS=$ORDER(^ABMUTXMT(ABMBDT,ABMI,ABMUS))
- IF +ABMUS=0
- QUIT
- Begin DoDot:2
- +12 SET ABMUSR=$GET(^ABMUTXMT(ABMBDT,ABMI,ABMUS,0))
- +13 IF +ABMUSR=0
- QUIT
- +14 SET ABMSDT=0
- +15 FOR
- SET ABMSDT=$ORDER(^ABMUTXMT(ABMBDT,ABMI,ABMUSR,2,ABMSDT))
- IF +ABMSDT=0
- QUIT
- Begin DoDot:3
- +16 ;Create local ABMC array
- DO PAGE(.ABMC,ABMSDT,ABMI_0)
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +17 SET $PIECE(ABMLINE,"-",80)="-"
- +18 ;UFMS EXPORT FLAG
- SET ABMTRIBL=$PIECE($GET(^ABMDPARM(ABMLOC,1,4)),U,14)
- +19 ;Display ABMC array
- DO XSUM2^ABMURCON
- +20 QUIT
- +21 ;
- PAGE(ABMC,ABMSDT,ABMLOOP) ;EP; SET LOCAL ARRAY FOR EXTRACT PAGE DISPLAY
- +1 ;
- +2 NEW ABMSTR,ABMO,ABMUSER
- +3 SET ABM0=$GET(^ABMUCASH(ABMLOC,ABMLOOP,ABMUSR,20,ABMSDT,0))
- +4 IF $PIECE(ABM0,U,3)=""
- QUIT
- +5 ;SESSION STATUS^SIGN OUT DATE
- SET ABMSTR=$PIECE(ABM0,U,4)_U_$PIECE(ABM0,U,3)
- +6 ;SUB "POS" FOR USER IEN
- SET ABMUSER=$SELECT(ABMLOOP=20:"POS",1:ABMUSR)
- +7 SET ABMC(ABMSDT,ABMUSER,ABMSDT)=ABMSTR
- +8 QUIT
- PAUSE ;EP;
- +1 IF $EXTRACT(IOST,1,2)'="C-"
- QUIT
- +2 KILL DIR
- P1 ;EP;
- +1 WRITE !
- +2 SET DIR(0)="E"
- +3 SET DIR("A")="Enter RETURN to Continue or '^' to exit"
- +4 DO ^DIR
- +5 KILL DIR
- +6 QUIT
