source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFU1.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 618 bytes
RevLine 
[613]1PRCFU1 ;WISC@ALTOONA/CTB-FISCAL UTILITY PROGRAM ;2/5/93 11:32 AM
2V ;;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
11SE I X="" S Y="" Q
12 S I=2 D SET,Y^DIQ,KILL Q
13SET 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
17KILL K DD,I,C,X,F Q
Note: See TracBrowser for help on using the repository browser.