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

GMRCALRT.m

Go to the documentation of this file.
  1. GMRCALRT ;SLC/DCM - LIST MANAGER ALERT ACTION INTERFACE ; 6/6/02 14:23
  1. ;;3.0;CONSULT/REQUEST TRACKING;**1,4,26**;DEC 27, 1997
  1. EN(GMRCDAT,GMRCDTA) ; -- main entry point for GMRC ALERT ACTION
  1. ;Process an alert for a new consult through List Manager
  1. ;GMRCDTA=XQAID from CPRS interface
  1. ;GMRCDAT=XQADATA from CPRS interface = IFN of consult from file 123
  1. K GMRCQIT,GMRCOER,GMRCNOTF,GMRCCORY
  1. S GMRCALFL=$S($D(XQAID)&($D(XQADATA)):1,1:0)
  1. D EN^GMRCALOR(GMRCDTA,GMRCDAT)
  1. S GMRCNOTF=+$P(GMRCDTA,",",3)
  1. I $D(GMRCQIT) D Q
  1. . S XQAKILL=$$XQAKILL^ORB3F1(GMRCNOTF)
  1. . D DEL^ORB3FUP1(.GMRCCORY,GMRCDTA),EXIT Q
  1. D INIT,HDR
  1. N GMRCACTM
  1. I '+GMRCO S GMRCACTM=$O(^ORD(101,"B","GMRCACTM ALERT BASIC ACTIONS",0))_";ORD(101,"
  1. E N ORFLG D
  1. . D CPRS^GMRCACTM(+GMRCO) ;Get users update status for the Consult entry
  1. . S GMRCACTM=$S(ORFLG(+GMRCO)>1:$O(^ORD(101,"B","GMRCACTM ALERT SERVICE ACTIONS",0))_";ORD(101,",1:$O(^ORD(101,"B","GMRCACTM ALERT BASIC ACTIONS",0))_";ORD(101,")
  1. I '+GMRCACTM K ^TMP("GMRC",$J,"CURRENT","MENU")
  1. E S ^TMP("GMRC",$J,"CURRENT","MENU")=GMRCACTM,XQORM("HIJACK")=^("MENU")
  1. S GMRCOER=0
  1. D EN^VALM("GMRC ALERT ACTION")
  1. S XQAKILL=$$XQAKILL^ORB3F1(GMRCNOTF) D DEL^ORB3FUP1(.GMRCCORY,GMRCDTA)
  1. D EXIT
  1. Q
  1. ;
  1. HDR ; -- header code
  1. N GMRVSTR,X
  1. S GMRCPTN=$P(^DPT(DFN,0),"^",1)
  1. S GMRVSTR="WT" D EN6^GMRVUTL S GMRCWT=$P(X,U,8)
  1. D DEM^GMRCU S:'$D(GMRCWRD) GMRCWRD=GMRCWARD
  1. S VALMHDR(1)=$E(GMRCPTN,1,30)_$S($L(GMRCPTN)<30:$E(TAB,1,30-$L(GMRCPTN)),1:" ")_GMRCSSN_$E(TAB,1,3)_GMRCDOB_$E(TAB,1,10-$L(GMRCDOB))_" ("_GMRCAGE_")"_$E(TAB,1,4)_"Wt (lb):"_GMRCWT
  1. I $D(GMRCWRD),$L(GMRCWRD) S VALMHDR(2)="Ward: "_GMRCWRD
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. K ^TMP("GMRCR",$J,"LIST")
  1. S DSPLINE=0,VALMAR="^TMP(""GMRCR"",$J,""LIST"")"
  1. S GMRCSN=$P(^DPT(DFN,0),"^",9)
  1. S GMRCSSN=$E(GMRCSN,1,3)_"-"_$E(GMRCSN,4,5)_"-"_$E(GMRCSN,6,9)
  1. F LINE=1:1:LNCT S DSPLINE=$O(^TMP("GMRCR",$J,"CS",DSPLINE)) Q:DSPLINE=""!(DSPLINE?1A.E) S DATA=^(DSPLINE,0) D SET^VALM10(LINE,DATA)
  1. S VALMCNT=LNCT
  1. K DSPLINE,DATA,LINE
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("GMRCR",$J),^TMP("GMRCS",$J)
  1. K GMRCALFL,GMRCAID,GMRCQIT,VA,XQAKILL
  1. D ^GMRCREXT
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;