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