Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCE837N

IBCE837N.m

Go to the documentation of this file.
  1. IBCE837N ;EDE/JWS - RPC TO RETURN EXTERNAL CLAIM NUMBER FOR IEN
  1. ;;2.0;INTEGRATED BILLING;**718**;23-MAY-18;Build 73
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. GET(RESULT,ARG) ; return external claim # from internal number (IEN)
  1. ;
  1. N RES,DILOCKTM,DISYS,DT,DTIME,IO,IBIEN,SITE,IBCLM
  1. K RESULT
  1. D DTNOLF^DICRW
  1. S IBIEN=ARG("IEN399")
  1. ;;I IBIEN="" S RES("status")="No Claim IEN value passed" G RET
  1. S SITE=$P($$SITE^VASITE(),"^",3)
  1. I IBIEN'="" D
  1. . S IBCLM=$$GET1^DIQ(399,IBIEN_",",.01)
  1. . ;;I X="" S RES("status")="Claim IEN "_IBIEN_" does not exist on Site "_SITE G RET
  1. . ;;I X="" S RES("ien")=IBIEN, RES("claim")="undefined", RES("site")=SITE G RET
  1. . ;;S RES("status")="Claim IEN "_IBIEN_" is for Claim# "_X_" on Site "_SITE
  1. S RES("ien")=$S(IBIEN:IBIEN,1:0)
  1. S RES("site")=SITE
  1. S RES("claim")=$S($G(IBCLM)'="":IBCLM,1:"undefined")
  1. ;
  1. RET ; setup return JSON
  1. ; create JSON structured message
  1. D ENCODE^XLFJSONE("RES","RESULT")
  1. D FINISH^IBCE837I
  1. Q
  1. ;