PRCFU1.m

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 ---PRCFU1   635     printed  Mar 13, 2025@21:09:15                                                                                                                                                                                                       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