BQIRGDMT.m

BQIRGDMT ;GDHD/HCS/ALA-Test DM Audit ; 15 Dec 2016  2:57 PM

 ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 ;;

 ;

EN ;EP

 ;Select Patient

 S DIC="^AUPNPAT(",DIC(0)="AEMQ" D ^DIC K DIC

 Q:Y<0

 I $D(APCDPARM),$P(APCDPARM,U,3)="Y" W !?25,"Ok" S %=1 D YN^DICN Q:%'=1

 S APCDPAT=+Y

 D INAC^APCDEA(APCDPAT,.X) I 'X S APCDPAT="" Q

 ;

 S DIC(0)="AEMNZ",DIC="^BDMDMTX(" D ^DIC

 S DA=+Y I DA=-1 Q

 S BDMN=0

 F  S BDMN=$O(^BDMDMTX(DA,11,BDMN)) Q:'BDMN  D

 . S BDMDATA=$G(^BDMDMTX(DA,11,BDMN,1)) I BDMDATA="" Q

 . I $P(BDMDATA,U,4)="" Q

 . S DFN=AUPNPAT

 . S EVAL=$P(BDMDATA,U,3) I EVAL'["~" Q

 . S EVAL=$TR(EVAL,"~","^")

 . W !,$P(BDMDATA,U,1),"|",$$AUD^BQIRGDMA(EVAL)

BQIRGDMT  ;GDHD/HCS/ALA-Test DM Audit ; 15 Dec 2016  2:57 PM

 +1       ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 +2       ;;

 +3       ;

EN        ;EP

 +1       ;Select Patient

 +2        SET DIC="^AUPNPAT("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

 +3        IF Y<0

               QUIT 

 +4        IF $DATA(APCDPARM)

               IF $PIECE(APCDPARM,U,3)="Y"

                   WRITE !?25,"Ok"

                   SET %=1

                   DO YN^DICN

                   IF %'=1

                       QUIT 

 +5        SET APCDPAT=+Y

 +6        DO INAC^APCDEA(APCDPAT,.X)

           IF 'X

               SET APCDPAT=""

               QUIT 

 +7       ;

 +8        SET DIC(0)="AEMNZ"

           SET DIC="^BDMDMTX("

           DO ^DIC

 +9        SET DA=+Y

           IF DA=-1

               QUIT 

 +10       SET BDMN=0

 +11       FOR 

               SET BDMN=$ORDER(^BDMDMTX(DA,11,BDMN))

               IF 'BDMN

                   QUIT 

               Begin DoDot:1

 +12               SET BDMDATA=$GET(^BDMDMTX(DA,11,BDMN,1))

                   IF BDMDATA=""

                       QUIT 

 +13               IF $PIECE(BDMDATA,U,4)=""

                       QUIT 

 +14               SET DFN=AUPNPAT

 +15               SET EVAL=$PIECE(BDMDATA,U,3)

                   IF EVAL'["~"

                       QUIT 

 +16               SET EVAL=$TRANSLATE(EVAL,"~","^")

 +17               WRITE !,$PIECE(BDMDATA,U,1),"|",$$AUD^BQIRGDMA(EVAL)

               End DoDot:1