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 |