RPC HELP Tutorial Step 8 - Revision history

Kdtop at 16:06, 16 July 2015

2015-07-16T16:06:39Z

← Older revision		Revision as of 16:06, 16 July 2015
Line 21:		Line 21:
	; RESULT(2)=7		; RESULT(2)=7
	;		;
	'''NEW''' I,ARRAY ~~S IEN~~=IEN_",",RESULT(1)=""		'''NEW''' I,ARRAY
	'''DO''' GETS^DIQ(3.2,~~IEN~~,".01;1;2;3;4;6;7","","ARRAY")		'''NEW''' IENS SET IENS=IEN_","
	'''SET''' RESULT(0)="" I '$D(DIERR) '''DO'''		'''SET''' RESULT(1)=""
	. '''FOR''' I=.01,1,2,3,4 D		'''DO''' GETS^DIQ(3.2,IENS,".01;1;2;3;4;6;7","","ARRAY")
	. . '''SET''' RESULT(0)=RESULT(0)~~_ARRAY~~(3.2,~~IEN_","~~,I)_"^"		'''SET''' RESULT(0)=""
	. '''SET''' RESULT(1)=ARRAY(3.2,~~IEN~~,6)		'''IF''' '$D(DIERR) '''DO'''
	. '''SET''' RESULT(2)=ARRAY(3.2,~~IEN~~,7)		. '''FOR''' I=.01,1,2,3,4 '''DO'''
	'''QUIT'''		. . '''SET''' RESULT(0)=RESULT(0)_$GET(ARRAY(3.2,IENS,I))_"^"
			. '''SET''' RESULT(1)=$GET(ARRAY(3.2,IENS,6))
			. '''SET''' RESULT(2)=$GET(ARRAY(3.2,IENS,7))
			'''QUIT'''
			;

	'''4.''' Test the routine. Call it like the Broker would:		'''4.''' Test the routine. Call it like the Broker would:

Kdtop at 15:54, 16 July 2015

2015-07-16T15:54:25Z

← Older revision		Revision as of 15:54, 16 July 2015
Line 23:		Line 23:
	'''NEW''' I,ARRAY S IEN=IEN_",",RESULT(1)=""		'''NEW''' I,ARRAY S IEN=IEN_",",RESULT(1)=""
	'''DO''' GETS^DIQ(3.2,IEN,".01;1;2;3;4;6;7","","ARRAY")		'''DO''' GETS^DIQ(3.2,IEN,".01;1;2;3;4;6;7","","ARRAY")
	'''SET''' RESULT(0)="" I '$D(DIERR) D		'''SET''' RESULT(0)="" I '$D(DIERR) '''DO'''
	. '''FOR''' I=.01,1,2,3,4 D		. '''FOR''' I=.01,1,2,3,4 D
	. . '''SET''' RESULT(0)=RESULT(0)_ARRAY(3.2,~~IEN~~,I)_"^"		. . '''SET''' RESULT(0)=RESULT(0)_ARRAY(3.2,IEN_",",I)_"^"
	. '''SET''' RESULT(1)=ARRAY(3.2,IEN,6)		. '''SET''' RESULT(1)=ARRAY(3.2,IEN,6)
	. '''SET''' RESULT(2)=ARRAY(3.2,IEN,7)		. '''SET''' RESULT(2)=ARRAY(3.2,IEN,7)

Kdtop at 18:51, 15 July 2015

2015-07-15T18:51:11Z

← Older revision		Revision as of 18:51, 15 July 2015
Line 4:		Line 4:
	<h2>Tutorial: Step 8 -- Routine to Retrieve Terminal Types</h2>		<h2>Tutorial: Step 8 -- Routine to Retrieve Terminal Types</h2>

	Now that you have associated an IEN for each record displayed in the list box (Step 7), you can use that IEN to display fields from any terminal type entry in the list box that a user selects. To retrieve the fields for any selected terminal type entry, you should create a second custom [[RPC_HELP_RPCs\|RPC]]. This RPC will need to take an input parameter, the record IEN, to know which record to retrieve.		Now that you have associated an IEN for each record displayed in the list box ([[RPC_HELP_Tutorial_Step_7\|Step 7]]), you can use that IEN to display fields from any terminal type entry in the list box that a user selects. To retrieve the fields for any selected terminal type entry, you should create a second custom [[RPC_HELP_RPCs\|RPC]]. This RPC will need to take an input parameter, the record IEN, to know which record to retrieve.

	To create an [[RPC_HELP_RPCs\|RPC]] routine to retrieve individual terminal type records:		To create an [[RPC_HELP_RPCs\|RPC]] routine to retrieve individual terminal type records:

Kdtop at 20:42, 5 July 2015

2015-07-05T20:42:48Z

← Older revision		Revision as of 20:42, 5 July 2015
Line 1:		Line 1:
			[[RPC_Broker_Help\| RPC Broker Help Home]]

			[[RPC_Broker_Help#Tutorial\|Tutorial Home]]
	<h2>Tutorial: Step 8 -- Routine to Retrieve Terminal Types</h2>		<h2>Tutorial: Step 8 -- Routine to Retrieve Terminal Types</h2>

Kdtop: Created page with "

Tutorial: Step 8 -- Routine to Retrieve Terminal Types

Now that you have associated an IEN for each record displayed in the list box (Step 7), you can use that IEN t..."

2015-07-05T18:25:05Z

Created page with "<h2>Tutorial: Step 8 -- Routine to Retrieve Terminal Types</h2> Now that you have associated an IEN for each record displayed in the list box (Step 7), you can use that IEN t..."

New page

<h2>Tutorial: Step 8 -- Routine to Retrieve Terminal Types</h2>

Now that you have associated an IEN for each record displayed in the list box (Step 7), you can use that IEN to display fields from any terminal type entry in the list box that a user selects. To retrieve the fields for any selected terminal type entry, you should create a second custom [[RPC_HELP_RPCs|RPC]]. This RPC will need to take an input parameter, the record IEN, to know which record to retrieve.

To create an [[RPC_HELP_RPCs|RPC]] routine to retrieve individual terminal type records:

'''1.''' Choose the data format that your [[RPC_HELP_RPCs|RPC]] should return. The type of data that you need to return to your client application determines the format of the routine that your RPC will call. In this case, the RPC should, given an IEN, return fields .01, 1, 2, 3, 4, 6, and 7 (Name, Right Margin, Form Feed, Page Length, Back Space, Open Execute, and Close Execute).
* Since this information is constrained and small, a return type of ARRAY would be suitable for this RPC. The return format of the array is arbitrary; for the sake of this application, the routine should return fields .01, 1, 2, 3, and 4 in node 0; field 6 (a 245-character field) in node 1; and field 7 (also a 245-character field) in node 2. This array must be returned in the first parameter to the routine.

'''2.''' The routine for this RPC also needs to be able to take an IEN as an input parameter. Any additional input parameters such as one for the IEN must follow the required input parameter in which results are returned.

'''3.''' Add a second subroutine to the ZxxxTT routine for the second RPC, similar to the following. This subroutine uses an IEN to retrieve fields for a particular terminal type. It then sets three result nodes, each containing a specified set of fields for the record corresponding to the IEN parameter.

TERMENT(RESULT,IEN) ; retrieve a string of fields for a termtype
; format of results (by field number):
; RESULT(0)=.01^1^2^3^4
; RESULT(1)=6
; RESULT(2)=7
;
'''NEW''' I,ARRAY S IEN=IEN_",",RESULT(1)=""
'''DO''' GETS^DIQ(3.2,IEN,".01;1;2;3;4;6;7","","ARRAY")
'''SET''' RESULT(0)="" I '$D(DIERR) D
. '''FOR''' I=.01,1,2,3,4 D
. . '''SET''' RESULT(0)=RESULT(0)_ARRAY(3.2,IEN,I)_"^"
. '''SET''' RESULT(1)=ARRAY(3.2,IEN,6)
. '''SET''' RESULT(2)=ARRAY(3.2,IEN,7)
'''QUIT'''

'''4.''' Test the routine. Call it like the Broker would:

>DO TERMENT^ZxxxTT(.ARRAY,103)

Confirm that the return array contains the specified fields in the following nodes:

ARRAY(0)=C-HINQLINK^80^#,$C(27,91,50,74,27,91,72)^24^$C(8)^
ARRAY(1)=U $I:(0:255::255:512)
ARRAY(2)=U $I:(:::::512) C $I

Once you've tested your routine, and confirmed that it returns data correctly, the next step ([[RPC_HELP_Tutorial_Step_9|Step 9]]) is to create the [[RPC_HELP_RPCs|RPC]] that will call this routine.

<H4>[[RPC_HELP_Tutorial_Step_7|PREV: Step 7: Associate IENs]]</H4>
<H4>[[RPC_HELP_Tutorial_Step_9|NEXT: Step 9: RPC To Retrieve Terminal Types]]</H4>