- PXKCO ;ISL/JVS,ESW - Provider-Dx-CPT-VSIT at check-out ; 11/20/02 4:43pm
- ;;1.0;PCE PATIENT CARE ENCOUNTER;**28,41,96**;Aug 12, 1996
- ;Routine-set varibles-Check-out
- ; VARIABLE LIST
- ;
- ; PXKAFT = After picture of the encounter provider entry
- ; PXKBEF = Before picture of the encounter provider entry
- ; PXKDFN = The DFN of the patient(IEN in file 2 or 9000001)
- ; PXKNODA,PXKNODB = Before and After Enounter NODE
- ; PXKPR,PXKAPR,PXKBPR = PROVIDER IEN in VA(200
- ; PXKREF = Reference to the temp global
- ; PXKSOR = Source of data(CO,EF,WS,DE)
- ; PXKOE = outpatient encounter IEN in SCE
- ; PXKOA = Operating/attending(e.g "O" or "A")
- ; PXKORG = Orginating process
- ; PXKPRI = IFN of OUTPATIENT PROVIDER (#409.44) file entry
- ; PXKPS,PXKAPS = primary/secondary(e.g. "P" or "S")
- ; PXKVDT = Visit date and time in fileman format
- ; PXKVST = Encounter equavalent visit IEN in VISIT file
- ;
- W !,"This is NOT an entry point!!" Q
- ;
- EN1 ;Pims Check-out entry point
- N VSIT
- I '$D(SDHDL) Q
- ;
- EN ;---ENTRY POINT
- N PXKREF,PXKORG,STOP,PXKOE
- S PXKREF="^TMP(""SDEVT"",$J,SDHDL)",STOP=0
- ;
- ; -- SDHDL is the current process
- ; It's always defined.
- ;
- S PXKORG=0
- F S PXKORG=$O(@PXKREF@(PXKORG)) S:"1234"'[PXKORG STOP=1 Q:STOP=1 Q:'PXKORG D
- .Q:STOP=1
- .N PXKNODB,PXKNODA
- .S PXKOE=0 F S PXKOE=$O(@PXKREF@(PXKORG,"SDOE",PXKOE)) Q:'PXKOE D
- ..K VSIT
- ..N NODE,NODE0,PXKDIV
- ..S PXKNODB=$G(@PXKREF@(PXKORG,"SDOE",PXKOE,0,"BEFORE"))
- ..S PXKNODA=$G(@PXKREF@(PXKORG,"SDOE",PXKOE,0,"AFTER"))
- ..S VSIT("IENB")=$P(PXKNODB,"^",5) ;BEFORE IEN
- ..S VSIT("IEN")=$P(PXKNODA,"^",5) ;VISIT IEN
- ..Q:$G(VSIT("IEN"))<1
- ..;
- ..S NODE0=$G(^AUPNVSIT(VSIT("IEN"),0))
- ..S NODE=$G(^AUPNVSIT(VSIT("IEN"),150))
- ..Q:NODE0=""
- ..;
- ..;gathering the changed data elements
- ..I $P(NODE0,U,21)'=$P(PXKNODA,U,13) S VSIT("ELG")=$P(PXKNODA,"^",13) ;ELIGIBILITY
- ..I $P(PXKNODB,U,3)'=$P(PXKNODA,U,3) S VSIT("DSS")=$P(PXKNODA,"^",3) ;CLINIC STOP CODE
- ..I $P(PXKNODB,U,11)'=$P(PXKNODA,U,11) S PXKDIV=$P($G(PXKNODA),"^",11) ;DIVISION
- ..I $D(PXKDIV) S VSIT("INS")=$S(+$P(NODE0,U,6)>0:$P(NODE0,U,6),+PXKDIV>0:$P($G(^DG(40.8,+PXKDIV,0)),"^",7),1:"") ;INSTITUTION; PX/96 - accept INSTITUTION if passed to PCE.
- ..;
- ..I '$D(VSIT("ELG")),'$D(VSIT("DSS")),'$D(VSIT("INS")) Q
- ..;
- ..;check for necessary changes to SVC and PRI
- ..I ($D(VSIT("DSS"))),($P(PXKNODA,U,8)'=4),(NODE]"") DO
- ...S VSIT("SVC")=$$SVC("A",VSIT("DSS"),$P(NODE,U,2),$P(PXKNODA,U,4))
- ...S VSIT("PRI")=$$PRI($P(NODE,U,3),VSIT("DSS"))
- ..;
- ..D UPD^VSIT
- ..K VSIT
- Q
- ;
- SVC(SVC,DSS,PXKIO,LOC) ;
- ;This tag performs the same tests for the Service Catagory that are in
- ;the visit tracking routine VSITDEF. This has been added as part of
- ;patch SD*5.3*66
- ;INPUTS SVC - The service category to start with.
- ; DSS - The Clinic stop code or DSS Identifier.
- ; PXKIO - The Patient status.
- ; LOC - The location of the visit.
- ;
- ;OUTPUT SVC - The service category need based upon DSS and PXKIO
- ;
- I SVC="E" G SVCQ
- I $P(^DIC(40.7,+DSS,0),"^",1)["TELE" S SVC="T" G SVCQ ;any TELEphone
- I $O(^VSIT(150.1,"B",$P(^DIC(40.7,+DSS,0),"^",2),0)) S SVC="X"
- I SVC="",+DSS=$P($G(^SC(+LOC,0)),"^",7) S SVC="A"
- I SVC="" S SVC="X"
- I PXKIO S SVC=$S(SVC="A":"I",SVC="X":"D",1:SVC)
- E S SVC=$S(SVC="I":"A",SVC="D":"X",1:SVC)
- SVCQ Q SVC
- ;
- PRI(PRI,DSS) ;
- ;This tag performs the same checks for the encounter type as in VSITDEF
- ;It has been added as part of SD*5.3*66
- ;INPUT PRI - Encounter type
- ; DSS - The Clinic stop code or DSS ID.
- ;
- ;OUTPUT PRI - The Encounter type based upon DSS
- ;
- I PRI="P",$O(^VSIT(150.1,"B",+$P($G(^DIC(40.7,+DSS,0)),"^",2),0)) S PRI="O"
- E I PRI="O",'$O(^VSIT(150.1,"B",+$P($G(^DIC(40.7,+DSS,0)),"^",2),0)) S PRI="P"
- Q PRI
- PXKCO ;ISL/JVS,ESW - Provider-Dx-CPT-VSIT at check-out ; 11/20/02 4:43pm
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**28,41,96**;Aug 12, 1996
- +2 ;Routine-set varibles-Check-out
- +3 ; VARIABLE LIST
- +4 ;
- +5 ; PXKAFT = After picture of the encounter provider entry
- +6 ; PXKBEF = Before picture of the encounter provider entry
- +7 ; PXKDFN = The DFN of the patient(IEN in file 2 or 9000001)
- +8 ; PXKNODA,PXKNODB = Before and After Enounter NODE
- +9 ; PXKPR,PXKAPR,PXKBPR = PROVIDER IEN in VA(200
- +10 ; PXKREF = Reference to the temp global
- +11 ; PXKSOR = Source of data(CO,EF,WS,DE)
- +12 ; PXKOE = outpatient encounter IEN in SCE
- +13 ; PXKOA = Operating/attending(e.g "O" or "A")
- +14 ; PXKORG = Orginating process
- +15 ; PXKPRI = IFN of OUTPATIENT PROVIDER (#409.44) file entry
- +16 ; PXKPS,PXKAPS = primary/secondary(e.g. "P" or "S")
- +17 ; PXKVDT = Visit date and time in fileman format
- +18 ; PXKVST = Encounter equavalent visit IEN in VISIT file
- +19 ;
- +20 WRITE !,"This is NOT an entry point!!"
- QUIT
- +21 ;
- EN1 ;Pims Check-out entry point
- +1 NEW VSIT
- +2 IF '$DATA(SDHDL)
- QUIT
- +3 ;
- EN ;---ENTRY POINT
- +1 NEW PXKREF,PXKORG,STOP,PXKOE
- +2 SET PXKREF="^TMP(""SDEVT"",$J,SDHDL)"
- SET STOP=0
- +3 ;
- +4 ; -- SDHDL is the current process
- +5 ; It's always defined.
- +6 ;
- +7 SET PXKORG=0
- +8 FOR
- SET PXKORG=$ORDER(@PXKREF@(PXKORG))
- IF "1234"'[PXKORG
- SET STOP=1
- IF STOP=1
- QUIT
- IF 'PXKORG
- QUIT
- Begin DoDot:1
- +9 IF STOP=1
- QUIT
- +10 NEW PXKNODB,PXKNODA
- +11 SET PXKOE=0
- FOR
- SET PXKOE=$ORDER(@PXKREF@(PXKORG,"SDOE",PXKOE))
- IF 'PXKOE
- QUIT
- Begin DoDot:2
- +12 KILL VSIT
- +13 NEW NODE,NODE0,PXKDIV
- +14 SET PXKNODB=$GET(@PXKREF@(PXKORG,"SDOE",PXKOE,0,"BEFORE"))
- +15 SET PXKNODA=$GET(@PXKREF@(PXKORG,"SDOE",PXKOE,0,"AFTER"))
- +16 ;BEFORE IEN
- SET VSIT("IENB")=$PIECE(PXKNODB,"^",5)
- +17 ;VISIT IEN
- SET VSIT("IEN")=$PIECE(PXKNODA,"^",5)
- +18 IF $GET(VSIT("IEN"))<1
- QUIT
- +19 ;
- +20 SET NODE0=$GET(^AUPNVSIT(VSIT("IEN"),0))
- +21 SET NODE=$GET(^AUPNVSIT(VSIT("IEN"),150))
- +22 IF NODE0=""
- QUIT
- +23 ;
- +24 ;gathering the changed data elements
- +25 ;ELIGIBILITY
- IF $PIECE(NODE0,U,21)'=$PIECE(PXKNODA,U,13)
- SET VSIT("ELG")=$PIECE(PXKNODA,"^",13)
- +26 ;CLINIC STOP CODE
- IF $PIECE(PXKNODB,U,3)'=$PIECE(PXKNODA,U,3)
- SET VSIT("DSS")=$PIECE(PXKNODA,"^",3)
- +27 ;DIVISION
- IF $PIECE(PXKNODB,U,11)'=$PIECE(PXKNODA,U,11)
- SET PXKDIV=$PIECE($GET(PXKNODA),"^",11)
- +28 ;INSTITUTION; PX/96 - accept INSTITUTION if passed to PCE.
- IF $DATA(PXKDIV)
- SET VSIT("INS")=$SELECT(+$PIECE(NODE0,U,6)>0:$PIECE(NODE0,U,6),+PXKDIV>0:$PIECE($GET(^DG(40.8,+PXKDIV,0)),"^",7),1:"")
- +29 ;
- +30 IF '$DATA(VSIT("ELG"))
- IF '$DATA(VSIT("DSS"))
- IF '$DATA(VSIT("INS"))
- QUIT
- +31 ;
- +32 ;check for necessary changes to SVC and PRI
- +33 IF ($DATA(VSIT("DSS")))
- IF ($PIECE(PXKNODA,U,8)'=4)
- IF (NODE]"")
- Begin DoDot:3
- +34 SET VSIT("SVC")=$$SVC("A",VSIT("DSS"),$PIECE(NODE,U,2),$PIECE(PXKNODA,U,4))
- +35 SET VSIT("PRI")=$$PRI($PIECE(NODE,U,3),VSIT("DSS"))
- End DoDot:3
- +36 ;
- +37 DO UPD^VSIT
- +38 KILL VSIT
- End DoDot:2
- End DoDot:1
- +39 QUIT
- +40 ;
- SVC(SVC,DSS,PXKIO,LOC) ;
- +1 ;This tag performs the same tests for the Service Catagory that are in
- +2 ;the visit tracking routine VSITDEF. This has been added as part of
- +3 ;patch SD*5.3*66
- +4 ;INPUTS SVC - The service category to start with.
- +5 ; DSS - The Clinic stop code or DSS Identifier.
- +6 ; PXKIO - The Patient status.
- +7 ; LOC - The location of the visit.
- +8 ;
- +9 ;OUTPUT SVC - The service category need based upon DSS and PXKIO
- +10 ;
- +11 IF SVC="E"
- GOTO SVCQ
- +12 ;any TELEphone
- IF $PIECE(^DIC(40.7,+DSS,0),"^",1)["TELE"
- SET SVC="T"
- GOTO SVCQ
- +13 IF $ORDER(^VSIT(150.1,"B",$PIECE(^DIC(40.7,+DSS,0),"^",2),0))
- SET SVC="X"
- +14 IF SVC=""
- IF +DSS=$PIECE($GET(^SC(+LOC,0)),"^",7)
- SET SVC="A"
- +15 IF SVC=""
- SET SVC="X"
- +16 IF PXKIO
- SET SVC=$SELECT(SVC="A":"I",SVC="X":"D",1:SVC)
- +17 IF '$TEST
- SET SVC=$SELECT(SVC="I":"A",SVC="D":"X",1:SVC)
- SVCQ QUIT SVC
- +1 ;
- PRI(PRI,DSS) ;
- +1 ;This tag performs the same checks for the encounter type as in VSITDEF
- +2 ;It has been added as part of SD*5.3*66
- +3 ;INPUT PRI - Encounter type
- +4 ; DSS - The Clinic stop code or DSS ID.
- +5 ;
- +6 ;OUTPUT PRI - The Encounter type based upon DSS
- +7 ;
- +8 IF PRI="P"
- IF $ORDER(^VSIT(150.1,"B",+$PIECE($GET(^DIC(40.7,+DSS,0)),"^",2),0))
- SET PRI="O"
- +9 IF '$TEST
- IF PRI="O"
- IF '$ORDER(^VSIT(150.1,"B",+$PIECE($GET(^DIC(40.7,+DSS,0)),"^",2),0))
- SET PRI="P"
- +10 QUIT PRI
