PSOERXU2 ;ALB/BWF - eRx utilities ; 5/26/2017 9:57am
Source file <PSOERXU2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| FINDPAT(NAME,IDOB,IGEN,SSN,AL1) | ;
 | 
|
| FINDPRE(NAME,NPI,DEA) | ; Try to find an existing prescriber record in #52.48
 ; Input: NAME - Prescriber Name ; NPI - Prescriber NPI Number ; DEA - Prescriber DEA Number  | 
|
| ERR(ERXIEN,MTYPE) | ;
 | 
|
| GETSTAT(MTYPE,RTHID,RTMID) | ;
 | 
|
| ADDCOMM(ERXIEN) | ;
 | 
|
| RESOLV(IEN) | ;
 | 
|
| GETREQ(IEN) | ;
 | 
|
| GETRESP(IEN) | ;
 | 
|
| MSGHIST(RES,IEN) | ;
 | 
|
| RRDELTA(DELTAS,REFREQ,REFRES) | ;
 | 
|
| CANREQ(ERXIEN,LINE,PMODE) | ;
 | 
|
| ALG(LINE) | ;
 | 
|
| RELATED(ERXIEN) | ; Finds the Related eRx based on the Prescriber Order #
 ; Input: ERXIEN - Pointer the ERX HOLDING QUEUE (#52.49)  | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^PS(52.45 - [#52.45] | GET1^DIQ | 
| ^PS(52.46 - [#52.46] | GET1^DIQ | 
| ^PS(52.48 - [#52.48] | GET1^DIQ | 
| ^PS(52.49 - [#52.49] | FIELD^DID, FIND1^DIC, GET1^DIQ | 
| 52.49201 | GET1^DIQ | 
| 52.4949 | FIELD^DID, GET1^DIQ, GETS^DIQ |