BNIGVLP3.m

BNIGVLP3 ; IHS/CMI/LAB - CONT OF BNIGVLP ;

 ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006

 ;

 ;

COVPAGE ;EP

 S BNIC=0

 S X="CPHAD General Retrieval Report Listing SUMMARY PAGE" D SET(X)

 S X="REPORT REQUESTED BY: "_U_$P(^VA(200,DUZ,0),U) D SET(X)

SHOW ;

 S X="CPHAD Activity Record Selection Criteria" D SET(X)

 S X="Date range:  "_U_BNIGBDD_U_" to "_U_BNIGEDD

 I '$D(^BNIRTMP(BNIGRPT,11)) G SHOWP

 S BNIGI=0 F  S BNIGI=$O(^BNIRTMP(BNIGRPT,11,BNIGI)) Q:BNIGI'=+BNIGI  D

 .S X=$P(^BNIGRI(BNIGI,0),U) D SET(X)

 .K BNIGQ S BNIGY="",C=0 K BNIGQ F  S BNIGY=$O(^BNIRTMP(BNIGRPT,11,BNIGI,11,"B",BNIGY)) Q:BNIGY'=+BNIGY  S X=BNIGY X:$D(^BNIGRI(BNIGI,2)) ^(2) S X=U_X D SET(X)

 K BNIGQ

SHOWP ;

 S X="" D SET(X)

 S X="" D SET(X)

 Q

SET(X) ;

 S BNIC=BNIC+1

 S ^BNIGUI(BNIIEN,12,BNIC,0)=X

 Q

BNIGVLP3  ; IHS/CMI/LAB - CONT OF BNIGVLP ;

 +1       ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006

 +2       ;

 +3       ;

COVPAGE   ;EP

 +1        SET BNIC=0

 +2        SET X="CPHAD General Retrieval Report Listing SUMMARY PAGE"

           DO SET(X)

 +3        SET X="REPORT REQUESTED BY: "_U_$PIECE(^VA(200,DUZ,0),U)

           DO SET(X)

SHOW      ;

 +1        SET X="CPHAD Activity Record Selection Criteria"

           DO SET(X)

 +2        SET X="Date range:  "_U_BNIGBDD_U_" to "_U_BNIGEDD

 +3        IF '$DATA(^BNIRTMP(BNIGRPT,11))

               GOTO SHOWP

 +4        SET BNIGI=0

           FOR 

               SET BNIGI=$ORDER(^BNIRTMP(BNIGRPT,11,BNIGI))

               IF BNIGI'=+BNIGI

                   QUIT 

               Begin DoDot:1

 +5                SET X=$PIECE(^BNIGRI(BNIGI,0),U)

                   DO SET(X)

 +6                KILL BNIGQ

                   SET BNIGY=""

                   SET C=0

                   KILL BNIGQ

                   FOR 

                       SET BNIGY=$ORDER(^BNIRTMP(BNIGRPT,11,BNIGI,11,"B",BNIGY))

                       IF BNIGY'=+BNIGY

                           QUIT 

                       SET X=BNIGY

                       IF $DATA(^BNIGRI(BNIGI,2))

                           XECUTE ^(2)

                       SET X=U_X

                       DO SET(X)

               End DoDot:1

 +7        KILL BNIGQ

SHOWP     ;

 +1        SET X=""

           DO SET(X)

 +2        SET X=""

           DO SET(X)

 +3        QUIT 

SET(X)    ;

 +1        SET BNIC=BNIC+1

 +2        SET ^BNIGUI(BNIIEN,12,BNIC,0)=X

 +3        QUIT