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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFU1 635 printed Dec 13, 2024@02:04:26 Page 2
PRCFU1 ;WISC@ALTOONA/CTB-FISCAL UTILITY PROGRAM ;2/5/93 11:32 AM
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;ENTRY TO BREAK OUT FULL DESCRIPTION FROM SET OF CODES
+3 ;VARIABLES: X=INTERNAL VALUE
+4 ; DD=DD NUMBER
+5 ; F=FIELD NUMBER
+6 ;RETURNS DESCRIPTION VALUE IN VARIABLE Y
+7 ;RETURNS %=1 WHEN SUCCESSFUL, %=0 WHEN LOOKUP FAILED
+8 ;X,DD,F ARE KILLED
SE IF X=""
SET Y=""
QUIT
+1 SET I=2
DO SET
DO Y^DIQ
DO KILL
QUIT
SET KILL Y
SET U="^"
SET %=0
SET Y=""
if '$DATA(X)!('$DATA(DD))!('$DATA(F))
QUIT
+1 if X=""!(DD="")!(F="")
QUIT
+2 SET Y=X
SET X="S C=$P(^DD("_DD_","_F_",0),U,"_I_")"
XECUTE X
QUIT
+3 QUIT
KILL KILL DD,I,C,X,F
QUIT
