BWPTCH12.m

BWPTCH12 ;IHS/CMI/LAB - BW PATCH 12 ;24-Mar-2011 19:55;PLS

 ;;2.0;WOMEN'S HEALTH;**12**;MAY 16, 1996

 ;

 ;

PRE ;

 N DA,DIK,DIU

 S DA=$O(^BWFMT("B","CDC60",0))

 I DA D

 .S DIK="^BWFMT("

 .D ^DIK

 Q

POST ;

 N L,IEN

 F L="BI-RADS 0-Add Imag Eval Needed:6:6","BI-RADS 0-Prev Films Req:6:13" D

 .S IEN=$O(^BWDIAG("B",$P(L,":"),0))

 .Q:'IEN

 .S $P(^BWDIAG(IEN,0),U,2)=$P(L,":",2)

 .S $P(^BWDIAG(IEN,0),U,25)=$P(L,":",3)

 Q

BWPTCH12  ;IHS/CMI/LAB - BW PATCH 12 ;24-Mar-2011 19:55;PLS

 +1       ;;2.0;WOMEN'S HEALTH;**12**;MAY 16, 1996

 +2       ;

 +3       ;

PRE       ;

 +1        NEW DA,DIK,DIU

 +2        SET DA=$ORDER(^BWFMT("B","CDC60",0))

 +3        IF DA

               Begin DoDot:1

 +4                SET DIK="^BWFMT("

 +5                DO ^DIK

               End DoDot:1

 +6        QUIT 

POST      ;

 +1        NEW L,IEN

 +2        FOR L="BI-RADS 0-Add Imag Eval Needed:6:6","BI-RADS 0-Prev Films Req:6:13"

               Begin DoDot:1

 +3                SET IEN=$ORDER(^BWDIAG("B",$PIECE(L,":"),0))

 +4                IF 'IEN

                       QUIT 

 +5                SET $PIECE(^BWDIAG(IEN,0),U,2)=$PIECE(L,":",2)

 +6                SET $PIECE(^BWDIAG(IEN,0),U,25)=$PIECE(L,":",3)

               End DoDot:1

 +7        QUIT