©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
SCAPMC34 ;BP/DJB - Get PCP/AP Array For a Pt Tm Pos ; 5/24/99 12:39pm
Source file <SCAPMC34.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | ($$PRPTTPC,$$PRTPC)^SCAPMC $$ADJUST1^SCAPMC33 $$DTCHK^SCAPU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADJUST(SCUDATE) | ;Convert PROV-P/PROV-U/PREC array to AP/PCP array. Adjust Start/End
|
|
| QUIT | ||
| PROV(PTTMPOS,SCDATE,SCTYPE,SCPIECE) | ;Return a single node/piece for AP/PCP
|
|
| PRPTTPC(PTTMPOS,SCDATES,SCLIST,SCERR,SCALLHIS,ADJDATE) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.43 - [#404.43] | PRPTTPC+16, PRPTTPC+19, PROV+20 |
| Name | Line Occurrences |
|---|---|
| ADJUST | PRPTTPC+33 |
| QUIT | PRPTTPC+15, PRPTTPC+16, PRPTTPC+21, PRPTTPC+26, PRPTTPC+29, PRPTTPC+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADJDATE | PRPTTPC~, PRPTTPC+28, ADJUST+27, ADJUST+36, ADJUST+41, ADJUST+46 |
| DATA | ADJUST+10~, ADJUST+20*, ADJUST+28*, ADJUST+29*, ADJUST+36*, ADJUST+41, ADJUST+47, ADJUST+48*, ADJUST+49, ADJUST+50* , ADJUST+57, PROV+16~, PROV+42*, PROV+43*, PROV+44*, PROV+45 |
| EDATE | PRPTTPC+9~, PRPTTPC+23*, PRPTTPC+25, PRPTTPC+33 |
| ERR | PROV+16~ |
| I | PROV+16~ |
| ID | ADJUST+10~, ADJUST+19*, ADJUST+20, ADJUST+53, ADJUST+55, PROV+16~, PROV+35*, PROV+36*, PROV+37, PROV+38 |
| ID1 | ADJUST+10~, ADJUST+53*, ADJUST+57 |
| IEN | PROV+16~, PROV+37*, PROV+38, PROV+41*, PROV+42 |
| ND | PRPTTPC+9~, PRPTTPC+19*, PRPTTPC+20, PRPTTPC+22, PRPTTPC+23 |
| NUM | ADJUST+10~, ADJUST+18*, ADJUST+19*, ADJUST+20 |
| OK | PRPTTPC+9~, PRPTTPC+12*, PRPTTPC+25*, PRPTTPC+26, PRPTTPC+28*, PRPTTPC+29, QUIT |
| PREH | ADJUST+10~ |
| PROV | PROV+16~ |
| PROV( | PROV+34, PROV+36, PROV+37, PROV+43 |
| PRPTTPC | PRPTTPC+9~, PRPTTPC+30, ADJUST+11 |
| PRPTTPC( | ADJUST+19, ADJUST+20 |
| PTTMPOS | PRPTTPC~, PRPTTPC+15, PRPTTPC+16, PRPTTPC+19, ADJUST+53, ADJUST+57, PROV~, PROV+19, PROV+20, PROV+29 , PROV+33*, PROV+34*, PROV+36, PROV+37, PROV+38 |
| RESULT | PROV+16~, PROV+29*, PROV+30 |
| SCALLHIS | PRPTTPC~, PRPTTPC+28 |
| SCDATE | PROV~, PROV+21, PROV+22, PROV+23 |
| SCDATES | PRPTTPC~, PRPTTPC+28, ADJUST+41, ADJUST+47, ADJUST+48, ADJUST+49, ADJUST+50 |
| SCERR | PRPTTPC~, PRPTTPC+28 |
| SCLIST | PRPTTPC~, ADJUST+57 |
| SCPIECE | PROV~, PROV+27*, PROV+44 |
| SCTYPE | PROV~, PROV+25*, PROV+26, PROV+36, PROV+37, PROV+38 |
| SCUDATE | ADJUST~, ADJUST+14*, ADJUST+36 |
| SDATE | PRPTTPC+9~, PRPTTPC+22*, PRPTTPC+25 |
| TMP | PROV+16~ |
| TMP( | PROV+38*, PROV+42 |
| TMP("" | PROV+41 |
| TMPOSPTR | PRPTTPC+9~, PRPTTPC+20*, PRPTTPC+21, PRPTTPC+28 |
| TYPE | ADJUST+10~, ADJUST+19*, ADJUST+20, ADJUST+27, PROV+16~, PROV+26* |
| TYPE1 | ADJUST+10~, ADJUST+55*, ADJUST+57 |
| U | PRPTTPC+20, PRPTTPC+22, PRPTTPC+23, ADJUST+28, ADJUST+29, ADJUST+36, ADJUST+41, ADJUST+47, ADJUST+48, ADJUST+49 , ADJUST+50, PROV+38, PROV+43, PROV+44 |
| ZDATE | PROV+16~ |
| ZDATE("BEGIN" | PROV+22* |
| ZDATE("END" | PROV+23* |
| ZDATE("INCL" | PROV+24* |