Changeset 894 for cprs/branches/tmg-cprs/m_files/TMGRPCSR.m

Timestamp:

Jul 25, 2010, 2:51:23 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

interval update

File:

• cprs/branches/tmg-cprs/m_files/TMGRPCSR.m (modified) (4 diffs)

cprs/branches/tmg-cprs/m_files/TMGRPCSR.m

@@ -28 +28 @@
  ;
 CHANNEL(TMGRESULT,INPUT) ;
-        ;"Purpose: This will be a general purpose channel RPC from a GUI config program
+        ;"Purpose: This will be a general purpose channel RPC from CPRS
         ;"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:
@@ -56 +56 @@
         ;"              "RESULTS LIST SUBSET"  -- get sublist of search results
         ;"                   params: JobNum^ListStartValue^direction^MaxCount(optional, def=44)
+        ;"              =================================================================================
+        ;"              == Calls for searching TIU DOCUMENTS                                           ==
+        ;"              =================================================================================
+        ;"              "PT DOCS SEARCH" -- launch a background search in documents for 1 patient
+        ;"                   params: PatientEIN^SearchString
+        ;"              "PT DOCS STATUS" -- Get status of background search
+        ;"                   params : none
+        ;"              "PT DOCS GET RESULTS" -- get result from background search
+        ;"                   params : none
+        ;"              "PT DOCS CLEAR" -- Tell background task to stop, and clear data array
+        ;"                   params : none
+        ;"              "PT DOCS STOP" -- Tell background task to stop searching
+        ;"                   params : none
+        ;"              "PT DOCS CHANGE SEARCH" -- tell background task to change search parameters
+        ;"                   Note: this can be used to allow the search to begin while the
+        ;"                         user is still entering the search terms.  If the new search is just an
+        ;"                         extension to the prior search, then the prior search will be added on 
+        ;"                         rather than starting over.
+        ;"                   params: PatientEIN^SearchString
+        ;"              "PT DOCS PREP FOR SUBSET" -- Prep for Subset of List for TORCombobox
+        ;"                   params : none
+        ;"              "PT DOCS SUBSET OF RESULTS" -- Get a subset of list for TORCombobox
+        ;"                   params : StartFrom^Direction^MaxCount  
+        ;"                      Direction and Maxcount are optional, def=1, 44 respectively
+        ;"              =================================================================================
         ;"Output: results of this function should be put into TMGRESULTS array.
         ;"        For cmd:
@@ -86 +111 @@
         ;"            TMGRESULT(2)=IENNum^RequestedFieldNames
         ;"            etc ...        
+        ;"          =================================================================================
+        ;"          == Calls for searching TIU DOCUMENTS                                           ==
+        ;"          =================================================================================
+        ;"          "PT DOCS SEARCH" 
+        ;"              TMGRESULT(0)="1^Success", OR -1^ErrorMsg
+        ;"          "PT DOCS STATUS"
+        ;"              TMGRESULT(0)="1^Status" or -1^ErrorMessage
+        ;"                 NOTe: will return 1^DONE when done with search.
+        ;"          "PT DOCS GET RESULTS" 
+        ;"              TMGRESULT(0)=FoundCount^Success, or -1^Message
+        ;"              TMGRESULT(1)=IEN1
+        ;"              TMGRESULT(2)=IEN2 ... etc.
+        ;"          "PT DOCS CLEAR" 
+        ;"              TMGRESULT(0)="1^Success
+        ;"          "PT DOCS STOP" 
+        ;"              TMGRESULT(0)="1^Success
+        ;"          "PT DOCS PREP FOR SUBSET" 
+        ;"              TMGRESULT(0)="1^Success", OR -1^ErrorMsg
+        ;"          "PT DOCS SUBSET OF RESULTS" 
+        ;"              TMGRESULT(0)="1^Success" or "-1^Message"
+        ;"              TMGRESULT(1)=IEN^ANoteIdentifier
+        ;"              TMGRESULT(2)=IEN^ANoteIdentifier
+        ;"          =================================================================================
         ;"Result: none
         ;
@@ -112 +160 @@
         ELSE  IF TMGCOMMAND="RESULTS LIST SUBSET" DO
         . DO GETRSLTSB^TMGRPCS0(.TMGRESULT,TMGPARAMS)
-        ;        
+        ELSE  IF TMGCOMMAND="PT DOCS SEARCH" DO
+        . DO PDSRCH^TMGRPCS1(.TMGRESULT,TMGPARAMS)                
+        ELSE  IF TMGCOMMAND="PT DOCS STATUS" DO
+        . DO PDSTATUS^TMGRPCS1(.TMGRESULT,TMGPARAMS)
+        ELSE  IF TMGCOMMAND="PT DOCS GET RESULTS" DO
+        . DO PDRESULT^TMGRPCS1(.TMGRESULT,TMGPARAMS)
+        ELSE  IF TMGCOMMAND="PT DOCS CLEAR" DO
+        . DO PDCLEAR^TMGRPCS1(.TMGRESULT,TMGPARAMS)
+        ELSE  IF TMGCOMMAND="PT DOCS STOP" DO
+        . DO PDSTOP^TMGRPCS1(.TMGRESULT,TMGPARAMS)
+        ELSE  IF TMGCOMMAND="PT DOCS CLEAR" DO
+        . DO PDCLEAR^TMGRPCS1(.TMGRESULT,TMGPARAMS)
+        ELSE  IF TMGCOMMAND="PT DOCS PREP FOR SUBSET" DO
+        . DO PDPREPSS^TMGRPCS1(.TMGRESULT,TMGPARAMS)
+        ELSE  IF TMGCOMMAND="PT DOCS SUBSET OF RESULTS" DO
+        . DO PDGETSS^TMGRPCS1(.TMGRESULT,TMGPARAMS)
+        ;
         QUIT
         ;