APCDEWHO.m

APCDEWHO ; IHS/CMI/LAB - DISPLAY PATIENT & VISIT INFO ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;CALLED FROM THE TEMPLATE APCD WHO (WHO)

 ;

START(APCDEV) ;EP - CALLED FROM EHR CODING AUDIT

 NEW APCDVREC

 S:$G(APCDEV) APCDVREC=^AUPNVSIT(APCDEV,0)

 W !!,"You are currently processing the following Patient",$S($G(APCDEV):" Visit",1:""),":",!!

 S APCDH="Patient Name",APCDV=$E($P(^DPT(AUPNPAT,0),U),1,20) D WRITE

 S APCDH="Chart #",APCDV=$S($D(^AUPNPAT(AUPNPAT,41,DUZ(2),0)):$P(^(0),U,2),1:"None") D WRITE

 S APCDH="Date of Birth" S Y=AUPNDOB D DD^%DT S APCDV=Y D WRITE

 S APCDH="Sex",APCDV=AUPNSEX D WRITE

 G:'$D(APCDVREC) XIT

 S APCDH="Visit Date" S Y=$P(APCDVREC,U) D DD^%DT S APCDV=Y D WRITE

 S APCDH="Location",APCDV=$E($P(^DIC(4,$P(APCDVREC,U,6),0),U),1,25) D WRITE

 S APCDH="Type",APCDV=$P(APCDVREC,U,3) D WRITE

 S APCDH="Service Category",APCDV=$P(APCDVREC,U,7) D WRITE

 S APCDH="Clinic",APCDV=$S($P(APCDVREC,U,8)="":"None Entered",1:$P(^DIC(40.7,$P(APCDVREC,U,8),0),U)) D WRITE

 S APCDH="Hospital Location",APCDV=$$VAL^XBDIQ1(9000010,APCDEV,.22) D WRITE

 S APCDH="Chart Audit Status",APCDV=$$VAL^XBDIQ1(9000010,APCDEV,1111) D WRITE

 S APCDH="Dependent Entry Count",APCDV=$P(APCDVREC,U,9) D WRITE

 ;

XIT ;

 W !

 K APCDY,Y,APCDX,APCDT,APCDV,APCDH,APCDZ,APCDVREC

 Q

WRITE ;

 S APCDX=APCDH_": "_APCDV W:$X>39 ! S APCDT=$S($X>1:41,1:1) W:(APCDT+$L(APCDX))>79 ! W ?APCDT,APCDH,": ",@APCDRVON,APCDV,@APCDRVOF

 K APCDT,APCDX

 Q

APCDEWHO  ; IHS/CMI/LAB - DISPLAY PATIENT & VISIT INFO ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;CALLED FROM THE TEMPLATE APCD WHO (WHO)

 +3       ;

START(APCDEV) ;EP - CALLED FROM EHR CODING AUDIT

 +1        NEW APCDVREC

 +2        IF $GET(APCDEV)

               SET APCDVREC=^AUPNVSIT(APCDEV,0)

 +3        WRITE !!,"You are currently processing the following Patient",$SELECT($GET(APCDEV):" Visit",1:""),":",!!

 +4        SET APCDH="Patient Name"

           SET APCDV=$EXTRACT($PIECE(^DPT(AUPNPAT,0),U),1,20)

           DO WRITE

 +5        SET APCDH="Chart #"

           SET APCDV=$SELECT($DATA(^AUPNPAT(AUPNPAT,41,DUZ(2),0)):$PIECE(^(0),U,2),1:"None")

           DO WRITE

 +6        SET APCDH="Date of Birth"

           SET Y=AUPNDOB

           DO DD^%DT

           SET APCDV=Y

           DO WRITE

 +7        SET APCDH="Sex"

           SET APCDV=AUPNSEX

           DO WRITE

 +8        IF '$DATA(APCDVREC)

               GOTO XIT

 +9        SET APCDH="Visit Date"

           SET Y=$PIECE(APCDVREC,U)

           DO DD^%DT

           SET APCDV=Y

           DO WRITE

 +10       SET APCDH="Location"

           SET APCDV=$EXTRACT($PIECE(^DIC(4,$PIECE(APCDVREC,U,6),0),U),1,25)

           DO WRITE

 +11       SET APCDH="Type"

           SET APCDV=$PIECE(APCDVREC,U,3)

           DO WRITE

 +12       SET APCDH="Service Category"

           SET APCDV=$PIECE(APCDVREC,U,7)

           DO WRITE

 +13       SET APCDH="Clinic"

           SET APCDV=$SELECT($PIECE(APCDVREC,U,8)="":"None Entered",1:$PIECE(^DIC(40.7,$PIECE(APCDVREC,U,8),0),U))

           DO WRITE

 +14       SET APCDH="Hospital Location"

           SET APCDV=$$VAL^XBDIQ1(9000010,APCDEV,.22)

           DO WRITE

 +15       SET APCDH="Chart Audit Status"

           SET APCDV=$$VAL^XBDIQ1(9000010,APCDEV,1111)

           DO WRITE

 +16       SET APCDH="Dependent Entry Count"

           SET APCDV=$PIECE(APCDVREC,U,9)

           DO WRITE

 +17      ;

XIT       ;

 +1        WRITE !

 +2        KILL APCDY,Y,APCDX,APCDT,APCDV,APCDH,APCDZ,APCDVREC

 +3        QUIT 

WRITE     ;

 +1        SET APCDX=APCDH_": "_APCDV

           IF $X>39

               WRITE !

           SET APCDT=$SELECT($X>1:41,1:1)

           IF (APCDT+$LENGTH(APCDX))>79

               WRITE !

           WRITE ?APCDT,APCDH,": ",@APCDRVON,APCDV,@APCDRVOF

 +2        KILL APCDT,APCDX

 +3        QUIT