TMGRPCSR ;TMG/kst/RPC entry points for Search API ; 6/4/10
        ;;1.0;TMG-LIB;**1**;05/25/10
        ;
 ;"RPC ENTRY POINTS FOR TMG FILEMAN SEARCH API
 ;
 ;"Copyright Kevin Toppenberg MD 5/25/10
 ;"Released under GNU General Public License (GPL)
 ;"
 ;"NOTE: this function depends on new version of LIST^DIC, from G. Timpson Patch
 ;"=======================================================================
 ;" RPC -- Public Functions.
 ;"=======================================================================
 ;"CHANNEL(TMGRESULT,INPUT) -- general purpose channel RPC from a GUI config program
 ;"LAUNCH(OUT,FILENUM,SRCHSTR) -- launch background search thread, return JOB #
 ;"STATUS(OUT,JOBNUM) --Return status of background job.
 ;"RESULTS(OUT,JOBNUM) -- Return results from background search job.  
 ;"
 ;"=======================================================================
 ;"PRIVATE API FUNCTIONS
 ;"=======================================================================
 ;"
 ;"=======================================================================
 ;"=======================================================================
 ;"Dependencies:
 ;"  ^XLFSTR, ^TMGRPCS0, TMGSRCH1
 ;"=======================================================================
 ;"=======================================================================
 ;
CHANNEL(TMGRESULT,INPUT) ;
        ;"Purpose: This will be a general purpose channel RPC from a GUI config program
        ;"Input: TMGRESULT -- this is an OUT parameter, and it is always passed by reference
        ;"       INPUT -- this will be array of data sent from the GUI client.  Defined below:
        ;"            <Stuff will go here>
        ;"            INPUT("REQUEST")="cmd^params"  Valid values for "cmd" are:
        ;"              "LAUNCH" -- Start background task for search
        ;"                   params: FileNumber^SearchString  <-- See docs for Search String in TMGSRCH.m         
        ;"              "STATUS" --  Get status of background task
        ;"                   params: JobNumber
        ;"              "IEN LIST"   ; was RESULTS
        ;"                   params: JobNumber^Fields
        ;"                      NOTE: If Fields left blank, then NO FIELDS is assumed
        ;"              "IEN DETAILS" -- Get details of 1 IEN entry
        ;"                   params: JobNumber^IEN
        ;"              "PREP SUBSET"
        ;"                   params: JobNumber^[Field[;FLD[;FLD...]]]
        ;"                              Field -- The desired field number(s). 
        ;"                              OPTIONAL. DEFAULT is .01
        ;"                              If more than one supplied, then output is 
        ;"                              concatinated.  Separate fieldnumbers with ';'
        ;"              "CLEAR" -- clear results from last search.
        ;"                   params: JobNumber
        ;"              "ALLOWED FILES ENTRY SUBSET"  -- get sublist of list .01 fields for allowed files (those pointing into FileNum)
        ;"                   params: FileNum^ListStartValue^direction^MaxCount(optional, def=44)^Simple
        ;"              "FIELD LIST SUBSET"  -- get sublist of fields names in file
        ;"                   params: FileNum^ListStartValue^direction^MaxCount(optional, def=44)^Simple
        ;"              "RESULTS LIST SUBSET"  -- get sublist of search results
        ;"                   params: JobNum^ListStartValue^direction^MaxCount(optional, def=44)
        ;"Output: results of this function should be put into TMGRESULTS array.
        ;"        For cmd:
        ;"          "LAUNCH"
        ;"            TMGRESULT(0)=1^JobNumber
        ;"          "STATUS"
        ;"            TMGRESULT(0)=1^%Done^Message.   <-- Will be '1^100^#DONE#' when task is done.
        ;"          "IEN LIST"
        ;"            TMGRESULT(0)=1 if Success or -1^Message"
        ;"            TMGRESULT(1)=IEN^[Fld Value]  <-- Field value returned, if requested
        ;"            TMGRESULT(2)=IEN^[Fld Value]
        ;"            etc ...
        ;"          "PREP SUBSET"
        ;"            TMGRESULT(0)=1^Success or -1^Message
        ;"          "CLEAR"
        ;"            TMGRESULT(0)=1^Success
        ;"          "ALLOWED FILES ENTRY SUBSET"
        ;"            TMGRESULT(0)="1^Success" or "-1^Message"
        ;"            TMGRESULT(1)=FileNum^FileName
        ;"            TMGRESULT(2)=FileNum^FileName
        ;"            etc ...        
        ;"          "FIELD LIST SUBSET"
        ;"            TMGRESULT(0)="1^Success" or "-1^Message"
        ;"            TMGRESULT(1)=FLDNum^Name^Info
        ;"            TMGRESULT(2)=FLDNum^Name^Info
        ;"            etc ...        
        ;"          "RESULTS LIST SUBSET"  
        ;"            TMGRESULT(0)="1^Success" or "-1^Message"
        ;"            TMGRESULT(1)=IENNum^RequestedFieldNames
        ;"            TMGRESULT(2)=IENNum^RequestedFieldNames
        ;"            etc ...        
        ;"Result: none
        ;
        NEW TMGCOMMAND,TMGCOMMAND
        SET TMGCOMMAND=$$TRIM^XLFSTR($$UP^XLFSTR($PIECE($GET(INPUT("REQUEST")),"^",1)))
        SET TMGPARAMS=$$UP^XLFSTR($PIECE($GET(INPUT("REQUEST")),"^",2,199))
        ;
        ;"MERGE ^TMG("TMP","RPC","TMGRPCSR",$H,"TMGCOMMAND")=TMGCOMMAND
        ;"MERGE ^TMG("TMP","RPC","TMGRPCSR",$H,"TMGPARAMS")=TMGPARAMS
        ;
        SET TMGRESULT(0)="-1^No command requested."  ;"default to error state.
        IF TMGCOMMAND="LAUNCH" DO
        . DO LAUNCH^TMGRPCS0(.TMGRESULT,TMGPARAMS)
        IF TMGCOMMAND="STATUS" DO
        . DO STATUS^TMGRPCS0(.TMGRESULT,TMGPARAMS)
        ELSE  IF TMGCOMMAND="RESULTS" DO
        . DO IENLIST^TMGRPCS0(.TMGRESULT,TMGPARAMS)
        ELSE  IF TMGCOMMAND="PREP SUBSET" DO
        . DO PREPSB^TMGRPCS0(.TMGRESULT,TMGPARAMS)        
        ELSE  IF TMGCOMMAND="CLEAR" DO
        . DO CLEAR^TMGRPCS0(.TMGRESULT,TMGPARAMS)
        ELSE  IF TMGCOMMAND="ALLOWED FILES ENTRY SUBSET" DO
        . DO GETAFSUB^TMGSRCH1(.TMGRESULT,TMGPARAMS)        
        ELSE  IF TMGCOMMAND="FIELD LIST SUBSET" DO
        . DO GETFLDSB^TMGSRCH1(.TMGRESULT,TMGPARAMS)        
        ELSE  IF TMGCOMMAND="RESULTS LIST SUBSET" DO
        . DO GETRSLTSB^TMGRPCS0(.TMGRESULT,TMGPARAMS)
        ;        
        QUIT
        ;