PXVSC ;SLC/PKR - APIs for Clinical Reminder indexes. ;08/11/2017
;;1.0;PCE PATIENT CARE ENCOUNTER;**211**;Aug 12, 1996;Build 454
;
Q
;=============================================
KVSC(X,DA) ;Delete indexes for the V Standard Codes file.
;X(1)=CODING SYSTEM, X(2)=CODE,X(3)=DFN, X(4)=VISIT IEN,
;X(5)=EVENT DATE AND TIME.
N DATE,VISIT
S VISIT=$G(^AUPNVSIT(X(4),0))
I VISIT="" Q
;If it is available, use the Event Date/Time for the date.
S DATE=$G(X(5))
I DATE="" S DATE=$P(VISIT,U,1)
K ^PXRMINDX(9000010.71,"IP",X(1),X(2),X(3),DATE,DA)
K ^PXRMINDX(9000010.71,"PI",X(3),X(1),X(2),DATE,DA)
Q
;
;=============================================
SVSC(X,DA) ;Set indexes for the V Standard Codes file.
;X(1)=CODING SYSTEM, X(2)=CODE,X(3)=DFN, X(4)=VISIT IEN,
;X(5)=EVENT DATE AND TIME
N DATE,VISIT
S VISIT=$G(^AUPNVSIT(X(4),0))
I VISIT="" Q
;If it is available, use the Event Date/Time for the date.
S DATE=$G(X(5))
I DATE="" S DATE=$P(VISIT,U,1)
S ^PXRMINDX(9000010.71,"IP",X(1),X(2),X(3),DATE,DA)=""
S ^PXRMINDX(9000010.71,"PI",X(3),X(1),X(2),DATE,DA)=""
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXVSC 1114 printed Oct 16, 2024@18:32:45 Page 2
PXVSC ;SLC/PKR - APIs for Clinical Reminder indexes. ;08/11/2017
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**211**;Aug 12, 1996;Build 454
+2 ;
+3 QUIT
+4 ;=============================================
KVSC(X,DA) ;Delete indexes for the V Standard Codes file.
+1 ;X(1)=CODING SYSTEM, X(2)=CODE,X(3)=DFN, X(4)=VISIT IEN,
+2 ;X(5)=EVENT DATE AND TIME.
+3 NEW DATE,VISIT
+4 SET VISIT=$GET(^AUPNVSIT(X(4),0))
+5 IF VISIT=""
QUIT
+6 ;If it is available, use the Event Date/Time for the date.
+7 SET DATE=$GET(X(5))
+8 IF DATE=""
SET DATE=$PIECE(VISIT,U,1)
+9 KILL ^PXRMINDX(9000010.71,"IP",X(1),X(2),X(3),DATE,DA)
+10 KILL ^PXRMINDX(9000010.71,"PI",X(3),X(1),X(2),DATE,DA)
+11 QUIT
+12 ;
+13 ;=============================================
SVSC(X,DA) ;Set indexes for the V Standard Codes file.
+1 ;X(1)=CODING SYSTEM, X(2)=CODE,X(3)=DFN, X(4)=VISIT IEN,
+2 ;X(5)=EVENT DATE AND TIME
+3 NEW DATE,VISIT
+4 SET VISIT=$GET(^AUPNVSIT(X(4),0))
+5 IF VISIT=""
QUIT
+6 ;If it is available, use the Event Date/Time for the date.
+7 SET DATE=$GET(X(5))
+8 IF DATE=""
SET DATE=$PIECE(VISIT,U,1)
+9 SET ^PXRMINDX(9000010.71,"IP",X(1),X(2),X(3),DATE,DA)=""
+10 SET ^PXRMINDX(9000010.71,"PI",X(3),X(1),X(2),DATE,DA)=""
+11 QUIT
+12 ;
