|
Last change
on this file since 1638 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
618 bytes
|
| Line | |
|---|
| 1 | PRCFU1 ;WISC@ALTOONA/CTB-FISCAL UTILITY PROGRAM ;2/5/93 11:32 AM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;ENTRY TO BREAK OUT FULL DESCRIPTION FROM SET OF CODES
|
|---|
| 5 | ;VARIABLES: X=INTERNAL VALUE
|
|---|
| 6 | ; DD=DD NUMBER
|
|---|
| 7 | ; F=FIELD NUMBER
|
|---|
| 8 | ;RETURNS DESCRIPTION VALUE IN VARIABLE Y
|
|---|
| 9 | ;RETURNS %=1 WHEN SUCCESSFUL, %=0 WHEN LOOKUP FAILED
|
|---|
| 10 | ;X,DD,F ARE KILLED
|
|---|
| 11 | SE I X="" S Y="" Q
|
|---|
| 12 | S I=2 D SET,Y^DIQ,KILL Q
|
|---|
| 13 | SET K Y S U="^",%=0,Y="" Q:'$D(X)!('$D(DD))!('$D(F))
|
|---|
| 14 | Q:X=""!(DD="")!(F="")
|
|---|
| 15 | S Y=X,X="S C=$P(^DD("_DD_","_F_",0),U,"_I_")" X X Q
|
|---|
| 16 | Q
|
|---|
| 17 | KILL K DD,I,C,X,F Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
