|
Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
584 bytes
|
| Line | |
|---|
| 1 | DICATTD7 ;SFISC/GFT-POINTERS ;03:29 PM 15 Dec 1998
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | POST7 ;
|
|---|
| 6 | N F
|
|---|
| 7 | S F=$$G(84)
|
|---|
| 8 | S DICATTMN=$G(^DD(DICATTA,DICATTF,3))
|
|---|
| 9 | S DICATT2N="P",DICATT5N="Q",DICATTLN=9,DICATT2N="P"_F_$E("'",'$$G(85))
|
|---|
| 10 | I F,$D(^DIC(F,0,"GL")) S DICATT3N=$P(^("GL"),U,2)
|
|---|
| 11 | BRANCH I '$D(DICATTSC),DUZ(0)="@" S DICATTSC=7,DDSBR="65^DICATT SCREEN^6" Q
|
|---|
| 12 | D SCREEN^DICATTD3
|
|---|
| 13 | I $G(DICATT5N(12.1))]"" S DICATT5N=DICATT5N(12.1)_" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | G(I) Q $$GET^DDSVALF(I,"DICATT7",2.7,"I","")
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
