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

GMRCNOTF.m

Go to the documentation of this file.
  1. GMRCNOTF ;SLC/JFR - NOTIFICATION RECIPIENT UTILITIES; 7/31/99 21:58
  1. ;;3.0;CONSULT/REQUEST TRACKING;**11**;DEC 27, 1997
  1. EN ; -- main entry point for GMRC NOTIFICATION RECIPS
  1. N GMRCSV
  1. D SELSS Q:'$D(GMRCSV)
  1. D INIT
  1. D EN^VALM("GMRC NOTIFICATION RECIPS")
  1. Q
  1. ;
  1. SELSS ; select new service
  1. N DIR,X,Y,DIRUT,DUOUT,DTOUT
  1. D FULL^VALM1
  1. S DIR(0)="PO^123.5:EMQ",DIR("A")="Select Service"
  1. D ^DIR
  1. I $D(DIRUT) Q
  1. S GMRCSV=+Y
  1. K ^TMP("GMRCNOTF",$J)
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="Notification Recipients for: "
  1. S VALMHDR(1)=VALMHDR(1)_$P(^GMR(123.5,+GMRCSV,0),U)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N GMRCADUZ,LINE,GMRCI,PERS
  1. D EN^GMRCT(+GMRCSV,,1)
  1. I '$D(GMRCADUZ) S ^TMP("GMRCNOTF",$J,1,0)="No notification recipients"
  1. S GMRCI=0,LINE=1
  1. F S GMRCI=$O(GMRCADUZ(GMRCI)) Q:'GMRCI D
  1. . S PERS=$$GET1^DIQ(200,GMRCI,.01)
  1. . S ^TMP("GMRCNOTF",$J,"B",PERS)=GMRCADUZ(GMRCI)
  1. S PERS="" F S PERS=$O(^TMP("GMRCNOTF",$J,"B",PERS)) Q:PERS="" D
  1. . I $L($P(^TMP("GMRCNOTF",$J,"B",PERS),"~",2)) D Q
  1. .. N LOOP,SERV S LOOP=2
  1. .. N SPACES S SPACES=$$REPEAT^XLFSTR(" ",(34-$L(PERS)))
  1. .. S ^TMP("GMRCNOTF",$J,LINE,0)=PERS_SPACES_$P(^TMP("GMRCNOTF",$J,"B",PERS),"~")
  1. .. S LINE=LINE+1
  1. .. F S SERV=$P(^TMP("GMRCNOTF",$J,"B",PERS),"~",LOOP) Q:SERV="" D
  1. ... S ^TMP("GMRCNOTF",$J,LINE,0)=$$REPEAT^XLFSTR(" ",34)_SERV
  1. ... S LOOP=LOOP+1,LINE=LINE+1
  1. . N SPACES S SPACES=$$REPEAT^XLFSTR(" ",(34-$L(PERS)))
  1. . S ^TMP("GMRCNOTF",$J,LINE,0)=PERS_SPACES_^TMP("GMRCNOTF",$J,"B",PERS)
  1. . S LINE=LINE+1
  1. K ^TMP("GMRCNOTF",$J,"B")
  1. S VALMCNT=$O(^TMP("GMRCNOTF",$J,999999),-1)
  1. S VALMBG=1
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;