ACDWSTA2.m

ACDWSTA2 ;IHS/ADC/EDE/KML - BROKE UP ACDWSTAF;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

H ;EP Header

 W @IOF,"CONFIDENTIAL CLIENT INFORMATION UNDER CFR 42 PART 2",!

 ;W !,"PROVIDER REPORT FOR: ",$P(^DIC(16,ACDGVER,0),U)

 W !,"PROVIDER REPORT FOR: ",$P(^VA(200,ACDGVER,0),U)

 S:'$D(ACDPAGE) ACDPAGE=0 S ACDPAGE=ACDPAGE+1 W ?70,"PG ",ACDPAGE

 W !,"DATA CAPTURED FOR: ",$$DD^ACDFUNC(ACDFR)," THROUGH ",$$DD^ACDFUNC(ACDTO)

 W !,ACDH(4)

 W !!!?5,"VISIT",?18,"LOCATION",?31,"CONTACT TYPE",?60,"CLIENT"

 S:'$D(ACD80) $P(ACD80,"=",79)="=" W !,ACD80,!

 Q

ACDWSTA2  ;IHS/ADC/EDE/KML - BROKE UP ACDWSTAF;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

H         ;EP Header

 +1        WRITE @IOF,"CONFIDENTIAL CLIENT INFORMATION UNDER CFR 42 PART 2",!

 +2       ;W !,"PROVIDER REPORT FOR: ",$P(^DIC(16,ACDGVER,0),U)

 +3        WRITE !,"PROVIDER REPORT FOR: ",$PIECE(^VA(200,ACDGVER,0),U)

 +4        IF '$DATA(ACDPAGE)

               SET ACDPAGE=0

           SET ACDPAGE=ACDPAGE+1

           WRITE ?70,"PG ",ACDPAGE

 +5        WRITE !,"DATA CAPTURED FOR: ",$$DD^ACDFUNC(ACDFR)," THROUGH ",$$DD^ACDFUNC(ACDTO)

 +6        WRITE !,ACDH(4)

 +7        WRITE !!!?5,"VISIT",?18,"LOCATION",?31,"CONTACT TYPE",?60,"CLIENT"

 +8        IF '$DATA(ACD80)

               SET $PIECE(ACD80,"=",79)="="

           WRITE !,ACD80,!

 +9        QUIT