source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSFILES.m@ 1590

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

initial load of FOIAVistA 6/30/08 version

File size: 490 bytes
Line 
1PSSFILES ;BIR/LDT - API FOR DESCRIPTION INFORMATION FROM SPECIFIED FILE; 5 Sep 03
2 ;;1.0;PHARMACY DATA MANAGEMENT;**85**;9/30/97
3 ;
4HLP(PSSFILE,LIST) ;
5 ;PSSFILE - File number for which the user would like the description.
6 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,1)=HELP TEXT.
7 I $G(LIST)']"" Q
8 K ^TMP($J,LIST)
9 I $G(PSSFILE)]"",+$G(PSSFILE)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
10 S X=$$GET1^DID(PSSFILE,"","","NAME","","")
11 S ^TMP($J,LIST,1)="Answer with "_X
12 Q
Note: See TracBrowser for help on using the repository browser.