PSSFILES.m

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

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