| 1 | XWBFM ;SFISC/VYD - Broker FileMan connectivity ;08/14/95 16:31
|
|---|
| 2 | ;;1.1;RPC BROKER;;Mar 28, 1997
|
|---|
| 3 | FIELDLST(RESULT,FNUM) ;retrieve a list of top-level fields of passed file
|
|---|
| 4 | ;and return it in RESLUT
|
|---|
| 5 | ;**** Note: requires FileMan v 21 with NEW DD RETRIEVER VER 1.0 patch
|
|---|
| 6 | N %
|
|---|
| 7 | D FILE^DID(FNUM,"T","FIELDS","^TMP($J)","JUNK")
|
|---|
| 8 | S %="" F S %=$O(^TMP($J,"FIELDS",%)) Q:%="" D
|
|---|
| 9 | . S RESULT(%)=$P(^(%),U)_" ["_$P(^(%),U,2)_"]"
|
|---|
| 10 | K ^TMP($J)
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | FILELIST(RESULT,START) ;retrieve a list and return it in RESLUT
|
|---|
| 14 | N %
|
|---|
| 15 | D LIST^DIC(1,"","","P","","",START)
|
|---|
| 16 | S %=0 F S %=$O(^TMP("DILIST",$J,%)) Q:%="" D
|
|---|
| 17 | . S RESULT(%)=$P(^(%,0),U)_" ["_$P(^(0),U,2)_"]"
|
|---|
| 18 | K ^TMP("DILIST",$J) ;clean up
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | APILIST(RESULT,START) ;retrieve a list and return it in RESLUT
|
|---|
| 22 | N %
|
|---|
| 23 | D LIST^DIC(8994,"",".02;.03","P","","",START)
|
|---|
| 24 | S %=0 F S %=$O(^TMP("DILIST",$J,%)) Q:%="" D
|
|---|
| 25 | . S RESULT(%)=$P(^(%,0),U)_" ["_$P(^(0),U,3,4)_"]"
|
|---|
| 26 | K ^TMP("DILIST",$J) ;clean up
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | FILECHK(RESULT,FNAME) ;checks if the FNAME file exists. If found, return IEN
|
|---|
| 30 | S RESULT=$$FIND1^DIC(1,"","O",FNAME)
|
|---|
| 31 | Q
|
|---|
