PXBHLP3.m

PXBHLP3 ;ISL/JVS,ALB/Zoltan - HELP FOR DIAGNOSIS ;10/30/98

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,19,62**;Aug 12, 1996

 ;

 ;

 ; If you edit the text be sure to change the length next to the TAG

 ;   eg===  ;;4

 ;  you can put a line feed '!' at the end of the last line if necessary.

 ;

 ;

 W !,"THIS IS NOT AN ENTRY POINT " Q

INTRO ;;6

 W !,"Enter a DIAGNOSIS associated with this patient ENCOUNTER."

 W !,"You can enter partial names to receive a short list."

 W !,"Above is a list of DIAGNOSES already entered. If there are any"

 W !,"additional ones, they should be entered at this time."

 W !," * indicates that this entry has been visited during this session."

 I $G(WHAT)="INTV" W !,"a '^^' (double up arrow) will take you out of the interview"

 W !,"For more detailed ",IOINHI,"HELP",IOINLOW," and selection lists enter ",IOINHI,"??",IOINLOW,!

 Q

BODY ;;12

 W !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"

 W !

 W !,"  ",IOINHI,"A",IOINLOW,"   to get help on how to ADD diagnoses."

 W !,"  ",IOINHI,"D",IOINLOW,"   to get help on how to DELETE diagnoses."

 W !,"  ",IOINHI,"E",IOINLOW,"   to get help on how to EDIT diagnoses."

 W !

 W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"

 W !

 W !,"  ",IOINHI,"1",IOINLOW,"   to get a list of ALL active diagnoses."

 W !,"  ",IOINHI,"2",IOINLOW,"   to get a list of PATIENT PROBLEMS."

 W !,"  ",IOINHI,"3",IOINLOW,"   to get a list of CLINIC diagnoses."

 W !,"  ",IOINHI,"4",IOINLOW,"   to get a list of ENCOUNTER FORM diagnoses."

 Q

A ;;5

 W !,"To ",IOINHI,"ADD",IOINLOW," a DIAGNOSIS enter one of the following:"

 W !,"  DIAGNOSIS NAME (eg. GASTROPARESIS)"

 W !,"  PARTIAL NAME of the DIAGNOSIS at least 3 letters in length(eg. GAS or GASTRO)"

 W !,"  ICD CODE number (eg 536.3)"

 W !,"  Several ICD CODE numbers at once (eg 536.3,250.61)"

 Q

E ;;10

 W !,"To ",IOINHI,"EDIT",IOINLOW," a DIAGNOSIS enter one of the following:"

 W !,"  DIAGNOSIS NAME (eg. GASTROPARESIS)"

 W !,"  ICD CODE (eg 536.3)"

 W !,"  ITEM NUMBER on the left side of the list of the DIAGNOSES (eg. 7)"

 W !

 W !,"To move the PRIMARY designation from one diagnosis to another do the following:"

 W !,"  select the current primary diagnosis"

 W !,"  answer NO to the primary diagnosis prompt"

 W !,"  select the new primary diagnosis"

 W !,"  answer YES to the primary diagnosis prompt"

 Q

D ;;3

 W !,"To ",IOINHI,"DELETE",IOINLOW," a DIAGNOSIS enter one of the following:"

 W !,"  an '@' followed by the ITEM NUMBER (eg. @1 or @3)"

 W !,"  Multiple ITEM NUMBERS can be selected (eg. @1,3,5 or @1-3,6,9)"

 Q

PROMPT ;---Prompt for the help prompt

 N DIR,OK,POSS

 D WIN17^PXBCC(PXBCNT)

 W !!,"Enter '^' to leave HELP CENTER"

 W !,"Enter a letter or number for additional help: "

 R Y:DTIME

 S POSS="aAdDeE1234^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y

 S TAG=$TR(TAG,"aed","AED")

 I POSS'[Y!($L(Y)>1) S TAG="BODY"

 ;

 ;

 Q

ROUTINE ;---routine executed when selection lists are selected

 ;W !,"ROUTINES FOR SELECTION LISTS"

1 ;;10

 S (Y,DATA,EDATA,UDATA)=$$DOUBLE^PXBGPOV2(WHAT)

 Q

2 ;;10

 S (FPL,PXBSPL)="" S (Y,DATA,EDATA,UDATA)=$P($P($$DOUBLE1^PXBGPL2(WHAT),"^",2)," ",1)

 Q

3 ;;10

 S (Y,DATA,EDATA,UDATA)=$$DOUBLE1^PXBGPOV3(WHAT)

 Q

4 ;;10

 S (Y,DATA,EDATA,UDATA)=$$DOUBLE1^PXBGPOV4(WHAT)

 Q

PXBHLP3   ;ISL/JVS,ALB/Zoltan - HELP FOR DIAGNOSIS ;10/30/98

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,19,62**;Aug 12, 1996

 +2       ;

 +3       ;

 +4       ; If you edit the text be sure to change the length next to the TAG

 +5       ;   eg===  ;;4

 +6       ;  you can put a line feed '!' at the end of the last line if necessary.

 +7       ;

 +8       ;

 +9        WRITE !,"THIS IS NOT AN ENTRY POINT "

           QUIT 

INTRO     ;;6

 +1        WRITE !,"Enter a DIAGNOSIS associated with this patient ENCOUNTER."

 +2        WRITE !,"You can enter partial names to receive a short list."

 +3        WRITE !,"Above is a list of DIAGNOSES already entered. If there are any"

 +4        WRITE !,"additional ones, they should be entered at this time."

 +5        WRITE !," * indicates that this entry has been visited during this session."

 +6        IF $GET(WHAT)="INTV"

               WRITE !,"a '^^' (double up arrow) will take you out of the interview"

 +7        WRITE !,"For more detailed ",IOINHI,"HELP",IOINLOW," and selection lists enter ",IOINHI,"??",IOINLOW,!

 +8        QUIT 

BODY      ;;12

 +1        WRITE !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"

 +2        WRITE !

 +3        WRITE !,"  ",IOINHI,"A",IOINLOW,"   to get help on how to ADD diagnoses."

 +4        WRITE !,"  ",IOINHI,"D",IOINLOW,"   to get help on how to DELETE diagnoses."

 +5        WRITE !,"  ",IOINHI,"E",IOINLOW,"   to get help on how to EDIT diagnoses."

 +6        WRITE !

 +7        WRITE !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"

 +8        WRITE !

 +9        WRITE !,"  ",IOINHI,"1",IOINLOW,"   to get a list of ALL active diagnoses."

 +10       WRITE !,"  ",IOINHI,"2",IOINLOW,"   to get a list of PATIENT PROBLEMS."

 +11       WRITE !,"  ",IOINHI,"3",IOINLOW,"   to get a list of CLINIC diagnoses."

 +12       WRITE !,"  ",IOINHI,"4",IOINLOW,"   to get a list of ENCOUNTER FORM diagnoses."

 +13       QUIT 

A         ;;5

 +1        WRITE !,"To ",IOINHI,"ADD",IOINLOW," a DIAGNOSIS enter one of the following:"

 +2        WRITE !,"  DIAGNOSIS NAME (eg. GASTROPARESIS)"

 +3        WRITE !,"  PARTIAL NAME of the DIAGNOSIS at least 3 letters in length(eg. GAS or GASTRO)"

 +4        WRITE !,"  ICD CODE number (eg 536.3)"

 +5        WRITE !,"  Several ICD CODE numbers at once (eg 536.3,250.61)"

 +6        QUIT 

E         ;;10

 +1        WRITE !,"To ",IOINHI,"EDIT",IOINLOW," a DIAGNOSIS enter one of the following:"

 +2        WRITE !,"  DIAGNOSIS NAME (eg. GASTROPARESIS)"

 +3        WRITE !,"  ICD CODE (eg 536.3)"

 +4        WRITE !,"  ITEM NUMBER on the left side of the list of the DIAGNOSES (eg. 7)"

 +5        WRITE !

 +6        WRITE !,"To move the PRIMARY designation from one diagnosis to another do the following:"

 +7        WRITE !,"  select the current primary diagnosis"

 +8        WRITE !,"  answer NO to the primary diagnosis prompt"

 +9        WRITE !,"  select the new primary diagnosis"

 +10       WRITE !,"  answer YES to the primary diagnosis prompt"

 +11       QUIT 

D         ;;3

 +1        WRITE !,"To ",IOINHI,"DELETE",IOINLOW," a DIAGNOSIS enter one of the following:"

 +2        WRITE !,"  an '@' followed by the ITEM NUMBER (eg. @1 or @3)"

 +3        WRITE !,"  Multiple ITEM NUMBERS can be selected (eg. @1,3,5 or @1-3,6,9)"

 +4        QUIT 

PROMPT    ;---Prompt for the help prompt

 +1        NEW DIR,OK,POSS

 +2        DO WIN17^PXBCC(PXBCNT)

 +3        WRITE !!,"Enter '^' to leave HELP CENTER"

 +4        WRITE !,"Enter a letter or number for additional help: "

 +5        READ Y:DTIME

 +6        SET POSS="aAdDeE1234^"

           IF POSS[Y

               IF $LENGTH(Y)=1!(Y="")

                   SET TAG=Y

 +7        SET TAG=$TRANSLATE(TAG,"aed","AED")

 +8        IF POSS'[Y!($LENGTH(Y)>1)

               SET TAG="BODY"

 +9       ;

 +10      ;

 +11       QUIT 

ROUTINE   ;---routine executed when selection lists are selected

 +1       ;W !,"ROUTINES FOR SELECTION LISTS"

1         ;;10

 +1        SET (Y,DATA,EDATA,UDATA)=$$DOUBLE^PXBGPOV2(WHAT)

 +2        QUIT 

2         ;;10

 +1        SET (FPL,PXBSPL)=""

           SET (Y,DATA,EDATA,UDATA)=$PIECE($PIECE($$DOUBLE1^PXBGPL2(WHAT),"^",2)," ",1)

 +2        QUIT 

3         ;;10

 +1        SET (Y,DATA,EDATA,UDATA)=$$DOUBLE1^PXBGPOV3(WHAT)

 +2        QUIT 

4         ;;10

 +1        SET (Y,DATA,EDATA,UDATA)=$$DOUBLE1^PXBGPOV4(WHAT)

 +2        QUIT