PSOERXC1 ;ALB/BWF - eRx Utilities/RPC's ; 6/1/2018 5:14pm
Source file <PSOERXC1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(SRCH,SORTT,PCVSTAT) | ; -- main entry point for PSO ERX PATIENT CENTRIC VIEW
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| CENTSRCH | ;
|
|
| CENTSORT | ;
|
|
| ASKCSSORT() | ;
|
|
| SBN | ;NOTES: KEEPS UNLOCKING REGARDLESS OF THE USER COMING BACK FROM AN ACTUAL LOCK. MAY NEED TO CONSIDER A TAG THAT DETERMINES WHETHER OR NOT TO
|
|
| PATDATA | ;
|
|
| DIR(SORT,CNT,SLIST) | ;
|
|
| PAT() | ;
|
|
| DOB() | ;
|
|
| EREFNUM() | ;
|
|
| BLDITEM(ERXIEN,PATCNT,STAT) | ;
|
|
| CHKSTAT(FILSTAT,ERXSTAT,ERXISTAT) | ;
|
|
| EX | ; early exit logic
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^PS(52.45 - [#52.45] | GET1^DIQ |
| ^PS(52.46 - [#52.46] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| ^PS(59 - [#59] | GET1^DIQ |