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

HMPWBPL.m

Go to the documentation of this file. 
  1. HMPWBPL ;;EJK/AGX - ENTRY POINT FOR ALL PROBLEM WRITEBACK ACTIVITY; 3/11/2016
  1.  ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;DEC 11 2014;Build 28
  1.  ;Per VA Directive 6402, this routine should not be modified.
  1.  ; INPUT PARAMETERS
  1.  ;   DFN - Patient Identifier. 
  1.  ;   PRV - IEN of provider updating the comment/note for this problem
  1.  ;   VAMC - IEN of location from ^AUTTLOC (file 9999999.06)
  1.  ;   GMPFLD(list) - array of related data
  1.  ;      .01     ;DIAGNOSIS - ICD DIAGNOSIS FILE (FILE 
  1.  ;      .03     ;DATE LAST MODIFIED - DEFAULTS TO CURRENT DATE, FILEMAN DATE FORMAT
  1.  ;      .05     ;PROVIDER NARRATIVE - PROVIDER NARRATIVE FILE, FREE TEXT
  1.  ;      .08     ;DATE ENTERED - FILEMAN DATE FORMAT
  1.  ;      .12     ;STATUS - VALUES ARE (A)CTIVE OR (I)NACTIVE
  1.  ;      .13     ;DATE OF ONSET - FILEMAN DATE FORMAT
  1.  ;      1.01    ;PROBLEM - EXPRESSIONS FILE - Search text from file 9999999.27
  1.  ;      1.02    ;CONDITION - VALUES ARE (T)RANSCRIBED, (P)ERMANENT OR (H)IDDEN
  1.  ;      1.03    ;ENTERED BY - DUZ OF THE PERSON ENTERING THE PROBLEM (NEW PERSON FILE)
  1.  ;      1.04    ;RECORDING PROVIDER - IEN FROM NEW PERSON FILE
  1.  ;      1.05    ;RESPONSIBLE PROVIDER - IEN FROM NEW PERSON FILE
  1.  ;      1.06    ;SERVICE - IEN to SERVICE/SECTION FILE (#49)
  1.  ;      1.07    ;DATE RESOLVED - FILEMAN DATE FORMAT
  1.  ;      1.08    ;IEN TO HOSPITAL LOCATION (FILE 44)
  1.  ;      1.09    ;DATE RECORDED - FILEMAN DATE FORMAT
  1.  ;      1.1     ;SERVICE CONNECTED - 1 FOR YES, 0 FOR NO
  1.  ;      1.11    ;AGENT ORANGE EXPOSURE - 1 FOR YES, 0 FOR NO
  1.  ;      1.12    ;IONIZING RADIATION EXPOSURE - 1 FOR YES, 0 FOR NO
  1.  ;      1.13    ;PERSIAN GULF EXPOSURE  - 1 FOR YES, 0 FOR NO
  1.  ;      1.14    ;PRIORITY - (A)CUTE OR (C)HRONIC
  1.  ;      1.15    ;HEAD AND/OR NECK CANCER - 1 FOR YES, 0 FOR NO
  1.  ;      1.16    ;MILITARY SEXUAL TRAUMA - 1 FOR YES, 0 FOR NO
  1.  ;      1.17    ;COMBAT VETERAN - 1 FOR YES, 0 FOR NO
  1.  ;      1.18    ;SHIPBOARD HAZARD & DEFENSE - 1 FOR YES, 0 FOR NO
  1.  ;      (10,"NEW",1) ;FREE TEXT 60 CHARACTER LIMIT - 1 INDICATES THE NOTE NUMBER
  1.  ;      10,0)   ;WHICH NOTE IS BEING ADDED OR CHANGED
  1.  ;
  1.  Q
  1.  ;
  1. PL(RSLT,DFN,PRV,VAMC,GMPFLD) ; MAIN ENTRY POINT FROM RPC HMP WRITEBACK PROBLEM
  1.  N GMPDFN,GMPVAMC
  1.  S GMPDFN=$G(DFN)
  1.  ;if VAMC is not sent, get the default VAMC site id
  1.  S GMPVAMC=$S($G(VAMC)'="":VAMC,1:+$$SITE^VASITE())
  1.  S RETURN=0
  1.  ;
  1.  ;Lock the problem file. This is a carryover from the GMPLSAVE routine.
  1.  ;For new entries, an IEN to the problem file is not yet assigned so the 
  1.  ;entire file is locked to avoid a collission. 
  1.  ;
  1.  L +^AUPNPROB(0):10 I '$T D MSG^HMPTOOLS("Unable to lock problem file",1) Q
  1.  ;
  1.  ;save patient problem
  1.  D NEW^GMPLSAVE
  1.  ;if record field, DA will be populated. 
  1.  I $G(DA)'>0 D MSG^HMPTOOLS("Problem was not successfully filed",1) Q
  1.  L -^AUPNPROB(0)
  1.  ;set filters for building the JSON result
  1.  S FILTER("id")=DA
  1.  S FILTER("noHead")=1
  1.  S FILTER("domain")="problem"
  1.  S FILTER("patientId")=GMPDFN
  1.  ;create the JSON response
  1.  D GET^HMPDJ(.RSLT,.FILTER)
  1.  ;do not need the 'total' node
  1.  K ^TMP("HMP",$J,"total")
  1.  ;return everything else.
  1.  S RSLT=$NA(^TMP("HMP",$J))
  1.  Q