Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VPRSR

VPRSR.m

Go to the documentation of this file.
  1. VPRSR ;SLC/MKB -- Surgery interface ;10/25/18 15:29
  1. ;;1.0;VIRTUAL PATIENT RECORD;**8,10,15,17,20,30**;Sep 01, 2011;Build 9
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; Supported by DBIA #4750
  1. ;
  1. ; External References DBIA#
  1. ; ------------------- -----
  1. ; ^SRF 5675
  1. ; DIQ 2056
  1. ; SROESTV 3533
  1. ;
  1. ; ---------------- Update Triggers ----------------
  1. ;
  1. ; NOT IN USE: Surgery updates now triggered via TIU
  1. ; (only completed procedures w/visit)
  1. ;
  1. NEW(IEN,DFN,STS) ; -- new surgery request [from SROERR]
  1. Q ;don't want until completed
  1. S IEN=+$G(IEN),DFN=+$G(DFN) Q:DFN<1
  1. D POST^VPRHS(DFN,"Procedure",IEN_";130")
  1. Q
  1. ;
  1. UPD(IEN,DFN,STS) ; -- updated surgery request [from SROERR0]
  1. Q ;hit too often, now trigger off the TIU document event
  1. S IEN=+$G(IEN),DFN=+$G(DFN) Q:DFN<1 Q:$G(STS)'["COMPLETED"
  1. N VPRSR,I,SRDOC,VST
  1. D ONE^SROESTV("VPRSR",IEN)
  1. S I=+$O(VPRSR(IEN,0)),SRDOC=+$G(VPRSR(IEN,I)) Q:'SRDOC
  1. S VST=$$GET1^DIQ(8925,SRDOC,.03,"I")
  1. D:VST POST^VPRHS(DFN,"Procedure",IEN_";130",,VST)
  1. Q
  1. ;
  1. DEL(IEN,DFN) ; -- delete surgery request [from SROERR]
  1. Q ;not used (only saving completed procedures)
  1. S IEN=+$G(IEN),DFN=+$G(DFN) Q:DFN<1
  1. D POST^VPRHS(DFN,"Procedure",IEN_";130","@")
  1. Q