| [613] | 1 | XDRHLP ;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 | ;
|
|---|
| 9 | MD04 ;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
|
|---|
