PSOERXA1 ;ALB/BWF - eRx Utilities/RPC's ; 8/3/2016 5:14pm
Source file <PSOERXA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INCERX(RES,XML,PRCHK,PACHK,DACHK,STATION,DIV,ERXHID,ERXVALS,XML2,VADAT) | ;
|
|
| PARSE(STREAM,ERXVALS,NPI,STREAM2) | ;
|
|
| OBS(ERXIEN,MTYPE) | ; Observation
|
|
| PAT(ERXIEN,MTYPE) | ; patient
|
|
| PATC(IEN) | ; patient communication
|
|
| SPUSH(S,X) | ;places X on the stack S and returns the current level of the stack
|
|
| 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
|
|
| SPEEK(S,X) | ;same as SPOP except the top item is not removed
|
|
| SPUT(S,X) | ;implementation specific, uses the stack to form a global node
|
|
| APUT(S,X,LN) | ; what am i doing here?
|
|
| PRESOLV(VAL,TYPE) | ;
|
|
| CONVDTTM(VAL) | ;
|
|
| CSERX() | ; Determine if an Incoming eRx is for a Controlled Substance Medication or not
; Output: "1" (Controlled Substance) or "0" (Non-Controlled Substance) |
| RPC Name | Call Tags |
|---|---|
| PSOERXA1 INCERX | INCERX |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | FIND1^DIC |
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PS(50.7 - [#50.7] | GET1^DIQ |
| 52.465 | GET1^DIQ |