User bio
404 bio not found
Member since Aug 11, 2017
Replies:

this is the class:

Class REST.Test.Sample.AllItems Extends (%JSON.AdaptorEns.Response)
Property ItemtId As %String;

Property itemName As %String(MAXLEN 100);

Property itemStockNumber As %String(MAXLEN 150);

Property itemType As %String;

Property itemPriority As %String;

Property itemDetailData As %String(MAXLEN 10000);
}

 

ClassMethod getItemData() As %Status [ PublicList = (U, ItemDetails, RESULTS) ]
{
Set tSC = $$$OK
results=""
               
s AllItems=##class(REST.Test.Sample.ItemDetails).%New()
(STATUS,XX)=0 F  S STATUS=$O(^GMR(123,"D",STATUS)) Q:STATUS'>0 f  s XX=$O(^GMR(123,"D",STATUS,XX)) Q:XX'>0 d
    .CONERR=""
    .GETS^DIQ(123,XX,"*","IE","ItemDetails","CONERR")
    .Q:"5,6"'[STATUS
    .Q:$P(^GMR(123,XX,0),"^",5)'=9
    .Item=..%New()
    .Item.ItemId=XX
    .CONID=XX_","
    .itemId=$g(ItemDetails(123,CONID,.02,"I"))
    .ien=XX_","
    .Item.ItemName=$g(ItemDetails(123,CONID,.02,"E"))
    .Item.itemStockNumber=$G(ItemDetails(123,CONID,10,"I"))
    .Item.itemType=$G(ItemDetails(123,CONID,10,"I"))
   .Item.itemPriorty=$G(ItemDetails(123,CONID,11,"I"))

    .X2=0 F  S X2=$O(ItemDetails(123,CONID,20,X2)) q:X2'>0 D
    ..results=$g(results)_"|"_ItemDetails(123,CONID,20,X2)
    ..Item.ItemData=$g(results)
    .;d Item.Consult.SetAt(XX,XX)
    .s AllItems.ItemId=XX
    .AllItems.Item.SetAt(Item.ItemName,"ItemName")

    d AllItems.%JSONExport()
    200

Certifications & Credly badges:
Phil has no Certifications & Credly badges yet.
Global Masters badges:
Followers:
Phil has no followers yet.
Following: