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

TIUPSCA.m

Go to the documentation of this file. 
  1. TIUPSCA ;BPOIFO/EL/CR - TIU DOCUMENT POST SIGNATURE ALERTS ;12/18/17 3:59pm
  1.  ;;1.0;TEXT INTEGRATION UTILITIES;**305**;JUN 20, 1997;Build 27
  1.  ;
  1.  ; External Reference DBIA#:
  1.  ; -------------------------
  1.  ; #1252  - Reference to OUTPTPR^SDUTL3 (Supported)
  1.  ; #2056  - Reference to GET1^DIQ (supported)
  1.  ; #2263  - Reference to GET^XPAR (Supported)
  1.  ; #6811  - Reference to file #100.21 (Private)
  1.  ; #10035 - Reference to file #2  (Supported)
  1.  ; #10061 - Reference to KVA^VADPT (Supported)
  1.  ; #10103 - Reference to FMTE^XLFDT (Supported)
  1.  ; #10103 - Reference to NOW^XLFDT (Supported)
  1.  ; #10081 - Reference to SETUP1^XQALERT (Supported)
  1.  ;
  1.  ; This routine expects the following variables to be defined in the 
  1.  ; local symbol table:
  1.  ; TIUTTL  - IEN of the just-signed TIU DOCUMENT DEFINITION 
  1.  ;           as found in file #8925.1
  1.  ; DA      - IEN of the just-signed TIU DOCUMENT as found in file #8925
  1.  ; DFN     - IEN of the PATIENT associated with the just-signed
  1.  ;           TIU DOCUMENT as found in file #2
  1.  ; TIUXQA  - TIUXQA in TIUPSCS  (mail group recipient)
  1.  ; TIUSPEC - TIUSPEC in TIUPSCS (API for alert)
  1.  ; TIUDEV  - TIUDEV in TIUPSCS (DEVICE to send alert to) 
  1.  ;
  1.  ;
  1. AUTOPRT ; generate note to location based chart copy printer
  1.  N TIUTIU,TIUTOFP
  1.  S (TIUTIU,TIUTOFP)=""
  1.  S TIUTIU=$S($G(TIU12)]"":TIU12,$G(TIUD12)]"":TIUD12,1:"")
  1.  Q:'+TIUTIU
  1.  ; get external name of printer below
  1.  S TIUTOFP=$$GET^XPAR($P(TIUTIU,U,5)_";SC(","ORPF CHART COPY PRINT DEVICE",,"E")
  1.  ;I +TIUTOFP S TIUTOFP=$P(^%ZIS(1,TIUTOFP,0),U)
  1.  Q:TIUTOFP']""
  1.  D RPC^TIUPD(.TIU,DA,TIUTOFP,2)
  1.  Q
  1.  ;
  1. CLEAN ;
  1.  K XQA
  1.  Q
  1.  ;
  1. DEVP ;
  1.  W !,TIUMSG
  1.  Q
  1.  ;
  1. EN(TIUXQA,TIUSPEC,TIUDEV) ;
  1.  N TIU,TIUDEVG,TIUDFN,TIUFOUR,TIUGO,TIUGRP,TIULOC,TIUMSG
  1.  N TIUPTNM,TIUTDEV,TIUTEAM,TIUTIEN,TIUTITL,TIUUSER,VAIN
  1.  N TIUPCP,TIUATT,TIUEND,TIULINE,TIULNUM,TIUPLUS
  1.  N X,XQADATA,XQAID,XQAMSG,XQAROU
  1.  N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
  1.  S (TIU,TIUDEVG,TIUDFN,TIUEND,TIUFOUR,TIUGO,TIUGRP,TIULOC,TIUMSG)=""
  1.  S (TIUPTNM,TIUTDEV,TIUTEAM,TIUTIEN,TIUTITL,TIUUSER,VAIN)=""
  1.  S (X,XQADATA,XQAID,XQAMSG,XQAROU)=""
  1.  S (ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE)=""
  1.  ;
  1.  S (DFN,TIUDFN)=$$GET1^DIQ(8925,DA,.02,"I") ; don't count on existing DFN
  1.  D RECIP
  1.  ;
  1.  S TIUTITL=$$GET1^DIQ(8925.1,TIUTTL,.01)
  1.  ;
  1.  S TIUPTNM=$$GET1^DIQ(2,TIUDFN,.01)
  1.  S TIUFOUR=" ("_$E(TIUPTNM)_$E($$GET1^DIQ(2,TIUDFN,.09),6,9)_") "
  1.  S TIULOC=$$LOC D KVA^VADPT
  1.  S XQAID="TIUADD"_+DA,XQADATA=DA_U
  1.  S XQAROU="ACT^TIUALRT"
  1.  S TIUGO=1
  1.  I $G(TIUSPEC)]"" I $L($T(@TIUSPEC)) D @TIUSPEC
  1.  ; get the primary care provider for the patient, if assigned
  1.  I $G(TIUSPEC)="PCP" D
  1.  . S TIUPCP=$P($$OUTPTPR^SDUTL3(DFN,DT,1),U,1) ; get PCP's DUZ
  1.  . I TIUPCP S XQA(TIUPCP)=""
  1.  ;
  1.  I '$D(XQA) S XQA(DUZ)="" ; default so that the alert can still be sent
  1.  S XQAMSG=TIUPTNM_TIUFOUR_TIULOC_" ("_$$FMTE^XLFDT($$NOW^XLFDT,"2D")
  1.  S XQAMSG=XQAMSG_"): "_TIUTITL_$S($G(TIUEND)]"":" "_TIUEND_".",1:" signed.")
  1.  I $G(TIUDEV)]"" D
  1.  . S TIU=""
  1.  . D RPC^TIUPD(.TIU,DA,TIUDEV,2)
  1.  S TIUMSG=XQAMSG
  1.  I $G(TIUGO)=1 S X=$$SETUP1^XQALERT ; I 'XQALERR W !,"Alert Error: ",XQALERR
  1.  I $G(TIUDEVG)=1 S ZTSAVE("TIUMSG")="" D ^%ZTLOAD
  1.  D CLEAN
  1.  Q
  1.  ;
  1. GETRTN(TIUARY) ; compile array of SUBROUTINE for TIU Document Definition Code
  1.  N I,X
  1.  S (I,X)="",(I,TIUARY)=0
  1.  F I=1:1 D  Q:$G(I)="STOP"
  1.  . S X=$P($T(RTNLST+I),";;",2)
  1.  . I $G(X)="" S I="STOP" Q
  1.  . S TIUARY=I,TIUARY(I)=$E(X,1,70)
  1.  Q TIUARY
  1.  ;
  1. LOC() ; WARD Location: Int^Ext (nn^LOC)
  1.  D INP^VADPT
  1.  Q $S(VAIN(4)]"":"["_$P(VAIN(4),U,2)_"]",1:"")
  1.  ;
  1. RECIP ; determine alert recipients
  1.  ; the patient IEN is kept by TIUDFN, title ien is TIUTTL
  1.  I TIUXQA=+TIUXQA S XQA(TIUXQA)="" ; individual user
  1.  I TIUXQA["G." S XQA(TIUXQA)="" ; mail group
  1.  ;
  1.  I TIUXQA["T." D  ; TEAM LIST
  1.  . S TIUTEAM=$P(TIUXQA,".",2),TIUTIEN=$O(^OR(100.21,"B",TIUTEAM,0)) Q:'+TIUTIEN
  1.  . ; ** EL **
  1.  . S TIUUSER=0
  1.  . F  S TIUUSER=$O(^OR(100.21,TIUTIEN,1,TIUUSER)) Q:'+TIUUSER  D  ;OE/RR team members
  1.  .. S XQA(TIUUSER)=""
  1.  . ; ** EL **
  1.  . S TIUTDEV=$$GET1^DIQ(100.21,TIUTIEN,1.5,"I") I +TIUTDEV D  ; OE/RR team device
  1.  .. S ZTIO="`"_TIUTDEV,ZTDTH=$$NOW^XLFDT
  1.  .. S ZTDESC="TIU Document Post-Signature Alert",ZTRTN="DEVP^TIUPSCA"
  1.  .. S TIUDEVG=1
  1.  Q
  1.  ;
  1. RTNLST ; SUBROUTINE listing as ";;API-Description (upto 70 chars)"
  1.  ;;N/A-No Conditional Alert is needed
  1.  ;;PCP-Include patient's Primary Care Provider from PCMM as a recipient
  1.  ;;AUTOPRT-Generate message to chart copy printer at encounter location
  1.  ;
  1.  Q