source: FOIAVistA/tag/r/PATIENT_DATA_EXCHANGE-VAQ/VAQREQ07.m@ 628

VAQREQ07 ;ALB/JFP - PDX, CREATE NOTIFY LIST, REQUEST SCREEN;01MAR93
 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
EP ; -- Main entry point for the list processor
 ;    - Called from VAQREQ02
 ;
REQ ; -- Request users for notify list
 K ^TMP("VAQNOTI",$J)
 N POP,NOTIDA,NOTIUSER,DIRUT,DTOUT,DUOUT,D,J,L,N,X,Y
 ;
 F J=1:1 D ASKNOTI  I $D(DIRUT) D DBLCHK  Q:$D(DIRUT)!(POP)
 ; -- Cleanup and quit
 K POP,NOTIDA,NOTIUSER,DIRUT,DTOUT,DUOUT,D,J,L,N,X,Y
 K MAILDA,MAILNM
 QUIT
 ;
DBLCHK ; -- Double check for exit
 Q:$D(DUOUT)
 S (VAQNOTI,POP)="0"
 I $D(^TMP("VAQNOTI",$J)) D DBL1
 QUIT
 ;
DBL1 ;
 W !!
 S DIR(0)="Y",DIR("B")="NO",DIR("A")="Include Data with Notification(s):"
 D ^DIR K DIR
 I Y=1 S VAQNOTI="1"
 W !!
 S DIR(0)="Y",DIR("B")="YES",DIR("A")="Exit Notify:"
 D ^DIR K DIR
 I Y=1 S POP=1
 QUIT
 ; 
ASKNOTI ; -- Call to Dir to request notify list
 D:$D(^TMP("VAQNOTI",$J)) LISTD
 S POP=0
 S DIR("A")="User to notify: "
 S DIR(0)="FAO^1:30"
 S DIR("?")="^D HLP1^VAQREQ07"
 S DIR("??")="^D HLP2^VAQREQ07"
 W ! D ^DIR K DIR  Q:$D(DIRUT)
 S X=Y
 I X="*L" D LISTD  Q:POP
 I $E(X,1,1)="-" D DELNOTI  Q:POP
 I $E(X,1,2)'="G." D NOTI Q:POP
 I $E(X,1,2)="G." D GNOTI  Q:POP
 QUIT
 ;
NOTI ; -- Dic lookup to verify user in file 200 (new person)
 S DIC="^VA(200,",DIC(0)="EMQZ"
 D ^DIC K DIC I $D(DTOUT)!$D(DUOUT)!(Y<0) S POP=1  QUIT
 S NOTIDA=$P(Y,U,1),NOTIUSER=$P(Y,U,2),^TMP("VAQNOTI",$J,NOTIUSER)=NOTIDA
 QUIT
 ;
GNOTI ; -- Dic lookup to verify mail group name in file XMB(3.8 
 S X=$P(X,".",2) ; -- strip off G.
 S DIC="^XMB(3.8,"
 S DIC(0)="EMQZ"
 D ^DIC K DIC I $D(DTOUT)!$D(DUOUT)!(Y<0) S POP=1  QUIT
 S MAILDA=$P(Y,U,1)
 S MAILNM=$P(Y,U,2)
 D G1
 QUIT
 ;
G1 S NOTIDA=""
 N XMDUZ,XMCHAN,X,Y
 S XMDUZ=$G(DUZ),XMCHAN=1
 S X="G."_MAILNM
 D WHO^XMA21 ; -- Mailman call to determine whos in group, sets XMY(
 F  S NOTIDA=$O(XMY(NOTIDA))  Q:'NOTIDA  D SETG
 QUIT
 ;
SETG ; -- 
 Q:NOTIDA'?1N.N
 S NOTIUSER=$P($G(^VA(200,NOTIDA,0)),U,1)
 S ^TMP("VAQNOTI",$J,NOTIUSER)=NOTIDA
 QUIT
 ;
DELNOTI ; -- Deletes person from notify list
 S POP=1,X=$E(X,2,99)
 I X="" W "     ...No Entries Selected"  QUIT
 S X=$$PARTIC^VAQUTL94("^TMP(""VAQNOTI"","_$J_")",X)
 I X=-1 W "     ... Not Selected" QUIT
 I '$D(^TMP("VAQNOTI",$J,X)) W "     ... ",X," Not Selected"  QUIT
 K ^TMP("VAQNOTI",$J,X) W "     ... ",X," Deleted"
 QUIT
 ;
HLP1 ; -- Display options for user to notify prompt
 W !!!,"Options for User to notify prompt:",!
 W !,"User to notify: users name        ; select user (new person)"
 W !,"User to notify: G.mail group      ; select mail group"
 W !,"User to notify: -users name       ; de-selects a user"
 W !,"User to notify: *L                ; list selected users"
 W !,"User to notify: ^                 ; terminates option"
 W !,"User to notify: return            ; done with option"
 W !,"User to notify: ?                 ; list of input options"
 W !,"User to notify: ??                ; displays choices"
 QUIT
 ;
HLP2 ; -- Display new person file or mail group file
 W !!,"(1) - New Person",!,"(2) - Mail Group",!
 R "Select Display Option: ",X:DTIME  Q:X=""
 I X="^"  QUIT
 I X=1 D H1  QUIT
 I X=2 D H2  QUIT
 W "        ...invalid entry"
 K X
 QUIT
 ;
H1 ; -- Displays new person file
 S DIC="^VA(200,",DIC(0)="C",D="B"
 D DQ^DICQ
 K DIC,D
 QUIT
 ;
H2 ; -- Display mail groups
 S DIC="^XMB(3.8,"
 S DIC(0)="CM"
 S D="B",DZ="??"
 D DQ^DICQ
 K DIC,D,DZ
 QUIT
 ;
LISTD ; -- Displays a list of names selected
 S POP=1
 I '$D(^TMP("VAQNOTI",$J))  W "     ...No User(s) Selected"  QUIT
 W !!,"-------------------------------- User Selected --------------------------------"
 S N="" F L=0:1 S N=$O(^TMP("VAQNOTI",$J,N))  Q:N=""  W:'(L#8) ! W ?L#8*30 W N
 W !,"--------------------------------------------------------------------------------"
 W ! QUIT
 ;
END ; -- End of code
 QUIT