ABSPOSBC.m

ABSPOSBC ; IHS/FCS/DRS - POS billing - new ;   

 ;;1.0;PHARMACY POINT OF SALE;**38,48**;JUN 21, 2001;Build 38

 ;

 Q

 ;

 ;  TRANSACT - transaction complete - called from STATUS99^ABSPOSU,

 ;    to request that this transaction be posted.

 ;

TRANSACT(IEN57) ; EP -

 D SETFLAG(IEN57,1) ; set the flag

 ;;IHS/OIT/RAN - 03162010 Patch 38 -- print pharmacy expense report

 D MAIN^ABSPOSPE(IEN57)

 D SCHEDULE^ABSPOSBD() ; schedule the background job, if needed

 Q

 ;

 ; SETFLAG - set the billing flag for this transaction

 ;   VALUE = 1 for needs billing

 ;   VALUE = 0 for billing done

 ;

SETFLAG(IEN57,VALUE) ;EP -

 D

 . N FDA,MSG ; clear the "needs billing" flag

 . S FDA(9002313.57,IEN57_",",.16)=VALUE

SF1 . D FILE^DIE(,"FDA","MSG")

 . I $D(MSG) D LOG^ABSPOSL2("SF1^ABSPOSBC",.MSG) ; /IHS/OIT/RAM ; 12 JUN 17 ; AND LOG IT IF AN ERROR OCCURS.

 . I $D(MSG) D  G SF1:$$IMPOSS^ABSPOSUE("FM","TRI",.FDA,.MSG,"SETFLAG",$T(+0))

 . . D ZWRITE^ABSPOS("FDA","MSG")

 Q

ABSPOSBC  ; IHS/FCS/DRS - POS billing - new ;   

 +1       ;;1.0;PHARMACY POINT OF SALE;**38,48**;JUN 21, 2001;Build 38

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;  TRANSACT - transaction complete - called from STATUS99^ABSPOSU,

 +6       ;    to request that this transaction be posted.

 +7       ;

TRANSACT(IEN57) ; EP -

 +1       ; set the flag

           DO SETFLAG(IEN57,1)

 +2       ;;IHS/OIT/RAN - 03162010 Patch 38 -- print pharmacy expense report

 +3        DO MAIN^ABSPOSPE(IEN57)

 +4       ; schedule the background job, if needed

           DO SCHEDULE^ABSPOSBD()

 +5        QUIT 

 +6       ;

 +7       ; SETFLAG - set the billing flag for this transaction

 +8       ;   VALUE = 1 for needs billing

 +9       ;   VALUE = 0 for billing done

 +10      ;

SETFLAG(IEN57,VALUE) ;EP -

 +1        Begin DoDot:1

 +2       ; clear the "needs billing" flag

               NEW FDA,MSG

 +3            SET FDA(9002313.57,IEN57_",",.16)=VALUE

SF1            DO FILE^DIE(,"FDA","MSG")

 +1       ; /IHS/OIT/RAM ; 12 JUN 17 ; AND LOG IT IF AN ERROR OCCURS.

               IF $DATA(MSG)

                   DO LOG^ABSPOSL2("SF1^ABSPOSBC",.MSG)

 +2            IF $DATA(MSG)

                   Begin DoDot:2

 +3                    DO ZWRITE^ABSPOS("FDA","MSG")

                   End DoDot:2

                   IF $$IMPOSS^ABSPOSUE("FM","TRI",.FDA,.MSG,"SETFLAG",$TEXT(+0))

                       GOTO SF1

           End DoDot:1

 +4        QUIT