PSSHDPG1 ;BIRM/KML - APIs SUPPORTING REQUEST AND RETRIEVAL OF PGx DATA FROM HDR ;9/28/23
Source file <PSSHDPG1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPGXRESULTS(PSSDFN,PSSGENES) | ; get PGx (genetic test interpretation results from HDR)
; INPUT - PSSDFN = IEN of PATIENT file (#2) (the DFN) ; OUTPUT - PSSGENES = local array of drug, phenotype, genotype, activity score returned from the HDR ; Passed in by reference ; RETURN = 1^SUCCESSFUL ; -1^_errorMessage ; |
|
| GETPGXEXIT | ;
|
|
| GETICN(X) | ;GET ICN
; INPUT = X (DFN) ; OUTPUT = X1 (ICN associated with patient DFN) |
|
| GETICNX | ;
|
|
| BLDDATETM(PSSFMDT) | ; format Fileman date/time to CCYY-MM-DD_"T"_HH:MM:SS_"Z"
; format Fileman date/time to CCYY-MM-DD_"T"_HH:MM:SS_"Z" |
|
| BLDREQSTRING(ICN,PSSX,PSSDTM) | ;
|
|
| SENDREQUEST(PSSROBJ,PSSX,PSSERR) | ; post MED_ORDER_CHECK request to HDR web service to return patient genetic test results
; Input - PSSROBJ = rest service request object (passed in by reference) ; PSSX = request string to HDR ; Output - PSSRET = returned (XML) string as a result of HDR processing of the request ; - PSSERR = error object (passed in by reference) |
|
| SENDREQUESTX | ;
|
|
| SETARRAY(PSSGENES) | ; ;move from temp global into LOCAL array
|
|
| PARSE(STREAM) | ;parse out xml into temp global (copied from PARSE^ORRDI1)
|
|
| SPUSH(S,X) | ;places X on the stack S and returns the current level of the stack (copied from PARSE^ORRDI1)
|
|
| SPOP(S,X) | ;removes the top item from the stack S and put it into the variable X and returns the level that X was at (copied from PARSE^ORRDI1)
|
|
| SPEEK(S,X) | ;same as SPOP except the top item is not removed (copied from PARSE^ORRDI1)
|
|
| SPUT(S,X) | ;implementation specific, uses the stack to form a global node (copied from PARSE^ORRDI1)
|
|
| REMOVEOFFSET(TIME) | ;
|
|
| ERROR | ||
| GETTEXT(ERRARRAY) | ;
; @DESC Gets the error text from the array |
