source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRHLP.m@ 1710

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

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1XDRHLP ;IHS/LAB/OHPRD;help logic for selected fields in 15, 15.1; [ 10/20/92 11:01 AM ]
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3 ;
4 ;this routine is called from files 15 and 15.1 and contains
5 ;executable help prompts
6 ;
7 Q ;no entry from top of routine, must use appropriate entry points
8 ;
9MD04 ;EP;called from .04 field of file 15, merge direction executable help
10 S %=$P(^VA(15,DA,0),U,1,2) W !?5,"RECORD1=",$P(@(U_$P($P(%,U,1),";",2)_+%_",0)"),U,1)
11 I $G(DUZ("AG"))="I",$P($P(%,U,1),";",2)="DPT(" D
12 .S XDRHLP("F")=0,XDRHLP("I")=0
13 .F XDRHLP("I")=0:1 S XDRHLP("F")=$O(^AUPNPAT(+%,41,XDRHLP("F"))) Q:XDRHLP("F")'=+XDRHLP("F") D
14 ..W:XDRHLP("I") ! W ?40," ",$J($P(^AUTTLOC(XDRHLP("F"),0),U,7),4)," ",$P(^AUPNPAT(+%,41,XDRHLP("F"),0),U,2),$S($P(^(0),U,3)="":"",1:"("_$P(^(0),U,5)_")")
15 ..Q
16 .K XDRHLP("F")
17 .Q
18 W !!,?5,"RECORD2=",$P(@(U_$P($P(%,U,2),";",2)_+$P(%,U,2)_",0)"),U,1)
19 I $G(DUZ("AG"))="I",$P($P(%,U,1),";",2)="DPT(" D
20 .S XDRHLP("F")=0,XDRHLP("I")=0
21 .F XDRHLP("I")=0:1 S XDRHLP("F")=$O(^AUPNPAT(+$P(%,U,2),41,XDRHLP("F"))) Q:XDRHLP("F")'=+XDRHLP("F") D
22 ..W:XDRHLP("I") ! W ?40," ",$J($P(^AUTTLOC(XDRHLP("F"),0),U,7),4)," ",$P(^AUPNPAT(+$P(%,U,2),41,XDRHLP("F"),0),U,2),$S($P(^(0),U,3)="":"",1:"("_$P(^(0),U,5)_")")
23 ..Q
24 .K XDRHLP
25 .Q
26 W !
27 Q
Note: See TracBrowser for help on using the repository browser.