ACHSDN1 ; IHS/ITSC/PMF - DENIAL DATA ENTRY (2/2) ;
;;3.1;CONTRACT HEALTH MGMT SYSTEM;**18**;JUN 11,2001
;
;3.1*6 4.21.03 IHS/SET/FCJ CHANGED TO ALLOW ICD9
; INPUT FOR MEDICAL SERVICE
;3.1*10 4.21.04 IHS/SET/FCJ ADDED VARS FROM REF AS DEFAULT
;3.1*11 8.26.04 IHS/SET/FCJ TEST MED PRI OF 1NUM 1APLHA
;3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT
;
PRMPRV ;EP.
S Y="YES"
;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ ADDED NXT LINE
S Y1="" I $G(ACHSREF(.07)) S Y1=$P(^AUTTVNDR(ACHSREF(.07),0),U) G P1
S X=$$DN^ACHS(100,1) ;'CHS DENIAL DATA'- 'IS PRIMARY PROVIDER ON FILE?'
I $L(X) S Y=$S(X="N":"NO",1:"YES")
S %=$$DIR^ACHS("Y","Is the PRIMARY PROVIDER in the VENDOR file?",Y,"","^D Q1^ACHSDN2",2)
Q:$D(DTOUT)!$D(DUOUT)
G P2:'%
;
P1 ;
;IF PRIMARY PROVIDER ON-FILE ASK FLDS 102 'PRIMARY PROVIDER (ON-FILE)'
; 108 'EST. CHARGE (PRIM. PROV.)'
; 109 'ACTUAL CHARGES (PRIM. PROV.)'
;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ CMT OUT NXT LINE ADDED NXT 2 LINES
;I '$$DIE^ACHSDN("100///Y;102;108;109",2) Q
S DR=$S($G(ACHSREF):"100///Y;102//"_Y1_";108;109",1:"100///Y;102;108;109")
I '$$DIE^ACHSDN(DR,2) Q
;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ NXT 2 LNS FIXED NOT BEING ABLE TO EXIT
;G PRMPRV:$D(Y)
I $D(Y) S ACHSERR=1 Q
;
;IF WE HAVE A 'PRIMARY PROVIDER POINTER DELETE THE 103 FIELD
;'PRIMARY PROVIDER (NOT ON-FILE)' DO A CHECK
I $L($$DN^ACHS(100,2)) G:$$DIE^ACHSDN("103///@",2) PROVCK Q
W !!,"A primary provider must be entered - try again.",!!
G PRMPRV
;
P2 ;
I '$$DIE^ACHSDN("100///N;103:109",2) Q
G PRMPRV:$D(Y)
I $L($$DN^ACHS(100,3)),'$$DIE^ACHSDN("102///@",2) Q
;
;
PROVCK ;
I $L($$DN^ACHS(100,2))!$L($$DN^ACHS(100,3)) G OTHER
W !!,*7,"A primary provider must be entered - try again."
G PRMPRV
;
OTHER ;
Q:$D(ACHDSP)
S %=$$DIR^ACHS("Y","Are there any other providers (vendors)?","NO","","^D PQ^ACHSDN1",2)
G PRMPRV:$D(DTOUT)!$D(DUOUT),PROV:%,ACCT
;
PROV ;
S %=$$DIR^ACHS("Y","Is this provider in the vendor file?","YES","","^D Q1^ACHSDN2",2)
G OTHER:$D(DUOUT)!$D(DTOUT)
G O1:%,O2
;
O1 ;
I '$$DIE^ACHSDN(200,2) Q ;EDIT 'OTHER PROVIDER (ON-FILE)'
G OTHER
;
O2 ;
I '$$DIE^ACHSDN(210,2) Q ;EDIT 'OTHER PROVIDER (NOT ON FILE)'
G OTHER
;
ACCT ;
I '$$DIE^ACHSDN(950,2) Q ;EDIT 'PROVIDER ACCOUNT NUMBER'
;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT
G PRMPRV:$D(Y)
TYPE ;
;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ CMT OUT NXT LINE ADDED NXT 3 LINES
;I '$$DIE^ACHSDN(110,2) Q ;EDIT 'TYPE OF SERVICE'
S Y=$S($G(ACHSREF(.14))="O":"OUTPATIENT",$G(ACHSREF(.14))="I":"INPATIENT",1:"")
S DR=$S($G(ACHSREF):"110//"_Y,1:110)
I '$$DIE^ACHSDN(DR,2) Q ;EDIT 'TYPE OF SERVICE'
;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT CHG NXT LNE
;G PRMPRV:$D(Y) ;ACHS*3.1*13
G ACCT:$D(Y) ;ACHS*3.1*13
I '$L($$DN^ACHS(100,10)) W !!,*7,"A TYPE-OF-SERVICE entry must be entered - try again.",!! G TYPE
D REASON^ACHSDN2 ;ENTER 'DENIAL REASONS'
;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT
I ACHSERR S ACHSERR="" G TYPE
Q:$D(DUOUT)
MEDPRI ;
;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ CMT OUT NXT LINE ADDED NXT 3 LINES
;I '$$DIE^ACHSDN(420,2) Q ;ENTER 'MEDICAL PRIORITY CATEGORY'
I $G(ACHSREF(.32))?1A.A S Y=ACHSREF(.32) D
.S ACHSREF(.32)=$S(Y="I":1,Y="II":2,Y="III":3,Y="IV":4,Y="V":5,1:"")
;3.1*11 8.26.04 IHS/SET/FCJ TEST MED PRI OF 1NUM 1APLHA
;I $G(ACHSREF(.32))>5 S ACHSREF(.32)=""
I +$G(ACHSREF(.32))>5 S ACHSREF(.32)=""
;S Y=$S($G(ACHSREF(.32)):$P(^ACHSMPRI(ACHSREF(.32),0),U),1:"")
S Y=$S($G(ACHSREF(.32)):$P(^ACHSMPRI(+$G(ACHSREF(.32)),0),U),1:"")
S DR=$S($G(ACHSREF):"420//"_Y,1:420)
I '$$DIE^ACHSDN(DR,2) Q ;ENTER 'MEDICAL PRIORITY CATEGORY'
I $D(Y) G TYPE
D PRIORCK^ACHSDN2 ;CHECK IF ENTERED
Q:$D(DUOUT)
G MEDPRI:'Y
;
;
DIAG ;
G ICD9:$$DN^ACHS(100,10)="I" ;IF 'TYPE OF SERVICE' INPATIENT
;ACHS*3.1*6 4.21.03 IHS/SET/FCJ CHANGE OUTPATIENT TO DENTAL
;G CPT:$$DN^ACHS(100,10)="O" ;IF 'TYPE OF SERVICE' OUTPATIENT ;ACHS*3.1*6
G CPT:$$DN^ACHS(100,10)="D" ;IF 'TYPE OF SERVICE' DENTAL ;ACHS*3.1*6
ICD9 ;
I '$$DIE^ACHSDN(500,2) Q ;EDIT 'DIAGNOSIS (ICD9)
G MEDPRI:$D(Y)
;G DXCK SEE COMMENT UNDER TAG DXCK ;CHECK THAT DIAG IS ENTERED
;
CPT ;
I '$$DIE^ACHSDN(700,2) Q ;EDIT 'PROCEDURE (CPT)
G MEDPRI:$D(Y)
;G DXCK SEE COMMENT UNDER TAG DXCK ;CHECK THAT DIAG IS ENTERED
DXCK ;
;I '$D(^ACHSDEN(DUZ(2),"D",ACHSA,500)) G DIAG DIAGNOSIS ICD9 NOT
;NOT REQUIRED PER CHS WORKGROUP 2/22/2001
;I '$D(^ACHSDEN(DUZ(2),"D",ACHSA,700)) W !!,*7,"At least one PROCEDURE is required.",!! G CPT NOT REQUIRED PER CHS WORKGROUP 2/22/2001
;
;EDIT 'OTHER RESOURCES' THESE ARE PRIVATE AND GOV. INSURANCE
RESC ;
W !!
K DIC("A")
I '$D(^ACHSDEN(DUZ(2),"D",ACHSA,800,0)) S ^ACHSDEN(DUZ(2),"D",ACHSA,800,0)=$$ZEROTH^ACHS(9002071,1,800)
;
S DA(2)=DUZ(2)
S DA(1)=ACHSA
S DIC="^ACHSDEN("_DUZ(2)_",""D"","_ACHSA_",800,"
;
S DIC(0)="QALEM"
D ^DIC
G MEDPRI:X[U
G IHSRES:Y<1
;
;EDIT FIELDS 2-10 SUBFILE 'OTHER RESOURCES'
S DA=+Y
S DA(2)=DUZ(2)
S DA(1)=ACHSA
S DIE=DIC
S DR="2;3;6;8;4;5;9;10"
S DR="2:10"
D ^DIE
;10/24/01 pmf replace next line
;Y is not an output of ^DIE, so why go somewhere based on it?
;besides, we want to ask for another alt resource
;G:$D(Y) DIAG
G RESC
;
;EDIT 'OTHER IHS RESOURCES' OTHER FACILITIES THAT MAY HONOR
;A REQUEST FOR SERVICE
IHSRES ;
;
W !!
I '$D(^ACHSDEN(DUZ(2),"D",ACHSA,825,0)) S ^ACHSDEN(DUZ(2),"D",ACHSA,825,0)=$$ZEROTH^ACHS(9002071,1,825)
;
S DA(2)=DUZ(2)
S DA(1)=ACHSA
S DIC="^ACHSDEN("_DUZ(2)_",""D"","_ACHSA_",825,"
S DIC(0)="QALEM"
D ^DIC
G RESC:X[U
G DOCCK:Y<1
;
;
DOCCK ;
W !!
K DIR
S DIR(0)="Y"
S DIR("A")="Enter Document Control Information Now"
S DIR("B")="NO"
S DIR("?",1)="Answer 'Y' if patient or their representative is picking up the document in person."
S DIR("?")="Answer 'N' if document is being mailed."
D ^DIR
K DIR
G RESC:X[U
I 'Y G COMMENT
I '$$DIE^ACHSDN("850////Y") Q ;FORCE ENTRY INTO 'DOCUMENT CONTROL'
G RESC:$D(Y)
I '$$DIE^ACHSDN("851:853",2) Q ;EDIT 'RECEIPT TYPE'
; 'DATE DENIAL RECEIVED'
; 'PERSON RECEIVING DENIAL'
G RESC:$D(Y)
I '$$DIE^ACHSDN(900,2) Q ;EDIT 'CHS OFFICE COMMENTS'
END ;
K DTOUT,DUOUT,ACHDENR
Q
;
PQ ;EP - From DIR
W !!,"If there are other vendors which must be provided with a copy of",!,"this denial letter, answer 'Y'. If not, answer 'N'."
Q
;
ACHSDN1 ; IHS/ITSC/PMF - DENIAL DATA ENTRY (2/2) ;
+1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**18**;JUN 11,2001
+2 ;
+3 ;3.1*6 4.21.03 IHS/SET/FCJ CHANGED TO ALLOW ICD9
+4 ; INPUT FOR MEDICAL SERVICE
+5 ;3.1*10 4.21.04 IHS/SET/FCJ ADDED VARS FROM REF AS DEFAULT
+6 ;3.1*11 8.26.04 IHS/SET/FCJ TEST MED PRI OF 1NUM 1APLHA
+7 ;3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT
+8 ;
PRMPRV ;EP.
+1 SET Y="YES"
+2 ;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ ADDED NXT LINE
+3 SET Y1=""
IF $GET(ACHSREF(.07))
SET Y1=$PIECE(^AUTTVNDR(ACHSREF(.07),0),U)
GOTO P1
+4 ;'CHS DENIAL DATA'- 'IS PRIMARY PROVIDER ON FILE?'
SET X=$$DN^ACHS(100,1)
+5 IF $LENGTH(X)
SET Y=$SELECT(X="N":"NO",1:"YES")
+6 SET %=$$DIR^ACHS("Y","Is the PRIMARY PROVIDER in the VENDOR file?",Y,"","^D Q1^ACHSDN2",2)
+7 IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+8 IF '%
GOTO P2
+9 ;
P1 ;
+1 ;IF PRIMARY PROVIDER ON-FILE ASK FLDS 102 'PRIMARY PROVIDER (ON-FILE)'
+2 ; 108 'EST. CHARGE (PRIM. PROV.)'
+3 ; 109 'ACTUAL CHARGES (PRIM. PROV.)'
+4 ;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ CMT OUT NXT LINE ADDED NXT 2 LINES
+5 ;I '$$DIE^ACHSDN("100///Y;102;108;109",2) Q
+6 SET DR=$SELECT($GET(ACHSREF):"100///Y;102//"_Y1_";108;109",1:"100///Y;102;108;109")
+7 IF '$$DIE^ACHSDN(DR,2)
QUIT
+8 ;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ NXT 2 LNS FIXED NOT BEING ABLE TO EXIT
+9 ;G PRMPRV:$D(Y)
+10 IF $DATA(Y)
SET ACHSERR=1
QUIT
+11 ;
+12 ;IF WE HAVE A 'PRIMARY PROVIDER POINTER DELETE THE 103 FIELD
+13 ;'PRIMARY PROVIDER (NOT ON-FILE)' DO A CHECK
+14 IF $LENGTH($$DN^ACHS(100,2))
IF $$DIE^ACHSDN("103///@",2)
GOTO PROVCK
QUIT
+15 WRITE !!,"A primary provider must be entered - try again.",!!
+16 GOTO PRMPRV
+17 ;
P2 ;
+1 IF '$$DIE^ACHSDN("100///N;103:109",2)
QUIT
+2 IF $DATA(Y)
GOTO PRMPRV
+3 IF $LENGTH($$DN^ACHS(100,3))
IF '$$DIE^ACHSDN("102///@",2)
QUIT
+4 ;
+5 ;
PROVCK ;
+1 IF $LENGTH($$DN^ACHS(100,2))!$LENGTH($$DN^ACHS(100,3))
GOTO OTHER
+2 WRITE !!,*7,"A primary provider must be entered - try again."
+3 GOTO PRMPRV
+4 ;
OTHER ;
+1 IF $DATA(ACHDSP)
QUIT
+2 SET %=$$DIR^ACHS("Y","Are there any other providers (vendors)?","NO","","^D PQ^ACHSDN1",2)
+3 IF $DATA(DTOUT)!$DATA(DUOUT)
GOTO PRMPRV
IF %
GOTO PROV
GOTO ACCT
+4 ;
PROV ;
+1 SET %=$$DIR^ACHS("Y","Is this provider in the vendor file?","YES","","^D Q1^ACHSDN2",2)
+2 IF $DATA(DUOUT)!$DATA(DTOUT)
GOTO OTHER
+3 IF %
GOTO O1
GOTO O2
+4 ;
O1 ;
+1 ;EDIT 'OTHER PROVIDER (ON-FILE)'
IF '$$DIE^ACHSDN(200,2)
QUIT
+2 GOTO OTHER
+3 ;
O2 ;
+1 ;EDIT 'OTHER PROVIDER (NOT ON FILE)'
IF '$$DIE^ACHSDN(210,2)
QUIT
+2 GOTO OTHER
+3 ;
ACCT ;
+1 ;EDIT 'PROVIDER ACCOUNT NUMBER'
IF '$$DIE^ACHSDN(950,2)
QUIT
+2 ;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT
+3 IF $DATA(Y)
GOTO PRMPRV
TYPE ;
+1 ;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ CMT OUT NXT LINE ADDED NXT 3 LINES
+2 ;I '$$DIE^ACHSDN(110,2) Q ;EDIT 'TYPE OF SERVICE'
+3 SET Y=$SELECT($GET(ACHSREF(.14))="O":"OUTPATIENT",$GET(ACHSREF(.14))="I":"INPATIENT",1:"")
+4 SET DR=$SELECT($GET(ACHSREF):"110//"_Y,1:110)
+5 ;EDIT 'TYPE OF SERVICE'
IF '$$DIE^ACHSDN(DR,2)
QUIT
+6 ;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT CHG NXT LNE
+7 ;G PRMPRV:$D(Y) ;ACHS*3.1*13
+8 ;ACHS*3.1*13
IF $DATA(Y)
GOTO ACCT
+9 IF '$LENGTH($$DN^ACHS(100,10))
WRITE !!,*7,"A TYPE-OF-SERVICE entry must be entered - try again.",!!
GOTO TYPE
+10 ;ENTER 'DENIAL REASONS'
DO REASON^ACHSDN2
+11 ;ACHS*3.1*13 12.1.06 IHS/OIT/FCJ ADDED ABILITY TO "^" OUT
+12 IF ACHSERR
SET ACHSERR=""
GOTO TYPE
+13 IF $DATA(DUOUT)
QUIT
MEDPRI ;
+1 ;ACHS*3.1*10 4.21.04 IHS/ITSC/FCJ CMT OUT NXT LINE ADDED NXT 3 LINES
+2 ;I '$$DIE^ACHSDN(420,2) Q ;ENTER 'MEDICAL PRIORITY CATEGORY'
+3 IF $GET(ACHSREF(.32))?1A.A
SET Y=ACHSREF(.32)
Begin DoDot:1
+4 SET ACHSREF(.32)=$SELECT(Y="I":1,Y="II":2,Y="III":3,Y="IV":4,Y="V":5,1:"")
End DoDot:1
+5 ;3.1*11 8.26.04 IHS/SET/FCJ TEST MED PRI OF 1NUM 1APLHA
+6 ;I $G(ACHSREF(.32))>5 S ACHSREF(.32)=""
+7 IF +$GET(ACHSREF(.32))>5
SET ACHSREF(.32)=""
+8 ;S Y=$S($G(ACHSREF(.32)):$P(^ACHSMPRI(ACHSREF(.32),0),U),1:"")
+9 SET Y=$SELECT($GET(ACHSREF(.32)):$PIECE(^ACHSMPRI(+$GET(ACHSREF(.32)),0),U),1:"")
+10 SET DR=$SELECT($GET(ACHSREF):"420//"_Y,1:420)
+11 ;ENTER 'MEDICAL PRIORITY CATEGORY'
IF '$$DIE^ACHSDN(DR,2)
QUIT
+12 IF $DATA(Y)
GOTO TYPE
+13 ;CHECK IF ENTERED
DO PRIORCK^ACHSDN2
+14 IF $DATA(DUOUT)
QUIT
+15 IF 'Y
GOTO MEDPRI
+16 ;
+17 ;
DIAG ;
+1 ;IF 'TYPE OF SERVICE' INPATIENT
IF $$DN^ACHS(100,10)="I"
GOTO ICD9
+2 ;ACHS*3.1*6 4.21.03 IHS/SET/FCJ CHANGE OUTPATIENT TO DENTAL
+3 ;G CPT:$$DN^ACHS(100,10)="O" ;IF 'TYPE OF SERVICE' OUTPATIENT ;ACHS*3.1*6
+4 ;IF 'TYPE OF SERVICE' DENTAL ;ACHS*3.1*6
IF $$DN^ACHS(100,10)="D"
GOTO CPT
ICD9 ;
+1 ;EDIT 'DIAGNOSIS (ICD9)
IF '$$DIE^ACHSDN(500,2)
QUIT
+2 IF $DATA(Y)
GOTO MEDPRI
+3 ;G DXCK SEE COMMENT UNDER TAG DXCK ;CHECK THAT DIAG IS ENTERED
+4 ;
CPT ;
+1 ;EDIT 'PROCEDURE (CPT)
IF '$$DIE^ACHSDN(700,2)
QUIT
+2 IF $DATA(Y)
GOTO MEDPRI
+3 ;G DXCK SEE COMMENT UNDER TAG DXCK ;CHECK THAT DIAG IS ENTERED
DXCK ;
+1 ;I '$D(^ACHSDEN(DUZ(2),"D",ACHSA,500)) G DIAG DIAGNOSIS ICD9 NOT
+2 ;NOT REQUIRED PER CHS WORKGROUP 2/22/2001
+3 ;I '$D(^ACHSDEN(DUZ(2),"D",ACHSA,700)) W !!,*7,"At least one PROCEDURE is required.",!! G CPT NOT REQUIRED PER CHS WORKGROUP 2/22/2001
+4 ;
+5 ;EDIT 'OTHER RESOURCES' THESE ARE PRIVATE AND GOV. INSURANCE
RESC ;
+1 WRITE !!
+2 KILL DIC("A")
+3 IF '$DATA(^ACHSDEN(DUZ(2),"D",ACHSA,800,0))
SET ^ACHSDEN(DUZ(2),"D",ACHSA,800,0)=$$ZEROTH^ACHS(9002071,1,800)
+4 ;
+5 SET DA(2)=DUZ(2)
+6 SET DA(1)=ACHSA
+7 SET DIC="^ACHSDEN("_DUZ(2)_",""D"","_ACHSA_",800,"
+8 ;
+9 SET DIC(0)="QALEM"
+10 DO ^DIC
+11 IF X[U
GOTO MEDPRI
+12 IF Y<1
GOTO IHSRES
+13 ;
+14 ;EDIT FIELDS 2-10 SUBFILE 'OTHER RESOURCES'
+15 SET DA=+Y
+16 SET DA(2)=DUZ(2)
+17 SET DA(1)=ACHSA
+18 SET DIE=DIC
+19 SET DR="2;3;6;8;4;5;9;10"
+20 SET DR="2:10"
+21 DO ^DIE
+22 ;10/24/01 pmf replace next line
+23 ;Y is not an output of ^DIE, so why go somewhere based on it?
+24 ;besides, we want to ask for another alt resource
+25 ;G:$D(Y) DIAG
+26 GOTO RESC
+27 ;
+28 ;EDIT 'OTHER IHS RESOURCES' OTHER FACILITIES THAT MAY HONOR
+29 ;A REQUEST FOR SERVICE
IHSRES ;
+1 ;
+2 WRITE !!
+3 IF '$DATA(^ACHSDEN(DUZ(2),"D",ACHSA,825,0))
SET ^ACHSDEN(DUZ(2),"D",ACHSA,825,0)=$$ZEROTH^ACHS(9002071,1,825)
+4 ;
+5 SET DA(2)=DUZ(2)
+6 SET DA(1)=ACHSA
+7 SET DIC="^ACHSDEN("_DUZ(2)_",""D"","_ACHSA_",825,"
+8 SET DIC(0)="QALEM"
+9 DO ^DIC
+10 IF X[U
GOTO RESC
+11 IF Y<1
GOTO DOCCK
+12 ;
+13 ;
DOCCK ;
+1 WRITE !!
+2 KILL DIR
+3 SET DIR(0)="Y"
+4 SET DIR("A")="Enter Document Control Information Now"
+5 SET DIR("B")="NO"
+6 SET DIR("?",1)="Answer 'Y' if patient or their representative is picking up the document in person."
+7 SET DIR("?")="Answer 'N' if document is being mailed."
+8 DO ^DIR
+9 KILL DIR
+10 IF X[U
GOTO RESC
+11 IF 'Y
GOTO COMMENT
+12 ;FORCE ENTRY INTO 'DOCUMENT CONTROL'
IF '$$DIE^ACHSDN("850////Y")
QUIT
+13 IF $DATA(Y)
GOTO RESC
+14 ;EDIT 'RECEIPT TYPE'
IF '$$DIE^ACHSDN("851:853",2)
QUIT
+15 ; 'DATE DENIAL RECEIVED'
+16 ; 'PERSON RECEIVING DENIAL'
+17 IF $DATA(Y)
GOTO RESC
+1 ;EDIT 'CHS OFFICE COMMENTS'
IF '$$DIE^ACHSDN(900,2)
QUIT
END ;
+1 KILL DTOUT,DUOUT,ACHDENR
+2 QUIT
+3 ;
PQ ;EP - From DIR
+1 WRITE !!,"If there are other vendors which must be provided with a copy of",!,"this denial letter, answer 'Y'. If not, answer 'N'."
+2 QUIT
+3 ;
