VPRPROC.m

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 ---VPRPROC   564     printed  Apr 09, 2024@21:47:12                                                                                                                                                                                                      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