©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSO52EX ;BHAM ISC/AGV - API FOR ORIGINAL, REFILL, AND PARTIAL DATA ;07/13/06 10:30 am
Source file <PSO52EX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXTRACT(SDATE,EDATE,LIST) | ;MAIN DRIVER
|
|
| ARXREF(PSODATE,PSOIEN,PSOFILL) | ; SUSPENSE STATUS CHECK
|
|
| PART(IEN,FILL) | ;PARTIAL FILL
|
|
| SEND | ;SENDS CONTROL TO $$CROSS. RECEIVES AND TRACKS COUNTS.
|
|
| CROSS(REF) | ;SETS UP ^TMP GLOBAL. SENDS FOR ORIGINAL, REFILL AND/OR PARTIAL FILL DATA
|
|
| REF(SDATE,EDATE,LIST) | ; "AD" XREF RETRIEVAL
|
|
| ORIG(IEN) | ;ORIGINAL FILL
|
|
| REFILL(IEN,FILL) | ;REFILL
|
| Name | Field # of Occurrence |
|---|---|
| $$FMTE^XLFDT | REFILL+3, PART+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | ORIG+3 |
| ^PSDRUG - [#50] | ORIG+4 |
| ^PSRX - [#52] | CROSS+3, CROSS+4, CROSS+5, REFILL+2, PART+2, ORIG+1 |
| ^PSRX("AD" | REF+11, REF+12, REF+13 |
| ^PSRX("AR" | ARXREF+7 |
| ^TMP($J | EXTRACT+6!, EXTRACT+7*, SEND+4*, SEND+5*, CROSS+6*, REFILL+1, REFILL+3*, REFILL+4*, REFILL+5*, REFILL+6* , REFILL+7*, PART+1, PART+3*, PART+4*, PART+5*, PART+6*, PART+7*, ORIG+2*, ORIG+3*, ORIG+4* , ORIG+5*, ORIG+6*, ORIG+7*, REF+6!, REF+7*, REF+14* |
| Name | Line Occurrences |
|---|---|
| $$CROSS | SEND+1, SEND+2 |
| ORIG | CROSS+7, REFILL+1, PART+1 |
| PART | CROSS+9 |
| REFILL | CROSS+8 |
| SEND | EXTRACT+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALCOUNT | SEND+1~*, SEND+3 |
| AMCOUNT | SEND+2~*, SEND+3 |
| DATE | CROSS+1~, CROSS+2*, CROSS+3*, CROSS+4, CROSS+5, CROSS+6, REF+10*, REF+11*, REF+12, REF+13 , REF+14 |
| DT | EXTRACT+8 |
| EDATE | EXTRACT~, EXTRACT+8*, CROSS+2, REF~, REF+8*, REF+10 |
| END | CROSS+1~, CROSS+2*, CROSS+3, REF+10*, REF+11 |
| FILL | REFILL~, REFILL+2, REFILL+3, REFILL+4, REFILL+5, REFILL+6, PART~, PART+2, PART+3, PART+4 , PART+5, PART+6 |
| IEN | REFILL~, REFILL+1, REFILL+2, REFILL+3, REFILL+4, REFILL+5, REFILL+6, REFILL+7, PART~, PART+1 , PART+2, PART+3, PART+4, PART+5, PART+6, PART+7, ORIG~, ORIG+1, ORIG+2, ORIG+3 , ORIG+4, ORIG+5, ORIG+6, ORIG+7 |
| LIST | EXTRACT~, EXTRACT+5, EXTRACT+6, EXTRACT+7, SEND+4, SEND+5, CROSS+6, REFILL+1, REFILL+3, REFILL+4 , REFILL+5, REFILL+6, REFILL+7, PART+1, PART+3, PART+4, PART+5, PART+6, PART+7, ORIG+2 , ORIG+3, ORIG+4, ORIG+5, ORIG+6, ORIG+7, REF~, REF+5, REF+6, REF+7, REF+14 |
| PSOCOUNT | CROSS+1~, CROSS+2*, CROSS+7*, CROSS+8*, CROSS+9*, CROSS+10 |
| PSODATE | ARXREF~, ARXREF+5, ARXREF+7 |
| PSOFILL | CROSS+1~, CROSS+2*, CROSS+5*, CROSS+6, CROSS+7, CROSS+8, CROSS+9, REF+9~, REF+10*, REF+13* , REF+14, ARXREF~, ARXREF+5, ARXREF+7 |
| PSOIEN | CROSS+1~, CROSS+2*, CROSS+4*, CROSS+5, CROSS+6, CROSS+7, CROSS+8, CROSS+9, ARXREF~, ARXREF+5 , ARXREF+7 |
| PSOORIG | ORIG+1~*, ORIG+2, ORIG+3, ORIG+4, ORIG+5, ORIG+6, ORIG+7 |
| PSOPART | PART+2~*, PART+3, PART+4, PART+5, PART+6 |
| PSORFL | REFILL+2~*, REFILL+3, REFILL+4, REFILL+5, REFILL+6 |
| PSORXN | REF+9~, REF+10*, REF+12*, REF+13, REF+14 |
| REF | CROSS~, CROSS+3, CROSS+4, CROSS+5, CROSS+6, CROSS+7, CROSS+8, CROSS+9 |
| RESULT | ARXREF+6~*, ARXREF+7*, ARXREF+8 |
| SDATE | EXTRACT~, EXTRACT+7, CROSS+2, REF~, REF+7, REF+8, REF+10 |
| TCOUNT | SEND+3~*, SEND+4 |
| U | REFILL+3, REFILL+4, REFILL+5, REFILL+6, PART+3, PART+4, PART+5, PART+6, ORIG+2, ORIG+3 , ORIG+4, ORIG+5, ORIG+6, ORIG+7 |