ABMUPOSC.m

ABMUPOSC ; IHS/SD/SDR - Close POS cashiering sessions ;

 ;;2.5;IHS Third Party Billing System;**15**;AUG 22, 2008

 ;

 Q

 ;

EN ;PEP - Finds all open POS cashiering sessions and closes them

 ;

 K ABMO

 D FINDAOPN^ABMUCUTL  ;find all open sessions

 S ABMSDT=0

 F  S ABMSDT=$O(ABMO(ABMSDT)) Q:+ABMSDT=0  D

 .S ABMUSER=""

 .F  S ABMUSER=$O(ABMO(ABMSDT,ABMUSER)) Q:ABMUSER=""  D

 ..Q:(ABMUSER'="POS")  ;only want POS sessions

 ..D CLOSESES^ABMUCUTL(ABMLOC,ABMUSER,ABMSDT)

 ..;W !?2,ABMLOC,?20,ABMUSER,?40,ABMSDT  used for testing to see what was closing without actually closing

 Q

ABMUPOSC  ; IHS/SD/SDR - Close POS cashiering sessions ;

 +1       ;;2.5;IHS Third Party Billing System;**15**;AUG 22, 2008

 +2       ;

 +3        QUIT 

 +4       ;

EN        ;PEP - Finds all open POS cashiering sessions and closes them

 +1       ;

 +2        KILL ABMO

 +3       ;find all open sessions

           DO FINDAOPN^ABMUCUTL

 +4        SET ABMSDT=0

 +5        FOR 

               SET ABMSDT=$ORDER(ABMO(ABMSDT))

               IF +ABMSDT=0

                   QUIT 

               Begin DoDot:1

 +6                SET ABMUSER=""

 +7                FOR 

                       SET ABMUSER=$ORDER(ABMO(ABMSDT,ABMUSER))

                       IF ABMUSER=""

                           QUIT 

                       Begin DoDot:2

 +8       ;only want POS sessions

                           IF (ABMUSER'="POS")

                               QUIT 

 +9                        DO CLOSESES^ABMUCUTL(ABMLOC,ABMUSER,ABMSDT)

 +10      ;W !?2,ABMLOC,?20,ABMUSER,?40,ABMSDT  used for testing to see what was closing without actually closing

                       End DoDot:2

               End DoDot:1

 +11       QUIT