18 lines
618 B
Mathematica
18 lines
618 B
Mathematica
PRCFU1 ;WISC@ALTOONA/CTB-FISCAL UTILITY PROGRAM ;2/5/93 11:32 AM
|
|
V ;;5.1;IFCAP;;Oct 20, 2000
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;ENTRY TO BREAK OUT FULL DESCRIPTION FROM SET OF CODES
|
|
;VARIABLES: X=INTERNAL VALUE
|
|
; DD=DD NUMBER
|
|
; F=FIELD NUMBER
|
|
;RETURNS DESCRIPTION VALUE IN VARIABLE Y
|
|
;RETURNS %=1 WHEN SUCCESSFUL, %=0 WHEN LOOKUP FAILED
|
|
;X,DD,F ARE KILLED
|
|
SE I X="" S Y="" Q
|
|
S I=2 D SET,Y^DIQ,KILL Q
|
|
SET K Y S U="^",%=0,Y="" Q:'$D(X)!('$D(DD))!('$D(F))
|
|
Q:X=""!(DD="")!(F="")
|
|
S Y=X,X="S C=$P(^DD("_DD_","_F_",0),U,"_I_")" X X Q
|
|
Q
|
|
KILL K DD,I,C,X,F Q
|