AGBIC1.m

AGBIC1 ; IHS/ASDS/EFG - BUILD FILE OF PT NOS TO BE BIC'D ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

BICCHK ;

 I AGOPT(15)="Y" D  Q

 . D ^AGBIC1B

BICLATER ;For Batch Only Entries.

 S DIC="^AGBICH("

 S DIC(0)="L"

 S X=DFN

 S DIC("DR")=".02////"_DUZ(2)_";.03////"_DT

 K DD,DO

 D FILE^DICN

 Q

AGBIC1    ; IHS/ASDS/EFG - BUILD FILE OF PT NOS TO BE BIC'D ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

BICCHK    ;

 +1        IF AGOPT(15)="Y"

               Begin DoDot:1

 +2                DO ^AGBIC1B

               End DoDot:1

               QUIT 

BICLATER  ;For Batch Only Entries.

 +1        SET DIC="^AGBICH("

 +2        SET DIC(0)="L"

 +3        SET X=DFN

 +4        SET DIC("DR")=".02////"_DUZ(2)_";.03////"_DT

 +5        KILL DD,DO

 +6        DO FILE^DICN

 +7        QUIT