ABMUVBCR.m

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