BWSITE.m

BWSITE ;IHS/ANMC/MWR - EDIT SITE PARAMETERS;15-Feb-2003 22:11;PLS

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

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

 ;;  CALLED BY OPTION: "BW EDIT SITE PARAMETERS".

 ;

 D EDIT

 ;

EXIT ;EP

 W:$D(IOF) @IOF

 D KILLALL^BWUTL8

 Q

 ;

EDIT ;EP

 D SETVARS^BWUTL5

 N A,B

 D TITLE^BWUTL5("EDIT SITE PARAMETERS") W !

 S A="   Select SITE/FACILITY: ",B=""

 S:$D(DUZ(2)) B=$$INSTTX^BWUTL6(DUZ(2))

 D DIC^BWFMAN(9002086.02,"QEMAL",.Y,A,B)

 Q:Y<0

 ;---> EDIT WITH SCREENMAN.

 D DDS^BWFMAN(9002086.02,"[BW SITE PARAMS-FORM-1]",+Y)

 Q

 ;

DIAGMODE ;EP

 ;---> EDIT PCC DIAGNOSTIC MODE SITE PARAMETER.

 ;---> CALLED BY OPTION "BW PCC EDIT DIAG MODE".

 D SETVARS^BWUTL5

 D TITLE^BWUTL5("RUN PCC IN DIAGNOSTIC MODE") W !

 S A="   Select SITE/FACILITY: ",B=""

 S:$D(DUZ(2)) B=$$INSTTX^BWUTL6(DUZ(2))

 D DIC^BWFMAN(9002086.02,"QEMAL",.Y,A,B)

 Q:Y<0

 ;---> EDIT WITH SCREENMAN.

 D DIE^BWFMAN(9002086.02,".2//NO",+Y)

 Q

BWSITE    ;IHS/ANMC/MWR - EDIT SITE PARAMETERS;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 OPTION: "BW EDIT SITE PARAMETERS".

 +4       ;

 +5        DO EDIT

 +6       ;

EXIT      ;EP

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        DO KILLALL^BWUTL8

 +3        QUIT 

 +4       ;

EDIT      ;EP

 +1        DO SETVARS^BWUTL5

 +2        NEW A,B

 +3        DO TITLE^BWUTL5("EDIT SITE PARAMETERS")

           WRITE !

 +4        SET A="   Select SITE/FACILITY: "

           SET B=""

 +5        IF $DATA(DUZ(2))

               SET B=$$INSTTX^BWUTL6(DUZ(2))

 +6        DO DIC^BWFMAN(9002086.02,"QEMAL",.Y,A,B)

 +7        IF Y<0

               QUIT 

 +8       ;---> EDIT WITH SCREENMAN.

 +9        DO DDS^BWFMAN(9002086.02,"[BW SITE PARAMS-FORM-1]",+Y)

 +10       QUIT 

 +11      ;

DIAGMODE  ;EP

 +1       ;---> EDIT PCC DIAGNOSTIC MODE SITE PARAMETER.

 +2       ;---> CALLED BY OPTION "BW PCC EDIT DIAG MODE".

 +3        DO SETVARS^BWUTL5

 +4        DO TITLE^BWUTL5("RUN PCC IN DIAGNOSTIC MODE")

           WRITE !

 +5        SET A="   Select SITE/FACILITY: "

           SET B=""

 +6        IF $DATA(DUZ(2))

               SET B=$$INSTTX^BWUTL6(DUZ(2))

 +7        DO DIC^BWFMAN(9002086.02,"QEMAL",.Y,A,B)

 +8        IF Y<0

               QUIT 

 +9       ;---> EDIT WITH SCREENMAN.

 +10       DO DIE^BWFMAN(9002086.02,".2//NO",+Y)

 +11       QUIT