source: WorldVistAEHR/trunk/r/LIST_MANAGER-VALM/VALMXQ07.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1VALMXQ07 ; alb/mjk - XQORD1 for export with LM v1 ; 3/30/93
2 ;;1;List Manager;;Aug 13, 1993
3 ;
4 ;
5XQORD1 ; SLC/KCM - Process Menus, WP during dialog ;11/19/92 08:31
6 ;;6.7;Sidewinder;;Jan 08, 1993
7 ;
8RDR ;Setup and prompt using reader (DIR)
9 ;Entry: X(field) is entire prompt node, XQORDLG(ITM) is previous response
10 N DIR
11 I X("DOM")="D",'$L(X("PARM")) S X("PARM")="::ET"
12 S DIR(0)=X("DOM")_"A"_$S(X("MODE")["R":"",1:"O")_"^"_X("PARM")
13 S DIR("A")=X("PRMT") S:DIR("A")'?.E1P1" " DIR("A")=DIR("A")_": "
14 S:$L(X("DFLT")) DIR("B")=X("DFLT") ;default answer
15 S:$D(XQORDLG(ITM))#2 DIR("B")=XQORDLG(ITM) ;last entered answer
16 S:$L(X("HELP")) DIR("?")=X("HELP") ;help prompt
17 D ^DIR
18 Q ;Exit: X is user entry, Y is validated answer (internal value)
19 ;
20WP ;Prompt for word processing
21 ;Entry: .X is entire prompt node, XQORDLG(ITM) is last answer to this prompt
22 N IFN,PRMT,DIC,DLAYGO,DIE,DR,DA,%
23 S PRMT=X("PRMT") ;boilerplate in $P(X,"^",2)
24 I '$G(XQORDLG(ITM)) DO
25 . I '$D(^XUTL("XQORW",0)) S ^XUTL("XQORW",0)="XQOR WORD PROCESSING^101.11D^" ;if ^XUTL killed
26 . D NOW^%DTC
27 . S X=""""_%_"""",DIC="^XUTL(""XQORW"",",DIC(0)="L",DLAYGO=101.11 D ^DIC ;stuff entry
28 I $G(XQORDLG(ITM)) S Y=XQORDLG(ITM),DIC="^XUTL(""XQORW"","
29 S IFN=+Y,DIE=DIC,DR="1"_$TR(PRMT,";:"," "),DA=IFN D ^DIE
30 S Y=IFN,X=$G(^XUTL("XQORW",IFN,1,+$O(^XUTL("XQORW",IFN,1,0)),0))
31 Q ;Exit: X is first entered line, Y is pointer 101.11 entry
32 ;
33MENU ;Allow menu selections from 101, 19, and similar files (XQORM)
34 ;Entry: X(field) is prompt node, XQORDLG(ITM) is last answer to this prompt
35 Q ;N XQORM (menus not allowed for now)
36 S XQORM=$P(X,"^",6),XQORM(0)=$P(X,"^",4)_"\",XQORM("A")=$P(X,"^",1)_": "
37 S:'$L(XQORM(0)) XQORM(0)="A"
38 S:$L($P(X,"^",2)) XQORM("B")=$P(X,"^",2) ;default selection
39 S:$D(XQORDLG(ITM,1,"E")) XQORM("B")=XQORDLG(ITM,1,"E") ;last answer
40 S:$L($P(X,"^",5)) XQORM("?")="W !!,"""_$P(X,"^",5)_""",!" ;help prompt
41 D EN^XQORM
42 Q ;Exit: X is user entry, Y is pointer to entry in menu file
Note: See TracBrowser for help on using the repository browser.