BWUPDATE.m

BWUPDATE ;IHS/ANMC/MWR - POST-INIT ROUTINE ;15-Feb-2003 22:11;PLS

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

 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *

 ;;  CALLED BY BWPOST TO UPDATE TABLE FILES.

 ;

 ;

 D SETVARS^BWUTL5

 ;

 ;---> ADD "Chart Review" to BW BREAST TX NEED File #9002086.51.

 D DIC^BWFMAN(9002086.51,"ML",.Y,"","","","Chart Review")

 ;---> RE-INDEX.

 ;

 ;---> ADD "Letter Canceled" to BW NOTIF OUTCOME File #9002086.405.

 D DIC^BWFMAN(9002086.405,"ML",.Y,"","","","Letter Canceled")

 D:$P(Y,U,3) DIE^BWFMAN(9002086.405,".02////1",+Y)

 ;---> RE-INDEX.

 ;

 ;---> ADD "Patient Deceased" to BW NOTIF OUTCOME File #9002086.405.

 ;---> MUST HAVE IEN OF 99 (THEREFORE HARD SET).

 S ^BWNOTO(99,0)="Patient Deceased^1"

 S ^BWNOTO("B","Patient Deceased",99)=""

 S ^BWNOTO("U","PATIENT DECEASED",99)=""

 ;

 ;---> ADD "SCREENING MAMMOGRAM" to RADIOLOGY PROCEDURES File #71

 ;---> FOR .01 VALUE PASSED TO V RADIOLOGY FILE BY WOMEN'S HEALTH.

 D DIC^BWFMAN(71,"ML",.Y,"","","","SCREENING MAMMOGRAM")

 D:Y>0

 .N BWY S BWY=+Y

 .D:$P(Y,U,3) DIE^BWFMAN(71,"6///DETAILED;7///NO;9///76092;11///NO",+Y)

 .;---> IF POINTER TO RADIOLOGY PROCEDURES FILE #71 IS NULL FOR

 .;---> SCREENING MAMMOGRAM IN BW PROCEDURE FILE, UPDATE IT.

 .D:'$P(^BWPN(28,0),U,17) DIE^BWFMAN(9002086.2,".17////"_BWY,28)

 ;

 ;---> KILL OF ERRONEOUS XREF GLOBAL (DUE TO TYPO IN VERSION 1).

 K ^BWDAG("P")

 Q

BWUPDATE  ;IHS/ANMC/MWR - POST-INIT ROUTINE ;15-Feb-2003 22:11;PLS

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

 +2       ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *

 +3       ;;  CALLED BY BWPOST TO UPDATE TABLE FILES.

 +4       ;

 +5       ;

 +6        DO SETVARS^BWUTL5

 +7       ;

 +8       ;---> ADD "Chart Review" to BW BREAST TX NEED File #9002086.51.

 +9        DO DIC^BWFMAN(9002086.51,"ML",.Y,"","","","Chart Review")

 +10      ;---> RE-INDEX.

 +11      ;

 +12      ;---> ADD "Letter Canceled" to BW NOTIF OUTCOME File #9002086.405.

 +13       DO DIC^BWFMAN(9002086.405,"ML",.Y,"","","","Letter Canceled")

 +14       IF $PIECE(Y,U,3)

               DO DIE^BWFMAN(9002086.405,".02////1",+Y)

 +15      ;---> RE-INDEX.

 +16      ;

 +17      ;---> ADD "Patient Deceased" to BW NOTIF OUTCOME File #9002086.405.

 +18      ;---> MUST HAVE IEN OF 99 (THEREFORE HARD SET).

 +19       SET ^BWNOTO(99,0)="Patient Deceased^1"

 +20       SET ^BWNOTO("B","Patient Deceased",99)=""

 +21       SET ^BWNOTO("U","PATIENT DECEASED",99)=""

 +22      ;

 +23      ;---> ADD "SCREENING MAMMOGRAM" to RADIOLOGY PROCEDURES File #71

 +24      ;---> FOR .01 VALUE PASSED TO V RADIOLOGY FILE BY WOMEN'S HEALTH.

 +25       DO DIC^BWFMAN(71,"ML",.Y,"","","","SCREENING MAMMOGRAM")

 +26       IF Y>0

               Begin DoDot:1

 +27               NEW BWY

                   SET BWY=+Y

 +28               IF $PIECE(Y,U,3)

                       DO DIE^BWFMAN(71,"6///DETAILED;7///NO;9///76092;11///NO",+Y)

 +29      ;---> IF POINTER TO RADIOLOGY PROCEDURES FILE #71 IS NULL FOR

 +30      ;---> SCREENING MAMMOGRAM IN BW PROCEDURE FILE, UPDATE IT.

 +31               IF '$PIECE(^BWPN(28,0),U,17)

                       DO DIE^BWFMAN(9002086.2,".17////"_BWY,28)

               End DoDot:1

 +32      ;

 +33      ;---> KILL OF ERRONEOUS XREF GLOBAL (DUE TO TYPO IN VERSION 1).

 +34       KILL ^BWDAG("P")

 +35       QUIT