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 |