PXBHLP3 ;ISL/JVS,ALB/Zoltan - HELP FOR DIAGNOSIS ;10/30/98
;;1.0;PCE PATIENT CARE ENCOUNTER;**11,19,62,199**;Aug 12, 1996;Build 51
;
;
; If you edit the text be sure to change the length next to the TAG
; e.g.=== ;;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
N PXACSREC S PXACSREC=$$ACTDT^PXDXUTL($S($G(IDATE)'="":IDATE,1:DT))
W !,"To ",IOINHI,"ADD",IOINLOW," a DIAGNOSIS enter one of the following:"
W !," DIAGNOSIS NAME (e.g. ",$S($P(PXACSREC,"^",1)="ICD":"GASTROPARESIS",1:"SALMONELLA MENINGITIS"),")"
W !," PARTIAL NAME of the DIAGNOSIS at least 3 letters in length(e.g. ",$S($P(PXACSREC,"^",1)="ICD":"GAS or GASTRO",1:"SAL or SALMON"),")"
W !," ICD CODE number (e.g. ",$S($P(PXACSREC,"^",1)="ICD":"536.3",1:"A02.21"),")"
W !," Several ICD CODE numbers at once (e.g. ",$S($P(PXACSREC,"^",1)="ICD":"536.3,250.61",1:"A02.21,C92.01"),")"
Q
E ;;10
N PXACSREC S PXACSREC=$$ACTDT^PXDXUTL($S($G(IDATE)'="":IDATE,1:DT))
W !,"To ",IOINHI,"EDIT",IOINLOW," a DIAGNOSIS enter one of the following:"
W !," DIAGNOSIS NAME (e.g. ",$S($P(PXACSREC,"^",1)="ICD":"GASTROPARESIS",1:"SALMONELLA MENINGITIS"),")"
W !," ICD CODE (e.g. ",$S($P(PXACSREC,"^",1)="ICD":"536.3",1:"A02.21"),")"
W !," ITEM NUMBER on the left side of the list of the DIAGNOSES (e.g. 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 (e.g. @1 or @3)"
W !," Multiple ITEM NUMBERS can be selected (e.g. @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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXBHLP3 3875 printed Apr 09, 2024@21:30:34 Page 2
PXBHLP3 ;ISL/JVS,ALB/Zoltan - HELP FOR DIAGNOSIS ;10/30/98
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,19,62,199**;Aug 12, 1996;Build 51
+2 ;
+3 ;
+4 ; If you edit the text be sure to change the length next to the TAG
+5 ; e.g.=== ;;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 NEW PXACSREC
SET PXACSREC=$$ACTDT^PXDXUTL($SELECT($GET(IDATE)'="":IDATE,1:DT))
+2 WRITE !,"To ",IOINHI,"ADD",IOINLOW," a DIAGNOSIS enter one of the following:"
+3 WRITE !," DIAGNOSIS NAME (e.g. ",$SELECT($PIECE(PXACSREC,"^",1)="ICD":"GASTROPARESIS",1:"SALMONELLA MENINGITIS"),")"
+4 WRITE !," PARTIAL NAME of the DIAGNOSIS at least 3 letters in length(e.g. ",$SELECT($PIECE(PXACSREC,"^",1)="ICD":"GAS or GASTRO",1:"SAL or SALMON"),")"
+5 WRITE !," ICD CODE number (e.g. ",$SELECT($PIECE(PXACSREC,"^",1)="ICD":"536.3",1:"A02.21"),")"
+6 WRITE !," Several ICD CODE numbers at once (e.g. ",$SELECT($PIECE(PXACSREC,"^",1)="ICD":"536.3,250.61",1:"A02.21,C92.01"),")"
+7 QUIT
E ;;10
+1 NEW PXACSREC
SET PXACSREC=$$ACTDT^PXDXUTL($SELECT($GET(IDATE)'="":IDATE,1:DT))
+2 WRITE !,"To ",IOINHI,"EDIT",IOINLOW," a DIAGNOSIS enter one of the following:"
+3 WRITE !," DIAGNOSIS NAME (e.g. ",$SELECT($PIECE(PXACSREC,"^",1)="ICD":"GASTROPARESIS",1:"SALMONELLA MENINGITIS"),")"
+4 WRITE !," ICD CODE (e.g. ",$SELECT($PIECE(PXACSREC,"^",1)="ICD":"536.3",1:"A02.21"),")"
+5 WRITE !," ITEM NUMBER on the left side of the list of the DIAGNOSES (e.g. 7)"
+6 WRITE !
+7 WRITE !,"To move the PRIMARY designation from one diagnosis to another do the following:"
+8 WRITE !," select the current primary diagnosis"
+9 WRITE !," answer NO to the primary diagnosis prompt"
+10 WRITE !," select the new primary diagnosis"
+11 WRITE !," answer YES to the primary diagnosis prompt"
+12 QUIT
D ;;3
+1 WRITE !,"To ",IOINHI,"DELETE",IOINLOW," a DIAGNOSIS enter one of the following:"
+2 WRITE !," an '@' followed by the ITEM NUMBER (e.g. @1 or @3)"
+3 WRITE !," Multiple ITEM NUMBERS can be selected (e.g. @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
