1 | ACKQHLP ;AUG/JLTP BIR/PTD-QUASAR Help Text ; [ 11/02/95 15:38 ]
|
---|
2 | ;;3.0;QUASAR;;Feb 11, 2000
|
---|
3 | ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
|
---|
4 | Q:$S('($D(ACKQHLP)#2):1,$E(ACKQHLP)=U:0,$T(@ACKQHLP)="":1,1:0)
|
---|
5 | N ACKTXT,EXP,FIND,I,TAG,X,Y
|
---|
6 | ; If field 100 display narrative for all word processing fields
|
---|
7 | I $E(ACKQHLP)=U,$P(ACKQHLP,"^",2)="509850.6",$P(ACKQHLP,"^",3)="100" D CPTEXT,DDHLP1 Q
|
---|
8 | I $E(ACKQHLP)=U D DDHLP Q
|
---|
9 | F I=1:1 S TAG=ACKQHLP_"+"_I,@("ACKTXT=$P($T("_TAG_"),"";;"",2)") Q:ACKTXT="" D PROC W !,ACKTXT
|
---|
10 | K ACKQHLP Q
|
---|
11 | DDHLP ;DISPLAY HELP TEXT FROM DD'S FIELD DESCRIPTION
|
---|
12 | W @IOF
|
---|
13 | DDHLP1 S X(1)=+$P(ACKQHLP,U,2),X(2)=+$P(ACKQHLP,U,3) Q:$S('X(1):1,'X(2):1,'$D(^DD(X(1),X(2),0)):1,1:0)
|
---|
14 | S I=0 F S I=$O(^DD(X(1),X(2),21,I)) Q:'I S ACKTXT=^(I,0) D PROC W !,ACKTXT
|
---|
15 | K ACKQHLP Q
|
---|
16 | PROC ;
|
---|
17 | F Q:ACKTXT'["|" S EXP=$P(ACKTXT,"|",2) D RESOLV S ACKTXT=$P(ACKTXT,"|")_EXP_$P(ACKTXT,"|",3,245)
|
---|
18 | Q
|
---|
19 | RESOLV ;
|
---|
20 | S X=EXP X ^%ZOSF("UPPERCASE")
|
---|
21 | I Y="TAB" S EXP="",FIND=$F(ACKTXT,"|")-2,$P(EXP," ",FIND\8+1*8-(FIND))="" Q
|
---|
22 | I Y="NOWRAP"!(Y="WRAP") S EXP="" Q ;NOWRAP IS FORCED NO MATTER
|
---|
23 | I $E(Y,1,4)="S X=" X Y S EXP=X Q
|
---|
24 | Q
|
---|
25 | ;
|
---|
26 | CPTEXT ; Display C&P exam for Audio # 1305 worksheet narrative
|
---|
27 | W @IOF,?30,"Compensation and Pension Examination"
|
---|
28 | W ! S X="For AUDIO" D CNTR^ACKQUTL(X)
|
---|
29 | W ! S X="#1305 Worksheet" D CNTR^ACKQUTL(X)
|
---|
30 | W !!," An examination of hearing impairment must be conducted by a state-licensed"
|
---|
31 | W !," audiologist and must include a controlled speech discrimination test"
|
---|
32 | W !," (specifically, the Maryland CNC recording) and a pure tone audiometry test in"
|
---|
33 | W !," a sound isolated booth that meets American National Standards Institute"
|
---|
34 | W !," standards (ANSI S3.1.1991) for ambient noise."
|
---|
35 | W !!," Measurements will be reported at the frequencies of 500, 1000, 2000, 3000,"
|
---|
36 | W !," and 4000 Hz. The examination will include the following tests: pure tone"
|
---|
37 | W !," audiometry by air conduction at 250, 500, 1000, 2000, 3000, 4000 Hz, and 8000"
|
---|
38 | W !," Hz; and by bone conduction at 250, 500, 1000, 2000, 3000, and 4000 Hz;"
|
---|
39 | W !," spondee thresholds; speech recognition using the recorded Maryland CNC Test;"
|
---|
40 | W !," tympanometry; and acoustic reflex tests, and, when necessary, Stenger tests."
|
---|
41 | W !," Bone conduction thresholds are measured when the air conduction thresholds"
|
---|
42 | W !," are poorer than 15 dB HL. A modified Hughson-Westlake procedure will be used"
|
---|
43 | W !," with appropriate masking. A Stenger test must be administered whenever pure"
|
---|
44 | W !," tone air conduction thresholds at 500, 1000, 2000, 3000, and 4000 Hz"
|
---|
45 | W !," differ by 20 dB or more between the two ears."
|
---|
46 | K DIR S DIR(0)="E",DIR("A")="Press RETURN to continue" W ! D ^DIR
|
---|
47 | ;
|
---|
48 | W @IOF,?30,"Compensation and Pension Examination"
|
---|
49 | W ! S X="For AUDIO" D CNTR^ACKQUTL(X)
|
---|
50 | W ! S X="#1305 Worksheet (Continued)" D CNTR^ACKQUTL(X)
|
---|
51 | W !!," Maximum speech recognition will be reported with the 50-word VA-approved"
|
---|
52 | W !," recording of the Maryland CNC test. When speech recognition is 92% or less,"
|
---|
53 | W !," a performance intensity function will be obtained with a starting"
|
---|
54 | W !," presentation level of 40dB re SRT. If necessary, the starting level will be"
|
---|
55 | W !," adjusted upward to obtain a level at least 5 dB above the threshold at 2000"
|
---|
56 | W !," Hz. The examination will be conducted without the use of hearing aids. Both"
|
---|
57 | W !," ears must be examined for hearing impairment even if hearing loss in only one"
|
---|
58 | W !," ear is at issue.",!!
|
---|
59 | ;
|
---|
60 | Q
|
---|
61 | 1 ;;
|
---|
62 | ;;
|
---|
63 | ;; You are selecting a date range for this report. Enter a starting
|
---|
64 | ;; and ending date for which you want the report to run. The report will
|
---|
65 | ;; gather all data beginning with (inclusively) the start date and ending
|
---|
66 | ;; with (inclusively) the ending date.
|
---|
67 | ;;
|
---|
68 | ;; To run the report for a single day's data, specify that date as
|
---|
69 | ;; both the beginning and ending date. Use standard DHCP date format.
|
---|
70 | ;;
|
---|
71 | ;;|S X="" D HELP^%DTC S X=""|
|
---|
72 | 2 ;;
|
---|
73 | ;;
|
---|
74 | ;; The appointments shown here have already been entered for the
|
---|
75 | ;; patient/date you have selected. Answer YES if you wish to edit one
|
---|
76 | ;; of the appointments shown here. If you are trying to enter a new
|
---|
77 | ;; appointment for this patient/date then you should answer NO.
|
---|
78 | ;;
|
---|
79 | 3 ;;
|
---|
80 | ;;
|
---|
81 | ;; Select the C&P exam you wish to adequate. You can select by
|
---|
82 | ;; DATE OF EXAM, by PATIENT NAME, SSN, or initial and last four. You
|
---|
83 | ;; can only choose exams with the status AWAITING ADEQUATION.
|
---|
84 | ;;
|
---|
85 | 4 ;;
|
---|
86 | ;;
|
---|
87 | ;; Subtotals will be shown for clinician(s), other provider(s), or
|
---|
88 | ;; student(s). At this time you must decide whether to count the
|
---|
89 | ;; procedures for a single clinician/other provider/student or to
|
---|
90 | ;; include all.
|
---|
91 | ;;
|
---|
92 | 6 ;;
|
---|
93 | ;;
|
---|
94 | ;; Answer YES if you are ready to enter your electronic
|
---|
95 | ;; signature to release this exam. Answer NO if this exam is
|
---|
96 | ;; not ready to be released to the regional office.
|
---|
97 | ;;
|
---|