APCDLINK.m

APCDLINK ; IHS/CMI/LAB - LINK IN HOSPITAL VISITS ;

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

 ;

HDR ; Write Header

 W:$D(IOF) @IOF

 F APCDJ=1:1:5 S APCDX=$P($T(TEXT+APCDJ),";;",2) W !?80-$L(APCDX)\2,APCDX

 K APCDX,APCDJ

 W !!

PROCESS ;

 S APCDPAT=""

 D GETPAT

 I APCDPAT="" W !!,"No PATIENT selected!" D EOJ Q

 S APCDI=""

 D GETIN

 I APCDI="" W !!,"No IN-HOSPITAL Visit selected!" D EOJ Q

 S APCDH=""

 D GETHOSP

 I APCDH="" W !!,"No HOSPITALIZATION Visit selected!" D EOJ Q

 S APCDANS=""

 D CONFIRM

 I 'APCDANS W !!,"Leaving this option  BYE!",! D EOJ Q

 S APCDFAIL="" D LINK

 I APCDFAIL=1 W !!,"The LINK failed!!  Try again later."

 D EOJ

 Q

GETPAT ; GET PATIENT

 W !

 S DIC="^AUPNPAT(",DIC(0)="AEMQ" D ^DIC K DIC

 Q:Y<0

 S APCDPAT=+Y

 Q

 ;

GETIN S DIR(0)="DO^::EP",DIR("A")="Enter IN-HOSPITAL Visit date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 K APCDLKT

 S APCDLDC=Y,(APCDLI,APCDLV)=0 K Y

 F  S APCDLV=$O(^AUPNVSIT("AC",APCDPAT,APCDLV)) Q:APCDLV=""  I APCDLDC=$P(+^AUPNVSIT(APCDLV,0),"."),'$P(^(0),U,11),$P(^(0),U,7)="I" S APCDLI=APCDLI+1,APCDLKT(APCDLI)=APCDLV

 I '$D(APCDLKT) W !,"No In-Hospital Visit on that date for this patient!" Q

 I APCDLI=1 S APCDI=APCDLKT(1) S DA=APCDI D DISP Q

 D SELECT

 I APCDDFN="" Q

 S APCDI=APCDDFN S DA=APCDI D DISP Q

 Q

SELECT ; SELECT EXISTING VISIT

 W !!,"PATIENT: ",$P(^DPT(APCDPAT,0),U)," has one or more IN-HOSPITAL Visits on this date.",!

 S APCDLI="" F  S APCDLI=$O(APCDLKT(APCDLI)) Q:APCDLI=""  S APCDLX=^AUPNVSIT(APCDLKT(APCDLI),0) D WRITE

 S APCDLV=""

SRDR S APCDDFN="" W !!,"Select one: " R APCDLI:DTIME E  S APCDLI="" Q

 Q:APCDLI=""!(APCDLI="^")

 I APCDLI'?1N.N W $C(7),$C(7) G SELECT

 I '$D(APCDLKT(APCDLI)) W $C(7),$C(7) G SELECT

 S APCDDFN=APCDLKT(APCDLI)

 Q

 ;

GETHOSP S DIR(0)="DO^::EP",DIR("A")="Enter HOSPITALIZATION Admission date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1 I $D(DTOUT) S X=""

 K APCDLKT

 S APCDLDC=Y,(APCDLI,APCDLV)=0 K Y

 F  S APCDLV=$O(^AUPNVSIT("AC",APCDPAT,APCDLV)) Q:APCDLV=""  I APCDLDC=$P(+^AUPNVSIT(APCDLV,0),"."),'$P(^(0),U,11),$P(^(0),U,7)="H" S APCDLI=APCDLI+1,APCDLKT(APCDLI)=APCDLV

 I '$D(APCDLKT) W !,"No Hospitalization Visit on that date for this patient!" Q

 I APCDLI=1 S APCDH=APCDLKT(1) S DA=APCDH D DISP Q

 S APCDDFN=""

 D SELECT

 I APCDDFN="" Q

 S (APCDH,DA)=APCDDFN D DISP Q

 Q

 ;

LINK ;

 S DA=APCDI,DIE="^AUPNVSIT(",DR=".12///`"_APCDH D ^DIE

 I $D(Y) S APCDFAIL=1 Q

 ; -- IHS/DAOU/EJN for HL7

 Q:'$G(APCDI)

 I $T(A08^BTSEVENT)]"" S APCDHLER=$$A08^BTSEVENT(APCDI) K APCDHLER

 ; -- END HL7 mods

 W !,"In-Hospital Visit Linked!!"

 Q

CONFIRM ;

 S DIR(0)="Y",DIR("A")="Do you want to continue",DIR("B")="N" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) S APCDANS=0 Q

 S APCDANS=Y

 Q

 ;

WRITE ; WRITE VISITS FOR SELECT

 S APCDLT=$P(+APCDLX,".",2),APCDLT=$S(APCDLT="":"<NONE>",$L(APCDLT)=1:APCDLT_"0:00 ",1:$E(APCDLT,1,2)_":"_$E(APCDLT,3,4)_$E("00",1,2-$L($E(APCDLT,3,4)))_" ")

 S APCDLOC=""

 I $P(APCDLX,U,6),$D(^AUTTLOC($P(APCDLX,U,6),0)) S APCDLOC=$P(^(0),U,7),APCDLOC=APCDLOC_$E("    ",1,4-$L(APCDLOC))

 S:APCDLOC="" APCDLOC="...."

 W !,APCDLI,"  TIME: ",APCDLT,"  LOC: ",APCDLOC,"  TYPE: ",$P(APCDLX,U,3),"  CATEGORY: ",$P(APCDLX,U,7),"  CLINIC: ",$S($P(APCDLX,U,8)]"":$P(^DIC(40.7,$P(APCDLX,U,8),0),U),1:"<NONE>")

 K APCDLT,APCDLOC

 Q

 ;

DISP ;

 W !

 S DIC="^AUPNVSIT(" D EN^DIQ K DIC,DIQ,DR,Y,X,S,A,DK,DL,D0

 W !,"Do you want to see the Entire Visit (V FILE entries)?" S %=2 D YN^DICN S %Y=$E(%Y)

 I "Nn"[%Y K DA Q

 S APCDVDSP=DA D ^APCDVDSP K DA

 Q

EOJ ; 

 K APCDLDC,APCDLDT,APCDLI,APCDLKT,APCDLOC,APCDLT,APCDLV,APCDLX,Y,APCDPAT,APCDI,APCDH,APCDDFN,DA,DIC,Y,%Y,DR,X,Y,%,%DT,D,C,D0,DA,DICR,DIE,DIH,DIU,DIV,DIW,APCDFAIL,APCDANS

 Q

TEXT ;

 ;;PCC Data Entry Module

 ;;

 ;;*********************************************

 ;;* Link In-Hospital Visit to Hospitalization *

 ;;*********************************************

 Q

APCDLINK  ; IHS/CMI/LAB - LINK IN HOSPITAL VISITS ;

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

 +2       ;

HDR       ; Write Header

 +1        IF $DATA(IOF)

               WRITE @IOF

 +2        FOR APCDJ=1:1:5

               SET APCDX=$PIECE($TEXT(TEXT+APCDJ),";;",2)

               WRITE !?80-$LENGTH(APCDX)\2,APCDX

 +3        KILL APCDX,APCDJ

 +4        WRITE !!

PROCESS   ;

 +1        SET APCDPAT=""

 +2        DO GETPAT

 +3        IF APCDPAT=""

               WRITE !!,"No PATIENT selected!"

               DO EOJ

               QUIT 

 +4        SET APCDI=""

 +5        DO GETIN

 +6        IF APCDI=""

               WRITE !!,"No IN-HOSPITAL Visit selected!"

               DO EOJ

               QUIT 

 +7        SET APCDH=""

 +8        DO GETHOSP

 +9        IF APCDH=""

               WRITE !!,"No HOSPITALIZATION Visit selected!"

               DO EOJ

               QUIT 

 +10       SET APCDANS=""

 +11       DO CONFIRM

 +12       IF 'APCDANS

               WRITE !!,"Leaving this option  BYE!",!

               DO EOJ

               QUIT 

 +13       SET APCDFAIL=""

           DO LINK

 +14       IF APCDFAIL=1

               WRITE !!,"The LINK failed!!  Try again later."

 +15       DO EOJ

 +16       QUIT 

GETPAT    ; GET PATIENT

 +1        WRITE !

 +2        SET DIC="^AUPNPAT("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC

 +3        IF Y<0

               QUIT 

 +4        SET APCDPAT=+Y

 +5        QUIT 

 +6       ;

GETIN      SET DIR(0)="DO^::EP"

           SET DIR("A")="Enter IN-HOSPITAL Visit date"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +1        KILL APCDLKT

 +2        SET APCDLDC=Y

           SET (APCDLI,APCDLV)=0

           KILL Y

 +3        FOR 

               SET APCDLV=$ORDER(^AUPNVSIT("AC",APCDPAT,APCDLV))

               IF APCDLV=""

                   QUIT 

               IF APCDLDC=$PIECE(+^AUPNVSIT(APCDLV,0),".")

                   IF '$PIECE(^(0),U,11)

                       IF $PIECE(^(0),U,7)="I"

                           SET APCDLI=APCDLI+1

                           SET APCDLKT(APCDLI)=APCDLV

 +4        IF '$DATA(APCDLKT)

               WRITE !,"No In-Hospital Visit on that date for this patient!"

               QUIT 

 +5        IF APCDLI=1

               SET APCDI=APCDLKT(1)

               SET DA=APCDI

               DO DISP

               QUIT 

 +6        DO SELECT

 +7        IF APCDDFN=""

               QUIT 

 +8        SET APCDI=APCDDFN

           SET DA=APCDI

           DO DISP

           QUIT 

 +9        QUIT 

SELECT    ; SELECT EXISTING VISIT

 +1        WRITE !!,"PATIENT: ",$PIECE(^DPT(APCDPAT,0),U)," has one or more IN-HOSPITAL Visits on this date.",!

 +2        SET APCDLI=""

           FOR 

               SET APCDLI=$ORDER(APCDLKT(APCDLI))

               IF APCDLI=""

                   QUIT 

               SET APCDLX=^AUPNVSIT(APCDLKT(APCDLI),0)

               DO WRITE

 +3        SET APCDLV=""

SRDR       SET APCDDFN=""

           WRITE !!,"Select one: "

           READ APCDLI:DTIME

          IF '$TEST

               SET APCDLI=""

               QUIT 

 +1        IF APCDLI=""!(APCDLI="^")

               QUIT 

 +2        IF APCDLI'?1N.N

               WRITE $CHAR(7),$CHAR(7)

               GOTO SELECT

 +3        IF '$DATA(APCDLKT(APCDLI))

               WRITE $CHAR(7),$CHAR(7)

               GOTO SELECT

 +4        SET APCDDFN=APCDLKT(APCDLI)

 +5        QUIT 

 +6       ;

GETHOSP    SET DIR(0)="DO^::EP"

           SET DIR("A")="Enter HOSPITALIZATION Admission date"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

           IF $DATA(DTOUT)

               SET X=""

 +1        KILL APCDLKT

 +2        SET APCDLDC=Y

           SET (APCDLI,APCDLV)=0

           KILL Y

 +3        FOR 

               SET APCDLV=$ORDER(^AUPNVSIT("AC",APCDPAT,APCDLV))

               IF APCDLV=""

                   QUIT 

               IF APCDLDC=$PIECE(+^AUPNVSIT(APCDLV,0),".")

                   IF '$PIECE(^(0),U,11)

                       IF $PIECE(^(0),U,7)="H"

                           SET APCDLI=APCDLI+1

                           SET APCDLKT(APCDLI)=APCDLV

 +4        IF '$DATA(APCDLKT)

               WRITE !,"No Hospitalization Visit on that date for this patient!"

               QUIT 

 +5        IF APCDLI=1

               SET APCDH=APCDLKT(1)

               SET DA=APCDH

               DO DISP

               QUIT 

 +6        SET APCDDFN=""

 +7        DO SELECT

 +8        IF APCDDFN=""

               QUIT 

 +9        SET (APCDH,DA)=APCDDFN

           DO DISP

           QUIT 

 +10       QUIT 

 +11      ;

LINK      ;

 +1        SET DA=APCDI

           SET DIE="^AUPNVSIT("

           SET DR=".12///`"_APCDH

           DO ^DIE

 +2        IF $DATA(Y)

               SET APCDFAIL=1

               QUIT 

 +3       ; -- IHS/DAOU/EJN for HL7

 +4        IF '$GET(APCDI)

               QUIT 

 +5        IF $TEXT(A08^BTSEVENT)]""

               SET APCDHLER=$$A08^BTSEVENT(APCDI)

               KILL APCDHLER

 +6       ; -- END HL7 mods

 +7        WRITE !,"In-Hospital Visit Linked!!"

 +8        QUIT 

CONFIRM   ;

 +1        SET DIR(0)="Y"

           SET DIR("A")="Do you want to continue"

           SET DIR("B")="N"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               SET APCDANS=0

               QUIT 

 +3        SET APCDANS=Y

 +4        QUIT 

 +5       ;

WRITE     ; WRITE VISITS FOR SELECT

 +1        SET APCDLT=$PIECE(+APCDLX,".",2)

           SET APCDLT=$SELECT(APCDLT="":"<NONE>",$LENGTH(APCDLT)=1:APCDLT_"0:00 ",1:$EXTRACT(APCDLT,1,2)_":"_$EXTRACT(APCDLT,3,4)_$EXTRACT("00",1,2-$LENGTH($EXTRACT(APCDLT,3,4)))_" ")

 +2        SET APCDLOC=""

 +3        IF $PIECE(APCDLX,U,6)

               IF $DATA(^AUTTLOC($PIECE(APCDLX,U,6),0))

                   SET APCDLOC=$PIECE(^(0),U,7)

                   SET APCDLOC=APCDLOC_$EXTRACT("    ",1,4-$LENGTH(APCDLOC))

 +4        IF APCDLOC=""

               SET APCDLOC="...."

 +5        WRITE !,APCDLI,"  TIME: ",APCDLT,"  LOC: ",APCDLOC,"  TYPE: ",$PIECE(APCDLX,U,3),"  CATEGORY: ",$PIECE(APCDLX,U,7),"  CLINIC: ",$SELECT($PIECE(APCDLX,U,8)]"":$PIECE(^DIC(40.7,$PIECE(APCDLX,U,8),0),U),1:"<NONE>")

 +6        KILL APCDLT,APCDLOC

 +7        QUIT 

 +8       ;

DISP      ;

 +1        WRITE !

 +2        SET DIC="^AUPNVSIT("

           DO EN^DIQ

           KILL DIC,DIQ,DR,Y,X,S,A,DK,DL,D0

 +3        WRITE !,"Do you want to see the Entire Visit (V FILE entries)?"

           SET %=2

           DO YN^DICN

           SET %Y=$EXTRACT(%Y)

 +4        IF "Nn"[%Y

               KILL DA

               QUIT 

 +5        SET APCDVDSP=DA

           DO ^APCDVDSP

           KILL DA

 +6        QUIT 

EOJ       ; 

 +1        KILL APCDLDC,APCDLDT,APCDLI,APCDLKT,APCDLOC,APCDLT,APCDLV,APCDLX,Y,APCDPAT,APCDI,APCDH,APCDDFN,DA,DIC,Y,%Y,DR,X,Y,%,%DT,D,C,D0,DA,DICR,DIE,DIH,DIU,DIV,DIW,APCDFAIL,APCDANS

 +2        QUIT 

TEXT      ;

 +1       ;;PCC Data Entry Module

 +2       ;;

 +3       ;;*********************************************

 +4       ;;* Link In-Hospital Visit to Hospitalization *

 +5       ;;*********************************************

 +6        QUIT