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 |