PSOERXOD ;ALB/BWF - eRx parsing Utilities ; 11/14/2019 3:46pm
Source file <PSOERXOD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPHARM(GBL,CNT,PSOSITE,PSOIEN) | ; Adapted from VAPHARM^PSOERXX2
|
|
| OPHARMD | ;;
|
|
| PHARMCST(GBL,CNT,SLN,MEDICARE,MEDICAID,UPIN,DEA,NPI,MUTUALDE,LNAME,FNAME,MNAME,SUFF,PREF,FLNAME,FFNAME,FMNAME,FSUFF,FPREF,BNAME,ADDL1,ADDL2,CITY,STATE,ZIP,CNTRY,SGBL8,PHIENS) | ; Create Pharmaticist structure
|
|
| LOCAL(GBL,CNT,PSOSITE,PSOIEN) | ;
|
|
| BL(GBL,CNT,TAG,VAR) | ; Build line
|
|
| C | ; Update counter
|
|
| OID(GBL,CNT,NAMES,SLN,MEDICARE,MEDICAID,UPIN,DEA,NPI,MUTUALDE,NCPDPID,HIN) | ; Create Identification structure
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |
