PXCEVIS ;BHM/ADM - Used to edit and display VIS ;06/29/2017
;;1.0;PCE PATIENT CARE ENCOUNTER;**210,211**;Aug 12, 1996;Build 454
;;
Q
EVIS ; add/edit VIS OFFERED/GIVEN TO PATIENT
Q:'(+$G(PXCEFIEN)!+$G(PXVNEWDA))
N DA,DIE,DR
S DA=$S(+$G(PXCEFIEN):PXCEFIEN,1:PXVNEWDA)
S DIE="^AUPNVIMM(",DR="2" D ^DIE
Q
;
DISPVIS(PXCEINT,PXCEDT) ; display VIS name with EDITION DATE
N PXCEDILF,PXCEEXT,PXV2,PXV3,PXVED,PXVDT
S PXCEEXT=$$EXTERNAL^DILFD(9000010.112,.01,"",PXCEINT,"PXCEDILF")
I PXCEINT D
.S PXV2=$P($G(^AUTTIVIS(PXCEINT,0)),"^",2),PXVED=$$EXTERNAL^DILFD(920,.02,"",PXV2,"PXCEDILF")
.S PXV3=$P($G(^AUPNVIMM(IEN,2,CNT,0)),"^",2),PXVDT=$$EXTERNAL^DILFD(9000010.112,.02,"",PXV3,"PXCEDILF")
I $L(PXCEEXT) S PXCEEXT=PXCEEXT_" (Ed. "_PXVED_")"
I $G(PXV3) S PXCEEXT=PXCEEXT_" Offered/Given: "_PXVDT
Q $S('$D(DIERR):PXCEEXT,1:PXCEINT)
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXCEVIS 863 printed Dec 13, 2024@02:28:25 Page 2
PXCEVIS ;BHM/ADM - Used to edit and display VIS ;06/29/2017
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**210,211**;Aug 12, 1996;Build 454
+2 ;;
+3 QUIT
EVIS ; add/edit VIS OFFERED/GIVEN TO PATIENT
+1 if '(+$GET(PXCEFIEN)!+$GET(PXVNEWDA))
QUIT
+2 NEW DA,DIE,DR
+3 SET DA=$SELECT(+$GET(PXCEFIEN):PXCEFIEN,1:PXVNEWDA)
+4 SET DIE="^AUPNVIMM("
SET DR="2"
DO ^DIE
+5 QUIT
+6 ;
DISPVIS(PXCEINT,PXCEDT) ; display VIS name with EDITION DATE
+1 NEW PXCEDILF,PXCEEXT,PXV2,PXV3,PXVED,PXVDT
+2 SET PXCEEXT=$$EXTERNAL^DILFD(9000010.112,.01,"",PXCEINT,"PXCEDILF")
+3 IF PXCEINT
Begin DoDot:1
+4 SET PXV2=$PIECE($GET(^AUTTIVIS(PXCEINT,0)),"^",2)
SET PXVED=$$EXTERNAL^DILFD(920,.02,"",PXV2,"PXCEDILF")
+5 SET PXV3=$PIECE($GET(^AUPNVIMM(IEN,2,CNT,0)),"^",2)
SET PXVDT=$$EXTERNAL^DILFD(9000010.112,.02,"",PXV3,"PXCEDILF")
End DoDot:1
+6 IF $LENGTH(PXCEEXT)
SET PXCEEXT=PXCEEXT_" (Ed. "_PXVED_")"
+7 IF $GET(PXV3)
SET PXCEEXT=PXCEEXT_" Offered/Given: "_PXVDT
+8 QUIT $SELECT('$DATA(DIERR):PXCEEXT,1:PXCEINT)
+9 ;
