| 1 | ACKQAS1 ;AUG/JLTP BIR/PTD HCIOFO/BH-New Clinic Visits - CONTINUED ; [ 04/12/96 10:38 AM ]
|
|---|
| 2 | ;;3.0;QUASAR;;Feb 11, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | LAMD(DFN) ;FIND LATEST AUDIOMETRIC DATA FOR A PATIENT
|
|---|
| 6 | N ACKC,ACKD0,ACKLAMD,X
|
|---|
| 7 | S X=$O(^ACK(509850.6,"AMD",DFN,0)),ACKD0=$O(^ACK(509850.6,"AMD",DFN,+X,0)),ACKLAMD=9999999-X
|
|---|
| 8 | I 'X!('$D(^ACK(509850.6,+ACKD0,0))) Q 0
|
|---|
| 9 | W !!,$C(7),"Audiometric testing for this patient last completed ",$$NUMDT^ACKQUTL(ACKLAMD),"."
|
|---|
| 10 | D PULL2^ACKQCP1 W ! S ACKC=0 F S ACKC=$O(ACKC(ACKC)) Q:('ACKC)!(ACKC>11) W !,ACKC(ACKC)
|
|---|
| 11 | LAMDR S DIR(0)="Y",DIR("A")="Do you wish to use these scores ",DIR("?",1)="If you say YES, I will use these existing audiometric scores and",DIR("?")="you will not be asked to enter audiometric data for the current exam."
|
|---|
| 12 | D ^DIR K DIR
|
|---|
| 13 | I X?1"^"1.E W !,"Jumping not allowed.",! G LAMDR
|
|---|
| 14 | I Y'=1 K Y Q 0
|
|---|
| 15 | K Y Q ACKLAMD_U_$G(^ACK(509850.6,ACKD0,4))
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | ; -----------------------------------------------------------------
|
|---|
| 19 | ;
|
|---|
| 20 | DCXFM ; INPUT TRANSFORM FOR DIAG CODE MODIFIER
|
|---|
| 21 | ; These Modifiers are no longer used after the install for QSR V.3.0
|
|---|
| 22 | W !,$C(7),"After the installation of QUASAR V.3.0 this field is no longer in use !" K X
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | PCXFM ; INPUT TRANSFORM FOR PROC CODE MODIFIER
|
|---|
| 26 | ; These Modifiers are no longer used after the install for QSR V.3.0
|
|---|
| 27 | W !,$C(7),"After the installation of QUASAR V.3.0 this field is no longer in use !" K X
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
