- PXCEINTR ;ISL/dee - PCE List Manager call to do interview questions ;7/9/96
- ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
- ;
- Q
- ;
- GETVIEN() ;Ask the user which visit or to add a new one.
- N PXCEVIDX,PXCEVIEN
- S PXCEVIDX=$$SEL1^PXCE("",1)
- Q:PXCEVIDX="A" ""
- Q:PXCEVIDX'>0 -1
- S PXCEVIEN=$G(^TMP("PXCEIDX",$J,PXCEVIDX))
- ;Check that it is not related to a no show or canceled apppointment
- D APPCHECK^PXCESDAM(.PXCEVIEN)
- Q:'$D(PXCEVIEN) -1
- ;Cannot edit future visits
- I $P(+^AUPNVSIT(PXCEVIEN,0),".")>DT D Q -1
- . W !!,$C(7),"Can not update future encounters."
- . D WAIT^PXCEHELP
- . K PXCEVIEN
- I $P(^AUPNVSIT(PXCEVIEN,0),"^",7)="E" D Q -1
- . W !!,"You can not do the Checkout Interview on an Historical encounter."
- . D WAIT^PXCEHELP
- Q PXCEVIEN
- ;
- INTRVIEW ;Do Interview form Encounter List.
- ; Allows the adding of new encounters.
- N PXCEVIEN
- S PXCEVIEN=$$GETVIEN
- Q:PXCEVIEN=-1
- ;
- N PXCEAPPM,PXCERET,PXCEWHAT
- S PXCEWHAT="ADDEDIT"
- I '$D(PXCEPAT) N PXCEPAT S PXCEPAT=""
- I '$D(PXCEHLOC) N PXCEHLOC S PXCEHLOC=""
- I PXCEVIEN>0 D
- . S PXCEPAT=$P(^AUPNVSIT(PXCEVIEN,0),"^",5)
- . S PXCEHLOC=$P(^AUPNVSIT(PXCEVIEN,0),"^",22)
- . I $$VSTAPPT^PXUTL1(PXCEPAT,+^AUPNVSIT(PXCEVIEN,0),$P(^(0),"^",22),PXCEVIEN) S PXCEAPPM=+^AUPNVSIT(PXCEVIEN,0),PXCEWHAT="INTV"
- ;
- S PXCERET=$$INTV^PXAPI(PXCEWHAT,"PX","PXCE DATA ENTRY",.PXCEVIEN,.PXCEHLOC,.PXCEPAT,$G(PXCEAPPM))
- INTRVQ Q
- ;
- SDINTRVW(PXCEWHAT) ;Do Interview form Appointment List.
- N PXCEVIEN
- N PXCEAPDT S PXCEAPDT=""
- I '$D(PXCEPAT) N PXCEPAT S PXCEPAT=""
- I '$D(PXCEHLOC) N PXCEHLOC S PXCEHLOC=""
- S PXCEVIEN=$$SELAPPM^PXCESDAM
- Q:PXCEVIEN=-1
- I 'PXCEVIEN D
- . I PXCEWHAT'="INTV",PXCEWHAT'="ADQ" D
- .. W $C(7),!,"There is no Encounter for this Appointment."
- .. D WAIT^PXCEHELP
- .. K PXCEVIEN
- . E S PXCEVIEN=""
- I '$D(PXCEVIEN) G SDINTRVQ
- N PXCERET
- S PXCERET=$$INTV^PXAPI(PXCEWHAT,"PX","PXCE DATA ENTRY",.PXCEVIEN,.PXCEHLOC,.PXCEPAT,PXCEAPDT)
- SDINTRVQ Q
- ;
- UPDATENC ;From the Update Encounter Screen
- I $P(^AUPNVSIT(PXCEVIEN,0),"^",7)="E" D Q
- . W !!,"You can not do the Checkout Interview on an Historical encounter."
- . D WAIT^PXCEHELP
- D FULL^VALM1
- I $$INTV^PXAPI($S($$VSTAPPT^PXUTL1(PXCEPAT,+^AUPNVSIT(PXCEVIEN,0),+$G(PXCEHLOC),PXCEVIEN):"INTV",1:"ADDEDIT"),"PX","PXCE DATA ENTRY",PXCEVIEN,PXCEHLOC,PXCEPAT)
- Q
- ;
- PXCEINTR ;ISL/dee - PCE List Manager call to do interview questions ;7/9/96
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
- +2 ;
- +3 QUIT
- +4 ;
- GETVIEN() ;Ask the user which visit or to add a new one.
- +1 NEW PXCEVIDX,PXCEVIEN
- +2 SET PXCEVIDX=$$SEL1^PXCE("",1)
- +3 IF PXCEVIDX="A"
- QUIT ""
- +4 IF PXCEVIDX'>0
- QUIT -1
- +5 SET PXCEVIEN=$GET(^TMP("PXCEIDX",$JOB,PXCEVIDX))
- +6 ;Check that it is not related to a no show or canceled apppointment
- +7 DO APPCHECK^PXCESDAM(.PXCEVIEN)
- +8 IF '$DATA(PXCEVIEN)
- QUIT -1
- +9 ;Cannot edit future visits
- +10 IF $PIECE(+^AUPNVSIT(PXCEVIEN,0),".")>DT
- Begin DoDot:1
- +11 WRITE !!,$CHAR(7),"Can not update future encounters."
- +12 DO WAIT^PXCEHELP
- +13 KILL PXCEVIEN
- End DoDot:1
- QUIT -1
- +14 IF $PIECE(^AUPNVSIT(PXCEVIEN,0),"^",7)="E"
- Begin DoDot:1
- +15 WRITE !!,"You can not do the Checkout Interview on an Historical encounter."
- +16 DO WAIT^PXCEHELP
- End DoDot:1
- QUIT -1
- +17 QUIT PXCEVIEN
- +18 ;
- INTRVIEW ;Do Interview form Encounter List.
- +1 ; Allows the adding of new encounters.
- +2 NEW PXCEVIEN
- +3 SET PXCEVIEN=$$GETVIEN
- +4 IF PXCEVIEN=-1
- QUIT
- +5 ;
- +6 NEW PXCEAPPM,PXCERET,PXCEWHAT
- +7 SET PXCEWHAT="ADDEDIT"
- +8 IF '$DATA(PXCEPAT)
- NEW PXCEPAT
- SET PXCEPAT=""
- +9 IF '$DATA(PXCEHLOC)
- NEW PXCEHLOC
- SET PXCEHLOC=""
- +10 IF PXCEVIEN>0
- Begin DoDot:1
- +11 SET PXCEPAT=$PIECE(^AUPNVSIT(PXCEVIEN,0),"^",5)
- +12 SET PXCEHLOC=$PIECE(^AUPNVSIT(PXCEVIEN,0),"^",22)
- +13 IF $$VSTAPPT^PXUTL1(PXCEPAT,+^AUPNVSIT(PXCEVIEN,0),$PIECE(^(0),"^",22),PXCEVIEN)
- SET PXCEAPPM=+^AUPNVSIT(PXCEVIEN,0)
- SET PXCEWHAT="INTV"
- End DoDot:1
- +14 ;
- +15 SET PXCERET=$$INTV^PXAPI(PXCEWHAT,"PX","PXCE DATA ENTRY",.PXCEVIEN,.PXCEHLOC,.PXCEPAT,$GET(PXCEAPPM))
- INTRVQ QUIT
- +1 ;
- SDINTRVW(PXCEWHAT) ;Do Interview form Appointment List.
- +1 NEW PXCEVIEN
- +2 NEW PXCEAPDT
- SET PXCEAPDT=""
- +3 IF '$DATA(PXCEPAT)
- NEW PXCEPAT
- SET PXCEPAT=""
- +4 IF '$DATA(PXCEHLOC)
- NEW PXCEHLOC
- SET PXCEHLOC=""
- +5 SET PXCEVIEN=$$SELAPPM^PXCESDAM
- +6 IF PXCEVIEN=-1
- QUIT
- +7 IF 'PXCEVIEN
- Begin DoDot:1
- +8 IF PXCEWHAT'="INTV"
- IF PXCEWHAT'="ADQ"
- Begin DoDot:2
- +9 WRITE $CHAR(7),!,"There is no Encounter for this Appointment."
- +10 DO WAIT^PXCEHELP
- +11 KILL PXCEVIEN
- End DoDot:2
- +12 IF '$TEST
- SET PXCEVIEN=""
- End DoDot:1
- +13 IF '$DATA(PXCEVIEN)
- GOTO SDINTRVQ
- +14 NEW PXCERET
- +15 SET PXCERET=$$INTV^PXAPI(PXCEWHAT,"PX","PXCE DATA ENTRY",.PXCEVIEN,.PXCEHLOC,.PXCEPAT,PXCEAPDT)
- SDINTRVQ QUIT
- +1 ;
- UPDATENC ;From the Update Encounter Screen
- +1 IF $PIECE(^AUPNVSIT(PXCEVIEN,0),"^",7)="E"
- Begin DoDot:1
- +2 WRITE !!,"You can not do the Checkout Interview on an Historical encounter."
- +3 DO WAIT^PXCEHELP
- End DoDot:1
- QUIT
- +4 DO FULL^VALM1
- +5 IF $$INTV^PXAPI($SELECT($$VSTAPPT^PXUTL1(PXCEPAT,+^AUPNVSIT(PXCEVIEN,0),+$GET(PXCEHLOC),PXCEVIEN):"INTV",1:"ADDEDIT"),"PX","PXCE DATA ENTRY",PXCEVIEN,PXCEHLOC,PXCEPAT)
- +6 QUIT
- +7 ;
