|
Last change
on this file since 1154 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
690 bytes
|
| Line | |
|---|
| 1 | FBAUTHP ;AISC/CMR - PRINT AUTH. BY AUTH # ;OCT 5, 1995
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | W !! S DIR(0)="FO^1:50^K:X'?.N1""-"".N X",DIR("A")="Enter Authorization Number",DIR("?")="Enter the Authorization Number that appears on the 7079",DIR("?",1)="Enter numerics followed by a dash followed by numerics."
|
|---|
| 5 | D ^DIR K DIR I $D(DIRUT)!(Y']"") G END
|
|---|
| 6 | S DFN=+$P(Y,"-"),FBPROG=+$P(Y,"-",2)
|
|---|
| 7 | I 'DFN!('FBPROG) G ERR
|
|---|
| 8 | I '$D(^FBAAA(DFN,1,FBPROG)) G ERR
|
|---|
| 9 | S FBPROG="I FBI="_FBPROG,PI=""
|
|---|
| 10 | D ^FBAADEM,END G FBAUTHP
|
|---|
| 11 | END K FBPROG,DFN,FBAUT,FBAAOUT,PI,POP,X,Y,Z,DTOUT,DUOUT,DIRUT
|
|---|
| 12 | Q
|
|---|
| 13 | ERR W !,*7,"Invalid Authorization Number" D END G FBAUTHP
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
