MD TMDNOTE (2348)    REMOTE PROCEDURE (8994)

This remote procedure call does the following:
                      study.  The pieces returned are: Note IEN, Note
^TMP("TIUVIEW",538992716,22) = 
^TMP("TIUVIEW",538992716,23) = Signed: 10/15/2001 13:04
                      title, Date/Time Creation, Author, and Hospital
                      Location.
 
            VIEWTIU = Return the text lines of a document from NOTELST.
 
   MDSID - Study internal Entry Number.
 
   MDTIU - TIU Document Internal Entry Number.
 
Accepts the following Inputs:
   MDDTE - Date/Time of Document Creation.
 
   MDAUTH - Author of document.
 
   MDESIG - Encrypted Electronic Signature.
 
   MDTXT - Text of the new document in an array.
 
 
Return Results are the following:
   RESULTS - Both (Input and Output) - Passed in as the array to return
 
OPTION = NEWDOC
 
> D RPC^MDRPCNT(.RESULTS,"NEWDOC",904,"",3050524.0915,679,74RHLld;flk,MDTXT)
 
> D ^%G
 
Global ^TMP("MDKUTL",$J
        TMP("MDKUTL",$J
^TMP("MDKUTL",538992716,0) = Note internal entry number   or -1^Error Message
             results in.
  
OPTION  = NOTELIST
         
> D RPC^MDRPCNT(.RESULTS,"NOTELST",476)
 
> D ^%G
 
Global ^TMP("MDKUTL",$J
        TMP("MDKUTL",$J
^TMP("MDKUTL",538992716,1) = 968^PROCEDURE NOTE^OCT 10, 2001@17:08:36
 
^MDPROVIDER,ONE ^PROSTHETICS
^TMP("MDKUTL",538992716,2) = 969^PROCEDURE NOTE^OCT 10, 2001@17:10:44^^PROSTHETI
CS
^TMP("MDKUTL",538992716,3) = 970^PROCEDURE NOTE^OCT 10, 2001@17:11:50^^PROSTHETI
CS
^TMP("MDKUTL",538992716,4) = 971^PROCEDURE NOTE^OCT 10, 2001@17:15:45^^PROSTHETI
CS
^TMP("MDKUTL",538992716,5) = 972^PROCEDURE NOTE^OCT 10, 2001@17:16:34^^PROSTHETI
CS
^TMP("MDKUTL",538992716,6) = 974^PROCEDURE NOTE^OCT 11, 2001@10:56:03^^PROSTHETI
   OPTION - NEWDOC = Add additional new document to the Hemodialysis
CS
^TMP("MDKUTL",538992716,7) = 975^PROCEDURE NOTE^OCT 11, 2001@12:50:29^^PROSTHETI
CS
Global ^
 
OPTION = VIEWTIU
                  
> D RPC^MDRPCNT(.RESULTS,"VIEWTIU",476,968)
 
> D ^%G
                     study.
 
Global ^TMP("TIUVIEW",$J
        TMP("TIUVIEW",$J
^TMP("TIUVIEW",538992716,1) =        TITLE: PROCEDURE NOTE                      
                     
^TMP("TIUVIEW",538992716,2) = DATE OF NOTE: OCT 10, 2001@17:08:36  ENTRY DATE: O
CT 10, 2001@17:08:36      
^TMP("TIUVIEW",538992716,3) =       AUTHOR: MDPROVIDER,ONE   EXP COSIGNER:
                         
^TMP("TIUVIEW",538992716,4) =      URGENCY:                            STATUS: C
 
OMPLETED                     
^TMP("TIUVIEW",538992716,5) = 
^TMP("TIUVIEW",538992716,6) = PROCEDURE SUMMARY CODE: Abnormal                  
    
^TMP("TIUVIEW",538992716,7) = DATE/TIME PERFORMED: OCT 15, 2001        
^TMP("TIUVIEW",538992716,8) = 
^TMP("TIUVIEW",538992716,9) =    *** PROCEDURE NOTE Has ADDENDA ***
^TMP("TIUVIEW",538992716,10) = 
^TMP("TIUVIEW",538992716,11) = Complete consult 1104. 6 attached images. 
^TMP("TIUVIEW",538992716,12) =  
            NOTELIST = Returns a list of documents associated with the
^TMP("TIUVIEW",538992716,13) = /es/ MDPROVIDER,ONE
^TMP("TIUVIEW",538992716,14) = 
^TMP("TIUVIEW",538992716,15) = Signed: 10/15/2001 13:02
^TMP("TIUVIEW",538992716,16) = 
^TMP("TIUVIEW",538992716,17) = 10/15/2001 ADDENDUM                      STATUS: 
COMPLETED
^TMP("TIUVIEW",538992716,18) = aDDENDUM LA LA LA 
^TMP("TIUVIEW",538992716,19) = LA LA LA
^TMP("TIUVIEW",538992716,20) =  
^TMP("TIUVIEW",538992716,21) = /es/ MDPROVIDER,ONE