BWBRPCD3.m

BWBRPCD3 ;IHS/ANMC/MWR - BROWSE PROCEDURES;15-Feb-2003 21:49;PLS

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

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

 ;;  HELP PROMPTS FOR BROWSING PROCEDURES.  CALLED BY BRBRPCD.

 ;

HELP1 ;EP

 ;;Procedures with a result of "ABNORMAL" require further follow-up

 ;;and diagnosis.  Procedures with a result of "NORMAL" require a

 ;;letter of notification to be sent to the patient.

 ;;

 ;;Enter "A" to see only Procedures with ABNORMAL results.

 ;;   (Selecting ABNORMAL will include procedures with a result of

 ;;    INSUFFICIENT TISSUE and procedures with no result entered yet.)

 ;;

 ;;Enter "B" to see BOTH ABNORMAL and NORMAL results.

 ;;  (Selecting NORMAL will include procedures with a result of

 ;;   ERROR/DISREGARD.)

 S BWTAB=5,BWLINL="HELP1" D HELPTX

 Q

 ;

HELP2 ;EP

 ;;Answer "ONE" to browse Procedures for ONE particular patient.

 ;;Answer "ALL" to browse Procedures for ALL patients.

 S BWTAB=5,BWLINL="HELP2" D HELPTX

 Q

 ;

HELP3 ;EP

 ;;Enter "DATE" to list Procedures in chronological order beginning

 ;;   with the oldest first.

 ;;Enter "NAME" to list Procedures by Patient Name in alphabetical

 ;;   order.

 ;;Enter "PRIORITY" to list Procedures by degree of urgency, beginning

 ;;   with the most urgent first.

 S BWTAB=5,BWLINL="HELP3" D HELPTX

 Q

 ;

HELP4 ;EP

 ;;"DELINQUENT Procedures" are OPEN Procedures that have remained

 ;;     open past the date they were due to be closed (as determined by

 ;;     the "COMPLETE BY (DATE)" field in the Edit Procedure screen).

 ;;

 ;;"NEW Procedures" are ones that have had lab results downloaded

 ;;     into them, but have not yet been reviewed by a Case Manager.

 ;;

 ;;"OPEN Procedures" are any Procedures that have not yet been closed.

 ;;     (DELINQUENT and NEW Procedures will be included.)

 ;;

 ;;"ALL Procedures" includes DELINQUENT, NEW, OPEN and CLOSED.

 ;;     CLOSED Procedures are ones that have been brought to closure;

 ;;     in other words, a final diagnosis has been entered, the

 ;;     procedure has been completed, and the patient has been notified.

 S BWTAB=5,BWLINL="HELP4" D HELPTX

 Q

 ;

HELP5 ;EP

 ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.

 ;;Answer "ALL" to browse Procedures for ALL Case Managers.

 S BWTAB=5,BWLINL="HELP5" D HELPTX

 Q

 ;

HELPTX ;EP

 ;---> CREATES DIR ARRAY FOR DIR.  REQUIRED VARIABLES: BWTAB,BWLINL.

 N I,T,X S T="" F I=1:1:BWTAB S T=T_" "

 F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;"  S DIR("?",I)=T_$P(X,";;",2)

 S DIR("?")=DIR("?",I-1) K DIR("?",I-1)

 Q

BWBRPCD3  ;IHS/ANMC/MWR - BROWSE PROCEDURES;15-Feb-2003 21:49;PLS

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

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

 +3       ;;  HELP PROMPTS FOR BROWSING PROCEDURES.  CALLED BY BRBRPCD.

 +4       ;

HELP1     ;EP

 +1       ;;Procedures with a result of "ABNORMAL" require further follow-up

 +2       ;;and diagnosis.  Procedures with a result of "NORMAL" require a

 +3       ;;letter of notification to be sent to the patient.

 +4       ;;

 +5       ;;Enter "A" to see only Procedures with ABNORMAL results.

 +6       ;;   (Selecting ABNORMAL will include procedures with a result of

 +7       ;;    INSUFFICIENT TISSUE and procedures with no result entered yet.)

 +8       ;;

 +9       ;;Enter "B" to see BOTH ABNORMAL and NORMAL results.

 +10      ;;  (Selecting NORMAL will include procedures with a result of

 +11      ;;   ERROR/DISREGARD.)

 +12       SET BWTAB=5

           SET BWLINL="HELP1"

           DO HELPTX

 +13       QUIT 

 +14      ;

HELP2     ;EP

 +1       ;;Answer "ONE" to browse Procedures for ONE particular patient.

 +2       ;;Answer "ALL" to browse Procedures for ALL patients.

 +3        SET BWTAB=5

           SET BWLINL="HELP2"

           DO HELPTX

 +4        QUIT 

 +5       ;

HELP3     ;EP

 +1       ;;Enter "DATE" to list Procedures in chronological order beginning

 +2       ;;   with the oldest first.

 +3       ;;Enter "NAME" to list Procedures by Patient Name in alphabetical

 +4       ;;   order.

 +5       ;;Enter "PRIORITY" to list Procedures by degree of urgency, beginning

 +6       ;;   with the most urgent first.

 +7        SET BWTAB=5

           SET BWLINL="HELP3"

           DO HELPTX

 +8        QUIT 

 +9       ;

HELP4     ;EP

 +1       ;;"DELINQUENT Procedures" are OPEN Procedures that have remained

 +2       ;;     open past the date they were due to be closed (as determined by

 +3       ;;     the "COMPLETE BY (DATE)" field in the Edit Procedure screen).

 +4       ;;

 +5       ;;"NEW Procedures" are ones that have had lab results downloaded

 +6       ;;     into them, but have not yet been reviewed by a Case Manager.

 +7       ;;

 +8       ;;"OPEN Procedures" are any Procedures that have not yet been closed.

 +9       ;;     (DELINQUENT and NEW Procedures will be included.)

 +10      ;;

 +11      ;;"ALL Procedures" includes DELINQUENT, NEW, OPEN and CLOSED.

 +12      ;;     CLOSED Procedures are ones that have been brought to closure;

 +13      ;;     in other words, a final diagnosis has been entered, the

 +14      ;;     procedure has been completed, and the patient has been notified.

 +15       SET BWTAB=5

           SET BWLINL="HELP4"

           DO HELPTX

 +16       QUIT 

 +17      ;

HELP5     ;EP

 +1       ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.

 +2       ;;Answer "ALL" to browse Procedures for ALL Case Managers.

 +3        SET BWTAB=5

           SET BWLINL="HELP5"

           DO HELPTX

 +4        QUIT 

 +5       ;

HELPTX    ;EP

 +1       ;---> CREATES DIR ARRAY FOR DIR.  REQUIRED VARIABLES: BWTAB,BWLINL.

 +2        NEW I,T,X

           SET T=""

           FOR I=1:1:BWTAB

               SET T=T_" "

 +3        FOR I=1:1

               SET X=$TEXT(@BWLINL+I)

               IF X'[";;"

                   QUIT 

               SET DIR("?",I)=T_$PIECE(X,";;",2)

 +4        SET DIR("?")=DIR("?",I-1)

           KILL DIR("?",I-1)

 +5        QUIT