| [613] | 1 | VALMXQ07 ; alb/mjk - XQORD1 for export with LM v1 ; 3/30/93
|
|---|
| 2 | ;;1;List Manager;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | XQORD1 ; SLC/KCM - Process Menus, WP during dialog ;11/19/92 08:31
|
|---|
| 6 | ;;6.7;Sidewinder;;Jan 08, 1993
|
|---|
| 7 | ;
|
|---|
| 8 | RDR ;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 | ;
|
|---|
| 20 | WP ;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 | ;
|
|---|
| 33 | MENU ;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
|
|---|
