source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXBHLP4.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: 2.8 KB
Line 
1PXBHLP4 ;ISL/JVS,ALB/Zoltan - HELP FOR PROCEDURES (CPT CODES) ;10/30/98
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**62**;Aug 12, 1996
3 ;
4 ;
5 ;
6 ; If you edit the text be sure to change the length next to the TAG
7 ; eg=== ;;4
8 ; you can put a line feed '!' at the end of the last line if necess.
9 ;
10 ;
11 W !,"THIS IS NOT AN ENTRY POINT " Q
12INTRO ;;6
13 W !,"Enter a PROCEDURE associated with this patient ENCOUNTER."
14 W !,"You can enter partial names or code numbers to receive a short list."
15 W !,"Above is a list of PROCEDURES already entered. If there are any"
16 W !,"additional ones, they should be entered at this time."
17 W !," * indicates that this entry has been visited during this session."
18 I $G(WHAT)="INTV" W !,"a '^^' (double up arrow) will take you out of the interview"
19 W !,"For more detailed ",IOINHI,"HELP",IOINLOW," and selection lists enter ",IOINHI,"??",IOINLOW,!
20 Q
21BODY ;;10
22 W !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"
23 W !
24 W !," ",IOINHI,"A",IOINLOW," to get help on how to ADD procedures."
25 W !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE procedures."
26 W !," ",IOINHI,"E",IOINLOW," to get help on how to EDIT procedures."
27 W !
28 W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
29 W !
30 W !," ",IOINHI,"1",IOINLOW," to get a list of ALL active procedures."
31 W !," ",IOINHI,"2",IOINLOW," to get a list of ENCOUNTER FORM procedures"
32 Q
33A ;;4
34 W !,"To ",IOINHI,"ADD",IOINLOW," a PROCEDURE enter one of the following:"
35 W !," PROCEDURE NAME or partial PROCEDURE NAME (eg. ABL or ABLATION)"
36 W !," CPT PROCEDURE CODE (eg 30801)"
37 W !," Several CPT PROCEDURE CODEs at once (eg 30801,10080,10081,27256)"
38 Q
39E ;;8
40 W !,"To ",IOINHI,"EDIT",IOINLOW," a PROCEDURE enter one of the following:"
41 W !," PROCEDURE NAME (eg. ABLATION)"
42 W !," CPT PROCEDURE CODE (eg 30801)"
43 W !," ITEM NUMBER on the left side of the list of the PROCEDURES (eg. 7)"
44 W !
45 W !,"To edit the QUANTITY on a procedure do the following:"
46 W !," select the a current procedure"
47 W !," answer with the quantity at the QUANTITY prompt"
48 Q
49D ;;3
50 W !,"To ",IOINHI,"DELETE",IOINLOW," a PROCEDURE enter one of the following:"
51 W !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
52 W !," Several ITEM NUMBERS can be selected (eg. @1,3,5 or @1-3,6,9)"
53 Q
54PROMPT ;---Prompt for the help prompt
55 N DIR,OK,POSS
56 D WIN17^PXBCC(PXBCNT)
57 W !!,"Enter '^' to leave HELP CENTER"
58 W !,"Enter a letter or number for additional help: "
59 R Y:DTIME
60 S POSS="aAdDeE12^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y
61 S TAG=$TR(TAG,"aed","AED")
62 I POSS'[Y!($L(Y)>1) S TAG="BODY"
63 ;
64 ;
65 Q
66ROUTINE ;---routine executed when selection lists are selected
67 ;W !,"ROUTINES FOR SELECTION LISTS"
681 ;;10
69 S (Y,DATA,EDATA,UDATA)=$$DOUBLE^PXBGCPT2(WHAT)
70 Q
712 ;;10
72 S (Y,DATA,EDATA,UDATA)=$$DOUBLE1^PXBGCPT4(WHAT)
73 Q
74 ;
Note: See TracBrowser for help on using the repository browser.