ADGF.m

ADGF ; IHS/ADC/PDW/ENM - FUNCTIONS ; [ 03/25/1999  11:48 AM ]

 ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 ;

HRCN() ;EP; -- IHS health record number

 ;searhc/maw 4/16/98 chart number terminal digit

 ;Q $P($G(^AUPNPAT(+$G(DFN),41,+$G(DUZ(2)),0)),U,2)

 S HRCN=$P($G(^AUPNPAT(+$G(DFN),41,+$G(DUZ(2)),0)),"^",2)

 S HRCN="000000"_HRCN,HRCN=$E(HRCN,$L(HRCN)-5,$L(HRCN))

 Q $E(HRCN,1,2)_"-"_$E(HRCN,3,4)_"-"_$E(HRCN,5,6)

 ;

HRC(DFN) ;EP; -- IHS health record number

 ;Q $P($G(^AUPNPAT(+$G(DFN),41,+$G(DUZ(2)),0)),U,2)

 S HRCN=$P($G(^AUPNPAT(+$G(DFN),41,+$G(DUZ(2)),0)),"^",2)

 S HRCN="000000"_HRCN,HRCN=$E(HRCN,$L(HRCN)-5,$L(HRCN))

 Q $E(HRCN,1,2)_"-"_$E(HRCN,3,4)_"-"_$E(HRCN,5,6)

 ;

SCCC() ;EP; -- state-county-community code (STCTYCOM index)

 N X I '$D(DFN)!('$D(^AUPNPAT(DFN,11))) Q "UNKOWN"

 S X=$P(^AUPNPAT(DFN,11),"^",17) I 'X Q "UNKNOWN"

 S X=$P(^AUTTCOM(X,0),"^",8) I 'X Q "UNKNOWN"

 S X=$E(X,5,7)_"-"_$E(X,3,4)_"-"_$E(X,1,2) Q X

 ;

HRN(DFN) ;EP; -- health record number with dashes

 N X I '$D(DFN)!('$D(DUZ(2))) Q "UNKNOWN"

 I '$D(^AUPNPAT(DFN,41,DUZ(2),0)) Q "UNKOWN"

 S X=$P(^AUPNPAT(DFN,41,DUZ(2),0),"^",2)

 I $L(X)=7 D  Q X

 . S X=$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,7)

 S X="00000"_X,X=$E(X,$L(X)-5,$L(X))

 S X=$E(X,1,2)_"-"_$E(X,3,4)_"-"_$E(X,5,6)

 Q X

 ;

 Q $TR("123-45-67","1234567",$P($G(^AUPNPAT(+DFN,41,+DUZ(2),0)),"^",2))

 ;

SHS ;EP; -- Health Summary set variables (used by patient inquiry--DGZPI)

 S APCHSCVD="S:Y]"""" Y=+Y,Y=$E(Y,4,5)_""/""_$E(Y,6,7)_""/""_$E(Y,2,3)"

 S APCHSPAT=DFN,APCHSCKP="",APCHSBRK="",APCHSNPG=0 Q

KHS ;EP; -- Health Summary kill variables

 K APCHSCVD,APCHSICF,APCHSCKP,APCHSNPG,APCHSPG,APCHSQIT,APCHSHDR

 K APCHSEGN,APCHSEGC,APCHSEGT,APCHSEGH,APCHSEGL,APCHSDLM,APCHSDLS

 K APCHSHD2,APCHSBRK,APCHSNDM,APCHSN,APCHSQ,APCHSPAT Q

ADGF      ; IHS/ADC/PDW/ENM - FUNCTIONS ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 +2       ;

HRCN()    ;EP; -- IHS health record number

 +1       ;searhc/maw 4/16/98 chart number terminal digit

 +2       ;Q $P($G(^AUPNPAT(+$G(DFN),41,+$G(DUZ(2)),0)),U,2)

 +3        SET HRCN=$PIECE($GET(^AUPNPAT(+$GET(DFN),41,+$GET(DUZ(2)),0)),"^",2)

 +4        SET HRCN="000000"_HRCN

           SET HRCN=$EXTRACT(HRCN,$LENGTH(HRCN)-5,$LENGTH(HRCN))

 +5        QUIT $EXTRACT(HRCN,1,2)_"-"_$EXTRACT(HRCN,3,4)_"-"_$EXTRACT(HRCN,5,6)

 +6       ;

HRC(DFN)  ;EP; -- IHS health record number

 +1       ;Q $P($G(^AUPNPAT(+$G(DFN),41,+$G(DUZ(2)),0)),U,2)

 +2        SET HRCN=$PIECE($GET(^AUPNPAT(+$GET(DFN),41,+$GET(DUZ(2)),0)),"^",2)

 +3        SET HRCN="000000"_HRCN

           SET HRCN=$EXTRACT(HRCN,$LENGTH(HRCN)-5,$LENGTH(HRCN))

 +4        QUIT $EXTRACT(HRCN,1,2)_"-"_$EXTRACT(HRCN,3,4)_"-"_$EXTRACT(HRCN,5,6)

 +5       ;

SCCC()    ;EP; -- state-county-community code (STCTYCOM index)

 +1        NEW X

           IF '$DATA(DFN)!('$DATA(^AUPNPAT(DFN,11)))

               QUIT "UNKOWN"

 +2        SET X=$PIECE(^AUPNPAT(DFN,11),"^",17)

           IF 'X

               QUIT "UNKNOWN"

 +3        SET X=$PIECE(^AUTTCOM(X,0),"^",8)

           IF 'X

               QUIT "UNKNOWN"

 +4        SET X=$EXTRACT(X,5,7)_"-"_$EXTRACT(X,3,4)_"-"_$EXTRACT(X,1,2)

           QUIT X

 +5       ;

HRN(DFN)  ;EP; -- health record number with dashes

 +1        NEW X

           IF '$DATA(DFN)!('$DATA(DUZ(2)))

               QUIT "UNKNOWN"

 +2        IF '$DATA(^AUPNPAT(DFN,41,DUZ(2),0))

               QUIT "UNKOWN"

 +3        SET X=$PIECE(^AUPNPAT(DFN,41,DUZ(2),0),"^",2)

 +4        IF $LENGTH(X)=7

               Begin DoDot:1

 +5                SET X=$EXTRACT(X,1,3)_"-"_$EXTRACT(X,4,5)_"-"_$EXTRACT(X,6,7)

               End DoDot:1

               QUIT X

 +6        SET X="00000"_X

           SET X=$EXTRACT(X,$LENGTH(X)-5,$LENGTH(X))

 +7        SET X=$EXTRACT(X,1,2)_"-"_$EXTRACT(X,3,4)_"-"_$EXTRACT(X,5,6)

 +8        QUIT X

 +9       ;

 +10       QUIT $TRANSLATE("123-45-67","1234567",$PIECE($GET(^AUPNPAT(+DFN,41,+DUZ(2),0)),"^",2))

 +11      ;

SHS       ;EP; -- Health Summary set variables (used by patient inquiry--DGZPI)

 +1        SET APCHSCVD="S:Y]"""" Y=+Y,Y=$E(Y,4,5)_""/""_$E(Y,6,7)_""/""_$E(Y,2,3)"

 +2        SET APCHSPAT=DFN

           SET APCHSCKP=""

           SET APCHSBRK=""

           SET APCHSNPG=0

           QUIT 

KHS       ;EP; -- Health Summary kill variables

 +1        KILL APCHSCVD,APCHSICF,APCHSCKP,APCHSNPG,APCHSPG,APCHSQIT,APCHSHDR

 +2        KILL APCHSEGN,APCHSEGC,APCHSEGT,APCHSEGH,APCHSEGL,APCHSDLM,APCHSDLS

 +3        KILL APCHSHD2,APCHSBRK,APCHSNDM,APCHSN,APCHSQ,APCHSPAT

           QUIT