Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
618 bytes
|
Rev | Line | |
---|
[628] | 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.