| [613] | 1 | SDYQOECL ;ALB/MLI - Routine to put entries in file 409.41 ; 10/6/95 [10/6/95 2:28pm]
|
|---|
| 2 | ;;5.3;Scheduling;**35**,Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine will set the following entries into the OUTPATIENT
|
|---|
| 5 | ; CLASSIFICATION TYPE file (#409.41) so that classification
|
|---|
| 6 | ; questions are no longer asked for stop codes:
|
|---|
| 7 | ;
|
|---|
| 8 | ; 149 - RADIATION THERAPY TREATMENT
|
|---|
| 9 | ; 150 - COMPUTERIZED TOMOGRAPHY (CT)
|
|---|
| 10 | ; 151 - MAGNETIC RESONANCE IMAGING/MRI
|
|---|
| 11 | ; 152 - ANGIOGRAM CATHETERIZATION
|
|---|
| 12 | ; 153 - INTERVENTIONAL RADIOGRAPHY
|
|---|
| 13 | ;
|
|---|
| 14 | EN ; entry point to add stop codes to file 409.41
|
|---|
| 15 | N DA,DIC,DLAYGO,SDYQERR,SDYQSTOP,X,Y
|
|---|
| 16 | S SDYQERR=0
|
|---|
| 17 | W !,">>>Adding entries to the OUTPATIENT CLASSIFICATION STOP CODE EXCEPTION",!?4,"file (#409.45)..."
|
|---|
| 18 | F SDYQSTOP=149:1:153 D
|
|---|
| 19 | . W !?4,"Stop code ",SDYQSTOP
|
|---|
| 20 | . S DA=$O(^SD(409.45,"B",SDYQSTOP,0))
|
|---|
| 21 | . I 'DA D Q:SDYQERR
|
|---|
| 22 | . . K DD,DO
|
|---|
| 23 | . . S X=SDYQSTOP,DIC="^SD(409.45,",DIC(0)="L",DLAYGO=409.45
|
|---|
| 24 | . . D FILE^DICN S DA=+Y
|
|---|
| 25 | . . I Y<0 S SDYQERR=1 W "...could not be added...try again later."
|
|---|
| 26 | . . I Y>0 W "...added to file"
|
|---|
| 27 | . I $O(^SD(409.45,DA,"E","B",2951001,0)) W "...already in file." Q
|
|---|
| 28 | . S DIC="^SD(409.45,"_DA_",""E"",",DIC("P")=$P(^DD(409.45,75,0),"^",2)
|
|---|
| 29 | . S DA(1)=DA,X="2951001",DIC(0)="L",DIC("DR")=".02///1" K DLAYGO
|
|---|
| 30 | . K DD,DO
|
|---|
| 31 | . D FILE^DICN
|
|---|
| 32 | . W "...as of 10/1/95."
|
|---|
| 33 | Q
|
|---|
