APCDAACD ; IHS/CMI/LAB - CDMIS TO PCC LINK ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;
;
;cdmis to pcc link
;cdmis system will pass array ACDEV
;ACDEV("TYPE")=A,E OR D
;
EP ;EP - call from APCDALD DRIVER
D MAIN
D EOJ
Q
;
MAIN ;
W:'$D(ZTQUEUED) !!,"Updating PCC .. hold on.."
K APCDQUIT,APCDALVR
D ECHK
I $G(APCDQUIT) D VSERROR Q
D @ACDEV("TYPE")
Q
;
ECHK ;ERROR CHECK
I '$D(ACDEV) S APCDQUIT=4 Q ; no array defined
F X="CLINIC","LOCATION","PAT","POV","PRI PROV","SITE TYPE","SVC CAT","TYPE","V DATE","VISIT" D Q:$G(APCDQUIT)
. S X=""""_X_""""
. S:X["POV" X=X_",1"
. I '$D(@("ACDEV("_X_")")) S APCDQUIT=5 Q ; required var missing
. I $G(@("ACDEV("_X_")"))="" S APCDQUIT=6 Q ; required var null
. Q
Q:$G(APCDQUIT)
I "AED"'[ACDEV("TYPE") S APCDQUIT=7 Q ; no appropriate type
Q
;
A ;EP-added a record
;//^APCDAAC2
D CHECK
I $G(APCDQUIT) Q ; quit if not a visit pcc wants
D VISIT ; set up and create visit
I $G(APCDQUIT) Q
D ^APCDALV ; create visit
I $D(APCDALVR("APCDAFLG")) S APCDQUIT=APCDALVR("APCDAFLG") D VSERROR Q
S APCDVSIT=APCDALVR("APCDVSIT")
D VFILES^APCDAAC1
;call protocol signifying a complete visit added to pcc files
S APCDV("9000010")=APCDVSIT
D COMPLETE^APCDALD
Q
;
CHECK ; SEE IF PCC WANTS VISIT
Q
;
VISIT ;EP
;//^APCDAAC2
S APCDALVR("APCDAUTO")="" S:ACDEV("TYPE")="A" APCDALVR("APCDADD")=""
S APCDALVR("APCDPAT")=ACDEV("PAT")
S (APCDALVR("APCDDATE"),APCDDATK)=ACDEV("V DATE")
D GETLOC ; get location of visit
I $G(APCDQUIT) D VSERROR Q
D GETTYPE ; get type of visit
I $G(APCDQUIT) D VSERROR Q
S APCDALVR("APCDCAT")=ACDEV("SVC CAT")
S APCDALVR("APCDCLN")=ACDEV("CLINIC")
S APCDALVR("APCDAPPT")="U"
DEBUG ;ZW APCDALVR D PAUSE^ACDDEU
Q
;
GETLOC ;get location of encounter
S APCDALVR("APCDLOC")=ACDEV("LOCATION")
Q
; ********** DO WE NEED SOMETHING HERE **********
I '$D(ACDEV("ACTLOC")) S APCDQUIT=21 Q ;can't tell activity location
S APCDACTL=$P(ACDEV("ACTLOC"),U,5)
S APCDLOC=$P(ACDEV("DATA0"),U,5)
I APCDLOC S APCDALVR("APCDLOC")=APCDLOC Q ;quit if have a hosp/clinic pointer
I APCDACTL="HC" S APCDQUIT=24 Q
;home visit
I APCDACTL="HM" S APCDLOC=$P(ACDEV("SITE"),U,5) I APCDLOC="" S APCDQUIT=22 Q
I APCDACTL="CH" S APCDLOC=$P(ACDEV("SITE"),U,6) I APCDLOC="" S APCDQUIT=27 Q
I 'APCDLOC S APCDLOC=$P(ACDEV("SITE"),U,9) I APCDLOC="" S APCDQUIT=23 Q
S APCDALVR("APCDLOC")=APCDLOC
Q
;
GETTYPE ;get type of visit
S APCDALVR("APCDTYPE")=ACDEV("SITE TYPE")
Q
; ********** DO WE NEED SOMETHING HERE *********
S APCDLOC=$P(^AUTTLOC(APCDALVR("APCDLOC"),0),U,10) I $E(APCDLOC,5,6)>49 S APCDALVR("APCDTYPE")="T" Q ;if not a clinic, set to tribal and quit
S APCDALVR("APCDTYPE")=$P(ACDEV("SITE"),U,4) Q:APCDALVR("APCDTYPE")'=""
S X=$P(^AUTTLOC(APCDALVR("APCDLOC"),0),U,25) I X]"" S APCDALVR("APCDTYPE")=$S(X=1:"I",X=2:"6",X=3:"C",X=6:"T",1:"O") Q ;if loc updated use it
S X=$P($G(^APCCCTRL(DUZ(2),0)),U,4) I X]"" S APCDALVR("APCDTYPE")=X Q ;use pcc master control if all else fails
S APCDALVR("APCDTYPE")="T" ;default to T if can't determine
Q
;
E ;edited a cdmis record
D E^APCDAAC2
Q
;
D ;deleted a cdmis record
D D^APCDAAC2
Q
;
EOJ ;
K APCDLINK,APCDFILE,APCDERR,APCDQUIT,APCDALVR,APCDTYPE,APCDLOC,APCDDATK,APCDACTL,APCDIEN,APCDX,APCDGOT,APCDVSIT
K ACDEV
Q
;
VSERROR ;EP
S APCDFILE="VISIT"
S APCDIEN=$G(ACDEV("VISIT"))
S APCDERR="VE"_APCDQUIT,APCDERR=$P($T(@APCDERR),";;",2)
D LBULL^APCDALD
Q
;
VE2 ;;inability to create visit
VE3 ;;invalid visit parameters (date, location etc.)
VE4 ;;ACDEV array not passed
VE5 ;;Required variable not passed
VE6 ;;Required variable is null
VE7 ;;No appropriate type (i.e., A,E,D)
VE21 ;;No activity location passed. No Location determined.
VE22 ;;No IHS Location for HOME in CDMIS SITE PARAMETER File.
VE23 ;;No IHS Location for OTHER in CDMIS SITE PARAMETER File.
VE24 ;;No Location of Encounter when Activity location is Hospital/Clinic.
VE27 ;;No Location of Encounter for OFFICE in CDMIS SITE PARAMETER file.
VE28 ;;Error attempting to modify visit
APCDAACD ; IHS/CMI/LAB - CDMIS TO PCC LINK ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;
+3 ;
+4 ;cdmis to pcc link
+5 ;cdmis system will pass array ACDEV
+6 ;ACDEV("TYPE")=A,E OR D
+7 ;
EP ;EP - call from APCDALD DRIVER
+1 DO MAIN
+2 DO EOJ
+3 QUIT
+4 ;
MAIN ;
+1 IF '$DATA(ZTQUEUED)
WRITE !!,"Updating PCC .. hold on.."
+2 KILL APCDQUIT,APCDALVR
+3 DO ECHK
+4 IF $GET(APCDQUIT)
DO VSERROR
QUIT
+5 DO @ACDEV("TYPE")
+6 QUIT
+7 ;
ECHK ;ERROR CHECK
+1 ; no array defined
IF '$DATA(ACDEV)
SET APCDQUIT=4
QUIT
+2 FOR X="CLINIC","LOCATION","PAT","POV","PRI PROV","SITE TYPE","SVC CAT","TYPE","V DATE","VISIT"
Begin DoDot:1
+3 SET X=""""_X_""""
+4 IF X["POV"
SET X=X_",1"
+5 ; required var missing
IF '$DATA(@("ACDEV("_X_")"))
SET APCDQUIT=5
QUIT
+6 ; required var null
IF $GET(@("ACDEV("_X_")"))=""
SET APCDQUIT=6
QUIT
+7 QUIT
End DoDot:1
IF $GET(APCDQUIT)
QUIT
+8 IF $GET(APCDQUIT)
QUIT
+9 ; no appropriate type
IF "AED"'[ACDEV("TYPE")
SET APCDQUIT=7
QUIT
+10 QUIT
+11 ;
A ;EP-added a record
+1 ;//^APCDAAC2
+2 DO CHECK
+3 ; quit if not a visit pcc wants
IF $GET(APCDQUIT)
QUIT
+4 ; set up and create visit
DO VISIT
+5 IF $GET(APCDQUIT)
QUIT
+6 ; create visit
DO ^APCDALV
+7 IF $DATA(APCDALVR("APCDAFLG"))
SET APCDQUIT=APCDALVR("APCDAFLG")
DO VSERROR
QUIT
+8 SET APCDVSIT=APCDALVR("APCDVSIT")
+9 DO VFILES^APCDAAC1
+10 ;call protocol signifying a complete visit added to pcc files
+11 SET APCDV("9000010")=APCDVSIT
+12 DO COMPLETE^APCDALD
+13 QUIT
+14 ;
CHECK ; SEE IF PCC WANTS VISIT
+1 QUIT
+2 ;
VISIT ;EP
+1 ;//^APCDAAC2
+2 SET APCDALVR("APCDAUTO")=""
IF ACDEV("TYPE")="A"
SET APCDALVR("APCDADD")=""
+3 SET APCDALVR("APCDPAT")=ACDEV("PAT")
+4 SET (APCDALVR("APCDDATE"),APCDDATK)=ACDEV("V DATE")
+5 ; get location of visit
DO GETLOC
+6 IF $GET(APCDQUIT)
DO VSERROR
QUIT
+7 ; get type of visit
DO GETTYPE
+8 IF $GET(APCDQUIT)
DO VSERROR
QUIT
+9 SET APCDALVR("APCDCAT")=ACDEV("SVC CAT")
+10 SET APCDALVR("APCDCLN")=ACDEV("CLINIC")
+11 SET APCDALVR("APCDAPPT")="U"
DEBUG ;ZW APCDALVR D PAUSE^ACDDEU
+1 QUIT
+2 ;
GETLOC ;get location of encounter
+1 SET APCDALVR("APCDLOC")=ACDEV("LOCATION")
+2 QUIT
+3 ; ********** DO WE NEED SOMETHING HERE **********
+4 ;can't tell activity location
IF '$DATA(ACDEV("ACTLOC"))
SET APCDQUIT=21
QUIT
+5 SET APCDACTL=$PIECE(ACDEV("ACTLOC"),U,5)
+6 SET APCDLOC=$PIECE(ACDEV("DATA0"),U,5)
+7 ;quit if have a hosp/clinic pointer
IF APCDLOC
SET APCDALVR("APCDLOC")=APCDLOC
QUIT
+8 IF APCDACTL="HC"
SET APCDQUIT=24
QUIT
+9 ;home visit
+10 IF APCDACTL="HM"
SET APCDLOC=$PIECE(ACDEV("SITE"),U,5)
IF APCDLOC=""
SET APCDQUIT=22
QUIT
+11 IF APCDACTL="CH"
SET APCDLOC=$PIECE(ACDEV("SITE"),U,6)
IF APCDLOC=""
SET APCDQUIT=27
QUIT
+12 IF 'APCDLOC
SET APCDLOC=$PIECE(ACDEV("SITE"),U,9)
IF APCDLOC=""
SET APCDQUIT=23
QUIT
+13 SET APCDALVR("APCDLOC")=APCDLOC
+14 QUIT
+15 ;
GETTYPE ;get type of visit
+1 SET APCDALVR("APCDTYPE")=ACDEV("SITE TYPE")
+2 QUIT
+3 ; ********** DO WE NEED SOMETHING HERE *********
+4 ;if not a clinic, set to tribal and quit
SET APCDLOC=$PIECE(^AUTTLOC(APCDALVR("APCDLOC"),0),U,10)
IF $EXTRACT(APCDLOC,5,6)>49
SET APCDALVR("APCDTYPE")="T"
QUIT
+5 SET APCDALVR("APCDTYPE")=$PIECE(ACDEV("SITE"),U,4)
IF APCDALVR("APCDTYPE")'=""
QUIT
+6 ;if loc updated use it
SET X=$PIECE(^AUTTLOC(APCDALVR("APCDLOC"),0),U,25)
IF X]""
SET APCDALVR("APCDTYPE")=$SELECT(X=1:"I",X=2:"6",X=3:"C",X=6:"T",1:"O")
QUIT
+7 ;use pcc master control if all else fails
SET X=$PIECE($GET(^APCCCTRL(DUZ(2),0)),U,4)
IF X]""
SET APCDALVR("APCDTYPE")=X
QUIT
+8 ;default to T if can't determine
SET APCDALVR("APCDTYPE")="T"
+9 QUIT
+10 ;
E ;edited a cdmis record
+1 DO E^APCDAAC2
+2 QUIT
+3 ;
D ;deleted a cdmis record
+1 DO D^APCDAAC2
+2 QUIT
+3 ;
EOJ ;
+1 KILL APCDLINK,APCDFILE,APCDERR,APCDQUIT,APCDALVR,APCDTYPE,APCDLOC,APCDDATK,APCDACTL,APCDIEN,APCDX,APCDGOT,APCDVSIT
+2 KILL ACDEV
+3 QUIT
+4 ;
VSERROR ;EP
+1 SET APCDFILE="VISIT"
+2 SET APCDIEN=$GET(ACDEV("VISIT"))
+3 SET APCDERR="VE"_APCDQUIT
SET APCDERR=$PIECE($TEXT(@APCDERR),";;",2)
+4 DO LBULL^APCDALD
+5 QUIT
+6 ;
VE2 ;;inability to create visit
VE3 ;;invalid visit parameters (date, location etc.)
VE4 ;;ACDEV array not passed
VE5 ;;Required variable not passed
VE6 ;;Required variable is null
VE7 ;;No appropriate type (i.e., A,E,D)
VE21 ;;No activity location passed. No Location determined.
VE22 ;;No IHS Location for HOME in CDMIS SITE PARAMETER File.
VE23 ;;No IHS Location for OTHER in CDMIS SITE PARAMETER File.
VE24 ;;No Location of Encounter when Activity location is Hospital/Clinic.
VE27 ;;No Location of Encounter for OFFICE in CDMIS SITE PARAMETER file.
VE28 ;;Error attempting to modify visit
