source: FOIAVistA/tag/r/QUASAR-ACKQ/ACKQHLP.m@ 634

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

initial load of FOIAVistA 6/30/08 version

File size: 4.8 KB
Line 
1ACKQHLP ;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
11DDHLP ;DISPLAY HELP TEXT FROM DD'S FIELD DESCRIPTION
12 W @IOF
13DDHLP1 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
16PROC ;
17 F Q:ACKTXT'["|" S EXP=$P(ACKTXT,"|",2) D RESOLV S ACKTXT=$P(ACKTXT,"|")_EXP_$P(ACKTXT,"|",3,245)
18 Q
19RESOLV ;
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 ;
26CPTEXT ; 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
611 ;;
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=""|
722 ;;
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 ;;
793 ;;
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 ;;
854 ;;
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 ;;
926 ;;
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 ;;
Note: See TracBrowser for help on using the repository browser.