source: WorldVistAEHR/trunk/r/RPC_BROKER-XWB/XWBFM.m@ 1076

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1XWBFM ;SFISC/VYD - Broker FileMan connectivity ;08/14/95 16:31
2 ;;1.1;RPC BROKER;;Mar 28, 1997
3FIELDLST(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 ;
13FILELIST(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 ;
21APILIST(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 ;
29FILECHK(RESULT,FNAME) ;checks if the FNAME file exists. If found, return IEN
30 S RESULT=$$FIND1^DIC(1,"","O",FNAME)
31 Q
Note: See TracBrowser for help on using the repository browser.