PSSFILES ;BIR/LDT - API FOR DESCRIPTION INFORMATION FROM SPECIFIED FILE; 5 Sep 03
;;1.0;PHARMACY DATA MANAGEMENT;**85**;9/30/97
;
HLP(PSSFILE,LIST) ;
;PSSFILE - File number for which the user would like the description.
;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,1)=HELP TEXT.
I $G(LIST)']"" Q
K ^TMP($J,LIST)
I $G(PSSFILE)]"",+$G(PSSFILE)'>0 S ^TMP($J,LIST,0)=-1_"^"_"NO DATA FOUND" Q
S X=$$GET1^DID(PSSFILE,"","","NAME","","")
S ^TMP($J,LIST,1)="Answer with "_X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSFILES 502 printed Nov 22, 2024@17:41:36 Page 2
PSSFILES ;BIR/LDT - API FOR DESCRIPTION INFORMATION FROM SPECIFIED FILE; 5 Sep 03
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**85**;9/30/97
+2 ;
HLP(PSSFILE,LIST) ;
+1 ;PSSFILE - File number for which the user would like the description.
+2 ;LIST - Subscript of ^TMP array in the form ^TMP($J,LIST,1)=HELP TEXT.
+3 IF $GET(LIST)']""
QUIT
+4 KILL ^TMP($JOB,LIST)
+5 IF $GET(PSSFILE)]""
IF +$GET(PSSFILE)'>0
SET ^TMP($JOB,LIST,0)=-1_"^"_"NO DATA FOUND"
QUIT
+6 SET X=$$GET1^DID(PSSFILE,"","","NAME","","")
+7 SET ^TMP($JOB,LIST,1)="Answer with "_X
+8 QUIT
