iSharkFly-Open
/
VistA-fmts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bnf enhancements

This commit is contained in:
george 2014-03-10 17:09:02 +00:00
parent ca18ea621d
commit eaad994d84
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
p/C0XF2N.m
View File

@ -40,7 +40,7 @@ INITFARY(ZFARY) ; INITIALIZE FILE NUMBERS AND OTHER USEFUL THINGS
S @ZFARY@("C0XDIR")="/home/glilly/fmts/trunk/samples/smart-new/"
S @ZFARY@("BLKLOAD")=1 ; this file supports block load
S @ZFARY@("FMTSSTYLE")="F2N" ; fileman style
S @ZFARY@("REPLYFMT")="JSON"
S @ZFARY@("REPLYFMT")="array"
D USEFARY(ZFARY)
Q
;
@ -601,12 +601,12 @@ INDEX(ZIEN,ZN,ZG,ZS,ZP,ZO) ; HARD SET THE INDEX FOR ONE ENTRY
S ^C0X(101,"OSP",ZO,ZS,ZP,ZIEN)=""
S ^C0X(101,"PSO",ZP,ZS,ZO,ZIEN)=""
S ^C0X(101,"POS",ZP,ZO,ZS,ZIEN)=""
S ^C0X(101,"GOPS",ZG,ZO,ZP,ZS,ZIEN)=""
S ^C0X(101,"GOSP",ZG,ZO,ZS,ZP,ZIEN)=""
S ^C0X(101,"GPSO",ZG,ZP,ZS,ZO,ZIEN)=""
S ^C0X(101,"GPOS",ZG,ZP,ZO,ZS,ZIEN)=""
S ^C0X(101,"GSPO",ZG,ZS,ZP,ZO,ZIEN)=""
S ^C0X(101,"GSOP",ZG,ZS,ZO,ZP,ZIEN)=""
;S ^C0X(101,"GOPS",ZG,ZO,ZP,ZS,ZIEN)=""
;S ^C0X(101,"GOSP",ZG,ZO,ZS,ZP,ZIEN)=""
;S ^C0X(101,"GPSO",ZG,ZP,ZS,ZO,ZIEN)=""
;S ^C0X(101,"GPOS",ZG,ZP,ZO,ZS,ZIEN)=""
;S ^C0X(101,"GSPO",ZG,ZS,ZP,ZO,ZIEN)=""
;S ^C0X(101,"GSOP",ZG,ZS,ZO,ZP,ZIEN)=""
Q
;
REINDEX ; REINDEX THE ^C0X(101, TRIPLE STORE