VPRPROC ;SLC/MKB -- Clinical Procedures interface ;10/25/18 15:29
;;1.0;VIRTUAL PATIENT RECORD;**8**;Sep 01, 2011;Build 87
;;Per VA Directive 6402, this routine should not be modified.
;
; Supported by DBIA #4749
;
; ---------------- Update Triggers ----------------
;
UPD(DFN,IEN,STS) ; -- updated procedure request [from #702 AVPR index]
S DFN=+$G(DFN),IEN=+$G(IEN) Q:DFN<1
D CP^VPREVNT(DFN,IEN)
Q
;
DEL(DFN,IEN) ; -- delete procedure request [from #702 AVPR index]
S DFN=+$G(DFN),IEN=+$G(IEN) Q:DFN<1
D CP^VPREVNT(DFN,IEN,"@")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRPROC 564 printed Nov 22, 2024@17:55:36 Page 2
VPRPROC ;SLC/MKB -- Clinical Procedures interface ;10/25/18 15:29
+1 ;;1.0;VIRTUAL PATIENT RECORD;**8**;Sep 01, 2011;Build 87
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Supported by DBIA #4749
+5 ;
+6 ; ---------------- Update Triggers ----------------
+7 ;
UPD(DFN,IEN,STS) ; -- updated procedure request [from #702 AVPR index]
+1 SET DFN=+$GET(DFN)
SET IEN=+$GET(IEN)
if DFN<1
QUIT
+2 DO CP^VPREVNT(DFN,IEN)
+3 QUIT
+4 ;
DEL(DFN,IEN) ; -- delete procedure request [from #702 AVPR index]
+1 SET DFN=+$GET(DFN)
SET IEN=+$GET(IEN)
if DFN<1
QUIT
+2 DO CP^VPREVNT(DFN,IEN,"@")
+3 QUIT
