BAR277IQ.m

BAR277IQ ; IHS/SD/LSL - BAR Inquire to Status Response ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;

 ; Original routine created by cmi/flag/maw - V1.6 Patch 3

 ;

 ; ********************************************************************

 ;this routine will allow the user to verify reference lab results

 ;before passing them on to PCC

 ;

MAIN ;EP - this is the main routine driver

 D GIS^BARACSI                  ; Check for GIS patches 2 and 6

 I '+BARGIS D EOJ Q             ; GIS patches not installed

 S BARYN=$$ASKV

 I '$G(BARYN) D  Q

 . S BARENT=$$ENT

 . I '$G(BARENT) D EOJ Q

 . D INQ(BARENT)

 . D EOJ

 D LOOP

 D EOJ

 Q

 ;

ASKV() ;-- ask to mark all as verified

 S DIR(0)="Y",DIR("A")="Do you wish to look at all responses:"

 D ^DIR

 K DIR

 Q +$G(Y)

 ;

ENT() ;-- get an entry

 K DIC

 S DIC="^BARECLST(",DIC(0)="AEMQZ"

 S DIC("A")="Lookup which Entry: "

 D ^DIC

 Q +$G(Y)

 ;

INQ(ENT) ;-- inquire an entry

 S DIC="^BARECLST(",DA=ENT

 D DIQ^BAR277LM(DIC,DA)

 Q

 ;

LOOP ;-- loop the xref and call VER

 S DIC="^BARECLST("

 S BARVDA=0 F  S BARVDA=$O(^BARECLST(BARVDA)) Q:'BARVDA!$G(BARVQ)  D

 . Q:$G(BARVQ)

 . W @IOF

 . S DA=BARVDA

 . D DIQ^BAR277LM(DIC,DA)

 Q

 ;

DEL(DA) ;-- delete entry

 S DIK="^BARECLST("

 D ^DIK

 Q

 ;

EOJ ;-- kill variables

 D EN^XBVK("BAR")

 Q

 ;

BAR277IQ  ; IHS/SD/LSL - BAR Inquire to Status Response ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;

 +3       ; Original routine created by cmi/flag/maw - V1.6 Patch 3

 +4       ;

 +5       ; ********************************************************************

 +6       ;this routine will allow the user to verify reference lab results

 +7       ;before passing them on to PCC

 +8       ;

MAIN      ;EP - this is the main routine driver

 +1       ; Check for GIS patches 2 and 6

           DO GIS^BARACSI

 +2       ; GIS patches not installed

           IF '+BARGIS

               DO EOJ

               QUIT 

 +3        SET BARYN=$$ASKV

 +4        IF '$GET(BARYN)

               Begin DoDot:1

 +5                SET BARENT=$$ENT

 +6                IF '$GET(BARENT)

                       DO EOJ

                       QUIT 

 +7                DO INQ(BARENT)

 +8                DO EOJ

               End DoDot:1

               QUIT 

 +9        DO LOOP

 +10       DO EOJ

 +11       QUIT 

 +12      ;

ASKV()    ;-- ask to mark all as verified

 +1        SET DIR(0)="Y"

           SET DIR("A")="Do you wish to look at all responses:"

 +2        DO ^DIR

 +3        KILL DIR

 +4        QUIT +$GET(Y)

 +5       ;

ENT()     ;-- get an entry

 +1        KILL DIC

 +2        SET DIC="^BARECLST("

           SET DIC(0)="AEMQZ"

 +3        SET DIC("A")="Lookup which Entry: "

 +4        DO ^DIC

 +5        QUIT +$GET(Y)

 +6       ;

INQ(ENT)  ;-- inquire an entry

 +1        SET DIC="^BARECLST("

           SET DA=ENT

 +2        DO DIQ^BAR277LM(DIC,DA)

 +3        QUIT 

 +4       ;

LOOP      ;-- loop the xref and call VER

 +1        SET DIC="^BARECLST("

 +2        SET BARVDA=0

           FOR 

               SET BARVDA=$ORDER(^BARECLST(BARVDA))

               IF 'BARVDA!$GET(BARVQ)

                   QUIT 

               Begin DoDot:1

 +3                IF $GET(BARVQ)

                       QUIT 

 +4                WRITE @IOF

 +5                SET DA=BARVDA

 +6                DO DIQ^BAR277LM(DIC,DA)

               End DoDot:1

 +7        QUIT 

 +8       ;

DEL(DA)   ;-- delete entry

 +1        SET DIK="^BARECLST("

 +2        DO ^DIK

 +3        QUIT 

 +4       ;

EOJ       ;-- kill variables

 +1        DO EN^XBVK("BAR")

 +2        QUIT 

 +3       ;