source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXBHLP3.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1PXBHLP3 ;ISL/JVS,ALB/Zoltan - HELP FOR DIAGNOSIS ;10/30/98
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,19,62**;Aug 12, 1996
3 ;
4 ;
5 ; If you edit the text be sure to change the length next to the TAG
6 ; eg=== ;;4
7 ; you can put a line feed '!' at the end of the last line if necessary.
8 ;
9 ;
10 W !,"THIS IS NOT AN ENTRY POINT " Q
11INTRO ;;6
12 W !,"Enter a DIAGNOSIS associated with this patient ENCOUNTER."
13 W !,"You can enter partial names to receive a short list."
14 W !,"Above is a list of DIAGNOSES already entered. If there are any"
15 W !,"additional ones, they should be entered at this time."
16 W !," * indicates that this entry has been visited during this session."
17 I $G(WHAT)="INTV" W !,"a '^^' (double up arrow) will take you out of the interview"
18 W !,"For more detailed ",IOINHI,"HELP",IOINLOW," and selection lists enter ",IOINHI,"??",IOINLOW,!
19 Q
20BODY ;;12
21 W !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"
22 W !
23 W !," ",IOINHI,"A",IOINLOW," to get help on how to ADD diagnoses."
24 W !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE diagnoses."
25 W !," ",IOINHI,"E",IOINLOW," to get help on how to EDIT diagnoses."
26 W !
27 W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
28 W !
29 W !," ",IOINHI,"1",IOINLOW," to get a list of ALL active diagnoses."
30 W !," ",IOINHI,"2",IOINLOW," to get a list of PATIENT PROBLEMS."
31 W !," ",IOINHI,"3",IOINLOW," to get a list of CLINIC diagnoses."
32 W !," ",IOINHI,"4",IOINLOW," to get a list of ENCOUNTER FORM diagnoses."
33 Q
34A ;;5
35 W !,"To ",IOINHI,"ADD",IOINLOW," a DIAGNOSIS enter one of the following:"
36 W !," DIAGNOSIS NAME (eg. GASTROPARESIS)"
37 W !," PARTIAL NAME of the DIAGNOSIS at least 3 letters in length(eg. GAS or GASTRO)"
38 W !," ICD CODE number (eg 536.3)"
39 W !," Several ICD CODE numbers at once (eg 536.3,250.61)"
40 Q
41E ;;10
42 W !,"To ",IOINHI,"EDIT",IOINLOW," a DIAGNOSIS enter one of the following:"
43 W !," DIAGNOSIS NAME (eg. GASTROPARESIS)"
44 W !," ICD CODE (eg 536.3)"
45 W !," ITEM NUMBER on the left side of the list of the DIAGNOSES (eg. 7)"
46 W !
47 W !,"To move the PRIMARY designation from one diagnosis to another do the following:"
48 W !," select the current primary diagnosis"
49 W !," answer NO to the primary diagnosis prompt"
50 W !," select the new primary diagnosis"
51 W !," answer YES to the primary diagnosis prompt"
52 Q
53D ;;3
54 W !,"To ",IOINHI,"DELETE",IOINLOW," a DIAGNOSIS enter one of the following:"
55 W !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
56 W !," Multiple ITEM NUMBERS can be selected (eg. @1,3,5 or @1-3,6,9)"
57 Q
58PROMPT ;---Prompt for the help prompt
59 N DIR,OK,POSS
60 D WIN17^PXBCC(PXBCNT)
61 W !!,"Enter '^' to leave HELP CENTER"
62 W !,"Enter a letter or number for additional help: "
63 R Y:DTIME
64 S POSS="aAdDeE1234^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y
65 S TAG=$TR(TAG,"aed","AED")
66 I POSS'[Y!($L(Y)>1) S TAG="BODY"
67 ;
68 ;
69 Q
70ROUTINE ;---routine executed when selection lists are selected
71 ;W !,"ROUTINES FOR SELECTION LISTS"
721 ;;10
73 S (Y,DATA,EDATA,UDATA)=$$DOUBLE^PXBGPOV2(WHAT)
74 Q
752 ;;10
76 S (FPL,PXBSPL)="" S (Y,DATA,EDATA,UDATA)=$P($P($$DOUBLE1^PXBGPL2(WHAT),"^",2)," ",1)
77 Q
783 ;;10
79 S (Y,DATA,EDATA,UDATA)=$$DOUBLE1^PXBGPOV3(WHAT)
80 Q
814 ;;10
82 S (Y,DATA,EDATA,UDATA)=$$DOUBLE1^PXBGPOV4(WHAT)
83 Q
Note: See TracBrowser for help on using the repository browser.