APCDEFP ; IHS/CMI/LAB - APCD Auto Print PCC Encounter Form ; 16 Oct 2012 6:19 PM
;;2.0;IHS PCC SUITE;**4,11**;MAY 14, 2009;Build 58
;
;This routine will print out an automated PCC encounter form for
;a particular visit.
;
;
MAIN ;EP -- loop through temp and print out the data
S APCDIOSL=IOSL
S APCDLN="",$P(APCDLN,"-",79)="-"
S APCLSTAR="",$P(APCLSTAR,"*",79)="*"
S APCLUS="",$P(APCLUS,"_",79)="_"
S APCDFF="I $Y>(IOSL-5) D FF^APCDEFU Q:APCDQ"
D HEAD^APCDEFU
I '$D(^XTMP(APCDJ,APCDH,"APCDEF")) W !!,"No visit information" Q
D PRT
D FOOT^APCDEFU
D DONE^APCDEFU
Q
;
PRT ;-- loop through and write the data
I APCDVCC]"" W !,"Chief Complaint: ",APCDVCC W !,APCDLN
I APCDVFLG]""!(APCDVDP]"") W !,"Flag: ",APCDVFLG,?40,"Disposition: ",APCDVDP W !,APCDLN
;
S APCDPDA=0 F S APCDPDA=$O(@APCDATMP@(APCDPDA)) Q:'APCDPDA!($G(APCDQ)) D
. S APCDPDFN=0 F S APCDPDFN=$O(@APCDATMP@(APCDPDA,APCDPDFN)) Q:APCDPDFN=""!($G(APCDQ)) D
.. S APCDP="W"_APCDPDFN
.. Q:$T(@APCDP)=""
.. D @APCDP
.. Q:$G(APCDQ)
Q
;
WVMSR ;-- write out v measurement
X APCDFF
S APCDPC=3,APCDC=0
W !,"Measurements",!
S APCDIEN="" F S APCDIEN=$O(APCDMSR(APCDIEN)) Q:APCDIEN="" D
. S APCDTA=$P(APCDMSR(APCDIEN),U,1)
. I APCDTA="AUD" W !?3,APCDTA_":"_$P($G(APCDMSR(APCDIEN)),U,2) S APCDPC=3,APCDC=0 Q
. S APCDC=APCDC+1
. I APCDC=1 W !
. W ?APCDPC,APCDTA_": "_$S($L(APCDTA)=2:" ",1:"")_$P($G(APCDMSR(APCDIEN)),U,2) S J=$P(APCDMSR(APCDIEN),U,3) F I=1:1 S P=$P(J,"|",I) Q:P="" W " ",P
. S APCDPC=APCDPC+40
. I APCDC=2 S APCDC=0,APCDPC=3
K APCDMSR,APCDT,APCDV,APCDPC
W !,APCDLN
Q
;
WVXAM ;-- write out v exam
X APCDFF
W !,"Examinations",!
S APCDTA=0 F S APCDTA=$O(APCDXAM(APCDTA)) Q:APCDTA="" D
. W !?3,APCDTA
. I APCDXAM(APCDTA)]"" W ?35,"result: ",APCDXAM(APCDTA)
K APCDXAM,APCDT,APCDV
W !,APCDLN
Q
;
WVPOV ;-- write out v pov
X APCDFF
W !,"Purpose of Visit",!
S APCDTA=0 F S APCDTA=$O(APCDPOV(APCDTA)) Q:APCDTA="" D
. W !?3,$P(APCDPOV(APCDTA),U,2),?60,$P($G(APCDPOV(APCDTA)),U,1)
. I $P(APCDPOV(APCDTA),U,3)]"" W !?5,"Stage: ",$P(APCDPOV(APCDTA),U,3)
. I $P(APCDPOV(APCDTA),U,4)]""!($P(APCDPOV(APCDTA),U,5)]"") W !?5,"Modifier: ",$P(APCDPOV(APCDTA),U,4),?45,"Cause of DX: ",$P(APCDPOV(APCDTA),U,5)
. I $P(APCDPOV(APCDTA),U,6)]""!($P(APCDPOV(APCDTA),U,9)]"")!($P(APCDPOV(APCDTA),U,10)]"") W !?5,"E Code: ",$P(APCDPOV(APCDTA),U,6),?30,"Cause: ",$P(APCDPOV(APCDTA),U,9),?60,"Cause: ",$P(APCDPOV(APCDTA),U,10)
. I $P(APCDPOV(APCDTA),U,11)]""!($P(APCDPOV(APCDTA),U,8)]"") W !?5,"Place of Occurrence: ",$P(APCDPOV(APCDTA),U,11),?45,"Date of Injury: ",$P(APCDPOV(APCDTA),U,8)
K APCDPOV,APCDTA
W !,APCDLN
Q
;
WVMED ;-- write out vmed
X APCDFF
W !,"Medications Prescribed",?30,"Sig",?68,"Qty",?76,"Days",!
S APCDTA=0 F S APCDTA=$O(APCDMED(APCDTA)) Q:APCDTA="" D
. S APCDTSIG=$P(APCDMED(APCDTA),U)
. S APCDTQTY=$P(APCDMED(APCDTA),U,2)
. S APCDTDP=$P(APCDMED(APCDTA),U,3)
. W !,$E(APCDTA,1,28),?30,$E(APCDTSIG,1,35),?68,APCDTQTY,?76,APCDTDP
K APCDMED,APCDSIG,APCDQTY,APCDDP,APCDTA,APCDTSIG,APCDTQTY,APCDTDP
W !,APCDLN
Q
;
WVEYE ;-- write out v eye
X APCDFF
W !,"Eye Glass",!
W !,"Reading Only: ",APCDRO
W ?22,"DRE Sphere: ",APCDRES
W ?43,"DRE Cylinder: ",APCDREC
W ?58,"DRE Axis: ",APCDREA
W !,"DLE Sphere: ",APCDLES
W ?22,"DLE Cylinder: ",APCDLEC
W ?43,"DLE Axis: ",APCDLEA
W ?58,"Reading Add R: ",APCDRAR
W !,"Reading Add L: ",APCDRAL
W ?22,"Eye Size: ",APCDES
W ?43,"Bridge: ",APCDBR
W ?58,"Temple: ",APCDTM
W !,"Pupil Distance Near: ",APCDPDN
W ?30,"Pupil Distance Far: ",APCDPDF
K APCDRO,APCDRES,APCDREC,APCDREA,APCDLES,APCDLEC,APCDLEA,APCDRAR
K APCDRAL,APCDES,APCDBR,APCDTM,APCDPDN,APCDPDF
W !,APCDLN
Q
;
WVDEN ;-- write out v dental
X APCDFF
W !,"Dental",!
S APCDTA=0 F S APCDTA=$O(APCDDEN(APCDTA)) Q:APCDTA="" D
. S APCDTNOU=$P(APCDDEN(APCDTA),U)
. S APCDTOS=$P(APCDDEN(APCDTA),U,2)
. S APCDTDTS=$P(APCDDEN(APCDTA),U,3)
. W !,"Ada Code: ",APCDTA
. W ?20,"Number of Units: ",APCDTNOU
. I APCDTOS]"" W !,"Operative Site: ",APCDTOS
. I APCDTDTS]"" W ?55,"Tooth Surface: ",APCDTDTS
K APCDADA,APCDNOU,APCDOS,APCDTS,APCDTA,APCDTNOU,APCDTOS,APCDTDTS
W !,APCDLN
Q
;
WVPRC ;-- write out v procedure
X APCDFF
W !,"Procedures",!
S APCDTA=0 F S APCDTA=$O(APCDPRC(APCDTA)) Q:APCDTA="" D
. S APCDTPRN=$P(APCDPRC(APCDTA),U)
. S APCDTPDT=$P(APCDPRC(APCDTA),U,2)
. W !,"Procedure: ",APCDTA
. W ?51,"Procedure Date: ",APCDTPDT
. W !,"Provider Narrative: ",APCDTPRN
K APCDPRC,APCDPRN,APCDPDT,APCDTA,APCDTPRN,APCDTPDT
W !,APCDLN
Q
;
WVLAB ;-- write out v lab
X APCDFF
W !,"Laboratory Tests",!
S APCDTA=0 F S APCDTA=$O(APCDLAB(APCDTA)) Q:APCDTA="" D
. S APCDTRES=$P(APCDLAB(APCDTA),U)
. S APCDTABN=$P(APCDLAB(APCDTA),U,2)
. W !,"Lab Test: ",APCDTA
. W ?50,"Result: ",APCDTRES
. W ?70,$S($G(APCDTABN):"Abnormal",1:"")
K APCDLAB,APCDRES,APCDABN,APCDTA,APCDTRES,APCDTABN
W !,APCDLN
Q
;
WVIMM ;-- write out v immunization
X APCDFF
W !,"Immunizations",!
S APCDTA=0 F S APCDTA=$O(APCDIMM(APCDTA)) Q:APCDTA="" D
. S APCDTSER=$P(APCDIMM(APCDTA),U)
. S APCDTLOT=$P(APCDIMM(APCDTA),U,2)
. S APCDTREA=$P(APCDIMM(APCDTA),U,3)
. S APCDDOSE=$P(APCDIMM(APCDTA),U,4)
. S APCDINJ=$P(APCDIMM(APCDTA),U,5)
. S APCDVOL=$P(APCDIMM(APCDTA),U,6)
. S APCDVDAT=$P(APCDIMM(APCDTA),U,7)
. W !?3,"Immunization: ",APCDTA
. W ?60,"Series: ",APCDTSER
. I APCDTLOT]""!(APCDTREA]"") W !?3,"Lot: ",APCDTLOT,?30,"Reaction: ",APCDTREA
. I APCDDOSE]""!(APCDINJ]"") D
. . W !?3,"Dose Override: ",APCDDOSE,?40,"Injection Site: ",APCDINJ
. I APCDVOL]""!(APCDVDAT]"") D
. . W !?3,"Volume: ",APCDVOL I APCDVDAT]"" W ?20,"Date of Vaccine Information Statement: ",APCDVDAT
K APCDIMM,APCDSER,APCDLOT,APCDREA,APCDTSER,APCDTA,APCDTLOT,APCDTREA,APCDVDAT,APCDVOL,APCDDOSE,APCDINJ
W !,APCDLN
Q
;
WVSK ;-- write out v skin test
X APCDFF
D WVSK^APCDEFP1
Q
;
WVTRT ;-- write out v treatment
X APCDFF
D WVTRT^APCDEFP1
Q
;
WVPED ;-- write out v patient education
X APCDFF
D WVPED^APCDEFP1
Q
;
WVPT ;-- write out v physical therapy
X APCDFF
D WVPT^APCDEFP1
Q
;
WVACT ;-- write out v activity time
X APCDFF
D WVACT^APCDEFP1
Q
;
WVDXP ;-- write out v diagnostic procedure result
X APCDFF
D WVDXP^APCDEFP1
Q
;
WVRAD ;-- write out v radiology
X APCDFF
D WVRAD^APCDEFP1
Q
;
WVHF ;-- write out v health factors
X APCDFF
D WVHF^APCDEFP1
Q
;
WVMIC ;-- write out v microbiology
X APCDFF
D WVMIC^APCDEFP1
Q
;
WVBB ;-- write out v blood bank
X APCDFF
D WVBB^APCDEFP1
Q
;
WVPHN ;-- write out v public health nurse
X APCDFF
D WVPHN^APCDEFP1
Q
;
WVNT ;-- write out v narrative text
X APCDFF
D WVNT^APCDEFP1
Q
;
WVCPT ;-- write out v cpt
X APCDFF
D WVCPT^APCDEFP1
Q
;
WVIF ;-- write out infant feeding
X APCDFF
D WVIF^APCDEFP1
Q
APCDEFP ; IHS/CMI/LAB - APCD Auto Print PCC Encounter Form ; 16 Oct 2012 6:19 PM
+1 ;;2.0;IHS PCC SUITE;**4,11**;MAY 14, 2009;Build 58
+2 ;
+3 ;This routine will print out an automated PCC encounter form for
+4 ;a particular visit.
+5 ;
+6 ;
MAIN ;EP -- loop through temp and print out the data
+1 SET APCDIOSL=IOSL
+2 SET APCDLN=""
SET $PIECE(APCDLN,"-",79)="-"
+3 SET APCLSTAR=""
SET $PIECE(APCLSTAR,"*",79)="*"
+4 SET APCLUS=""
SET $PIECE(APCLUS,"_",79)="_"
+5 SET APCDFF="I $Y>(IOSL-5) D FF^APCDEFU Q:APCDQ"
+6 DO HEAD^APCDEFU
+7 IF '$DATA(^XTMP(APCDJ,APCDH,"APCDEF"))
WRITE !!,"No visit information"
QUIT
+8 DO PRT
+9 DO FOOT^APCDEFU
+10 DO DONE^APCDEFU
+11 QUIT
+12 ;
PRT ;-- loop through and write the data
+1 IF APCDVCC]""
WRITE !,"Chief Complaint: ",APCDVCC
WRITE !,APCDLN
+2 IF APCDVFLG]""!(APCDVDP]"")
WRITE !,"Flag: ",APCDVFLG,?40,"Disposition: ",APCDVDP
WRITE !,APCDLN
+3 ;
+4 SET APCDPDA=0
FOR
SET APCDPDA=$ORDER(@APCDATMP@(APCDPDA))
IF 'APCDPDA!($GET(APCDQ))
QUIT
Begin DoDot:1
+5 SET APCDPDFN=0
FOR
SET APCDPDFN=$ORDER(@APCDATMP@(APCDPDA,APCDPDFN))
IF APCDPDFN=""!($GET(APCDQ))
QUIT
Begin DoDot:2
+6 SET APCDP="W"_APCDPDFN
+7 IF $TEXT(@APCDP)=""
QUIT
+8 DO @APCDP
+9 IF $GET(APCDQ)
QUIT
End DoDot:2
End DoDot:1
+10 QUIT
+11 ;
WVMSR ;-- write out v measurement
+1 XECUTE APCDFF
+2 SET APCDPC=3
SET APCDC=0
+3 WRITE !,"Measurements",!
+4 SET APCDIEN=""
FOR
SET APCDIEN=$ORDER(APCDMSR(APCDIEN))
IF APCDIEN=""
QUIT
Begin DoDot:1
+5 SET APCDTA=$PIECE(APCDMSR(APCDIEN),U,1)
+6 IF APCDTA="AUD"
WRITE !?3,APCDTA_":"_$PIECE($GET(APCDMSR(APCDIEN)),U,2)
SET APCDPC=3
SET APCDC=0
QUIT
+7 SET APCDC=APCDC+1
+8 IF APCDC=1
WRITE !
+9 WRITE ?APCDPC,APCDTA_": "_$SELECT($LENGTH(APCDTA)=2:" ",1:"")_$PIECE($GET(APCDMSR(APCDIEN)),U,2)
SET J=$PIECE(APCDMSR(APCDIEN),U,3)
FOR I=1:1
SET P=$PIECE(J,"|",I)
IF P=""
QUIT
WRITE " ",P
+10 SET APCDPC=APCDPC+40
+11 IF APCDC=2
SET APCDC=0
SET APCDPC=3
End DoDot:1
+12 KILL APCDMSR,APCDT,APCDV,APCDPC
+13 WRITE !,APCDLN
+14 QUIT
+15 ;
WVXAM ;-- write out v exam
+1 XECUTE APCDFF
+2 WRITE !,"Examinations",!
+3 SET APCDTA=0
FOR
SET APCDTA=$ORDER(APCDXAM(APCDTA))
IF APCDTA=""
QUIT
Begin DoDot:1
+4 WRITE !?3,APCDTA
+5 IF APCDXAM(APCDTA)]""
WRITE ?35,"result: ",APCDXAM(APCDTA)
End DoDot:1
+6 KILL APCDXAM,APCDT,APCDV
+7 WRITE !,APCDLN
+8 QUIT
+9 ;
WVPOV ;-- write out v pov
+1 XECUTE APCDFF
+2 WRITE !,"Purpose of Visit",!
+3 SET APCDTA=0
FOR
SET APCDTA=$ORDER(APCDPOV(APCDTA))
IF APCDTA=""
QUIT
Begin DoDot:1
+4 WRITE !?3,$PIECE(APCDPOV(APCDTA),U,2),?60,$PIECE($GET(APCDPOV(APCDTA)),U,1)
+5 IF $PIECE(APCDPOV(APCDTA),U,3)]""
WRITE !?5,"Stage: ",$PIECE(APCDPOV(APCDTA),U,3)
+6 IF $PIECE(APCDPOV(APCDTA),U,4)]""!($PIECE(APCDPOV(APCDTA),U,5)]"")
WRITE !?5,"Modifier: ",$PIECE(APCDPOV(APCDTA),U,4),?45,"Cause of DX: ",$PIECE(APCDPOV(APCDTA),U,5)
+7 IF $PIECE(APCDPOV(APCDTA),U,6)]""!($PIECE(APCDPOV(APCDTA),U,9)]"")!($PIECE(APCDPOV(APCDTA),U,10)]"")
WRITE !?5,"E Code: ",$PIECE(APCDPOV(APCDTA),U,6),?30,"Cause: ",$PIECE(APCDPOV(APCDTA),U,9),?60,"Cause: ",$PIECE(APCDPOV(APCDTA),U,10)
+8 IF $PIECE(APCDPOV(APCDTA),U,11)]""!($PIECE(APCDPOV(APCDTA),U,8)]"")
WRITE !?5,"Place of Occurrence: ",$PIECE(APCDPOV(APCDTA),U,11),?45,"Date of Injury: ",$PIECE(APCDPOV(APCDTA),U,8)
End DoDot:1
+9 KILL APCDPOV,APCDTA
+10 WRITE !,APCDLN
+11 QUIT
+12 ;
WVMED ;-- write out vmed
+1 XECUTE APCDFF
+2 WRITE !,"Medications Prescribed",?30,"Sig",?68,"Qty",?76,"Days",!
+3 SET APCDTA=0
FOR
SET APCDTA=$ORDER(APCDMED(APCDTA))
IF APCDTA=""
QUIT
Begin DoDot:1
+4 SET APCDTSIG=$PIECE(APCDMED(APCDTA),U)
+5 SET APCDTQTY=$PIECE(APCDMED(APCDTA),U,2)
+6 SET APCDTDP=$PIECE(APCDMED(APCDTA),U,3)
+7 WRITE !,$EXTRACT(APCDTA,1,28),?30,$EXTRACT(APCDTSIG,1,35),?68,APCDTQTY,?76,APCDTDP
End DoDot:1
+8 KILL APCDMED,APCDSIG,APCDQTY,APCDDP,APCDTA,APCDTSIG,APCDTQTY,APCDTDP
+9 WRITE !,APCDLN
+10 QUIT
+11 ;
WVEYE ;-- write out v eye
+1 XECUTE APCDFF
+2 WRITE !,"Eye Glass",!
+3 WRITE !,"Reading Only: ",APCDRO
+4 WRITE ?22,"DRE Sphere: ",APCDRES
+5 WRITE ?43,"DRE Cylinder: ",APCDREC
+6 WRITE ?58,"DRE Axis: ",APCDREA
+7 WRITE !,"DLE Sphere: ",APCDLES
+8 WRITE ?22,"DLE Cylinder: ",APCDLEC
+9 WRITE ?43,"DLE Axis: ",APCDLEA
+10 WRITE ?58,"Reading Add R: ",APCDRAR
+11 WRITE !,"Reading Add L: ",APCDRAL
+12 WRITE ?22,"Eye Size: ",APCDES
+13 WRITE ?43,"Bridge: ",APCDBR
+14 WRITE ?58,"Temple: ",APCDTM
+15 WRITE !,"Pupil Distance Near: ",APCDPDN
+16 WRITE ?30,"Pupil Distance Far: ",APCDPDF
+17 KILL APCDRO,APCDRES,APCDREC,APCDREA,APCDLES,APCDLEC,APCDLEA,APCDRAR
+18 KILL APCDRAL,APCDES,APCDBR,APCDTM,APCDPDN,APCDPDF
+19 WRITE !,APCDLN
+20 QUIT
+21 ;
WVDEN ;-- write out v dental
+1 XECUTE APCDFF
+2 WRITE !,"Dental",!
+3 SET APCDTA=0
FOR
SET APCDTA=$ORDER(APCDDEN(APCDTA))
IF APCDTA=""
QUIT
Begin DoDot:1
+4 SET APCDTNOU=$PIECE(APCDDEN(APCDTA),U)
+5 SET APCDTOS=$PIECE(APCDDEN(APCDTA),U,2)
+6 SET APCDTDTS=$PIECE(APCDDEN(APCDTA),U,3)
+7 WRITE !,"Ada Code: ",APCDTA
+8 WRITE ?20,"Number of Units: ",APCDTNOU
+9 IF APCDTOS]""
WRITE !,"Operative Site: ",APCDTOS
+10 IF APCDTDTS]""
WRITE ?55,"Tooth Surface: ",APCDTDTS
End DoDot:1
+11 KILL APCDADA,APCDNOU,APCDOS,APCDTS,APCDTA,APCDTNOU,APCDTOS,APCDTDTS
+12 WRITE !,APCDLN
+13 QUIT
+14 ;
WVPRC ;-- write out v procedure
+1 XECUTE APCDFF
+2 WRITE !,"Procedures",!
+3 SET APCDTA=0
FOR
SET APCDTA=$ORDER(APCDPRC(APCDTA))
IF APCDTA=""
QUIT
Begin DoDot:1
+4 SET APCDTPRN=$PIECE(APCDPRC(APCDTA),U)
+5 SET APCDTPDT=$PIECE(APCDPRC(APCDTA),U,2)
+6 WRITE !,"Procedure: ",APCDTA
+7 WRITE ?51,"Procedure Date: ",APCDTPDT
+8 WRITE !,"Provider Narrative: ",APCDTPRN
End DoDot:1
+9 KILL APCDPRC,APCDPRN,APCDPDT,APCDTA,APCDTPRN,APCDTPDT
+10 WRITE !,APCDLN
+11 QUIT
+12 ;
WVLAB ;-- write out v lab
+1 XECUTE APCDFF
+2 WRITE !,"Laboratory Tests",!
+3 SET APCDTA=0
FOR
SET APCDTA=$ORDER(APCDLAB(APCDTA))
IF APCDTA=""
QUIT
Begin DoDot:1
+4 SET APCDTRES=$PIECE(APCDLAB(APCDTA),U)
+5 SET APCDTABN=$PIECE(APCDLAB(APCDTA),U,2)
+6 WRITE !,"Lab Test: ",APCDTA
+7 WRITE ?50,"Result: ",APCDTRES
+8 WRITE ?70,$SELECT($GET(APCDTABN):"Abnormal",1:"")
End DoDot:1
+9 KILL APCDLAB,APCDRES,APCDABN,APCDTA,APCDTRES,APCDTABN
+10 WRITE !,APCDLN
+11 QUIT
+12 ;
WVIMM ;-- write out v immunization
+1 XECUTE APCDFF
+2 WRITE !,"Immunizations",!
+3 SET APCDTA=0
FOR
SET APCDTA=$ORDER(APCDIMM(APCDTA))
IF APCDTA=""
QUIT
Begin DoDot:1
+4 SET APCDTSER=$PIECE(APCDIMM(APCDTA),U)
+5 SET APCDTLOT=$PIECE(APCDIMM(APCDTA),U,2)
+6 SET APCDTREA=$PIECE(APCDIMM(APCDTA),U,3)
+7 SET APCDDOSE=$PIECE(APCDIMM(APCDTA),U,4)
+8 SET APCDINJ=$PIECE(APCDIMM(APCDTA),U,5)
+9 SET APCDVOL=$PIECE(APCDIMM(APCDTA),U,6)
+10 SET APCDVDAT=$PIECE(APCDIMM(APCDTA),U,7)
+11 WRITE !?3,"Immunization: ",APCDTA
+12 WRITE ?60,"Series: ",APCDTSER
+13 IF APCDTLOT]""!(APCDTREA]"")
WRITE !?3,"Lot: ",APCDTLOT,?30,"Reaction: ",APCDTREA
+14 IF APCDDOSE]""!(APCDINJ]"")
Begin DoDot:2
+15 WRITE !?3,"Dose Override: ",APCDDOSE,?40,"Injection Site: ",APCDINJ
End DoDot:2
+16 IF APCDVOL]""!(APCDVDAT]"")
Begin DoDot:2
+17 WRITE !?3,"Volume: ",APCDVOL
IF APCDVDAT]""
WRITE ?20,"Date of Vaccine Information Statement: ",APCDVDAT
End DoDot:2
End DoDot:1
+18 KILL APCDIMM,APCDSER,APCDLOT,APCDREA,APCDTSER,APCDTA,APCDTLOT,APCDTREA,APCDVDAT,APCDVOL,APCDDOSE,APCDINJ
+19 WRITE !,APCDLN
+20 QUIT
+21 ;
WVSK ;-- write out v skin test
+1 XECUTE APCDFF
+2 DO WVSK^APCDEFP1
+3 QUIT
+4 ;
WVTRT ;-- write out v treatment
+1 XECUTE APCDFF
+2 DO WVTRT^APCDEFP1
+3 QUIT
+4 ;
WVPED ;-- write out v patient education
+1 XECUTE APCDFF
+2 DO WVPED^APCDEFP1
+3 QUIT
+4 ;
WVPT ;-- write out v physical therapy
+1 XECUTE APCDFF
+2 DO WVPT^APCDEFP1
+3 QUIT
+4 ;
WVACT ;-- write out v activity time
+1 XECUTE APCDFF
+2 DO WVACT^APCDEFP1
+3 QUIT
+4 ;
WVDXP ;-- write out v diagnostic procedure result
+1 XECUTE APCDFF
+2 DO WVDXP^APCDEFP1
+3 QUIT
+4 ;
WVRAD ;-- write out v radiology
+1 XECUTE APCDFF
+2 DO WVRAD^APCDEFP1
+3 QUIT
+4 ;
WVHF ;-- write out v health factors
+1 XECUTE APCDFF
+2 DO WVHF^APCDEFP1
+3 QUIT
+4 ;
WVMIC ;-- write out v microbiology
+1 XECUTE APCDFF
+2 DO WVMIC^APCDEFP1
+3 QUIT
+4 ;
WVBB ;-- write out v blood bank
+1 XECUTE APCDFF
+2 DO WVBB^APCDEFP1
+3 QUIT
+4 ;
WVPHN ;-- write out v public health nurse
+1 XECUTE APCDFF
+2 DO WVPHN^APCDEFP1
+3 QUIT
+4 ;
WVNT ;-- write out v narrative text
+1 XECUTE APCDFF
+2 DO WVNT^APCDEFP1
+3 QUIT
+4 ;
WVCPT ;-- write out v cpt
+1 XECUTE APCDFF
+2 DO WVCPT^APCDEFP1
+3 QUIT
+4 ;
WVIF ;-- write out infant feeding
+1 XECUTE APCDFF
+2 DO WVIF^APCDEFP1
+3 QUIT
