©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
SCAPMC8C ;BP/DJB - Convert Practitioners List to PCP/AP ; 8/4/00 2:28pm
Source file <SCAPMC8C.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$PRTP^SCAPMC $$DTCHK^SCAPU1 |
| Kernel | 1 | $$FMADD^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ||
| PRTPC(SCTP,SCDATES,SCLIST,SCERR,SCALLHIS,ADJUSTDT) | ;Convert list of providers
|
|
| ADJUST | ;Convert returned array to PROV-P/PROV-U/PREC array.
|
| Name | Line Occurrences |
|---|---|
| ADJUST | PRTPC+32 |
| QUIT | PRTPC+29, PRTPC+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADJEDATE | ADJUST+4~, ADJUST+55*, ADJUST+56, ADJUST+59, ADJUST+66*, ADJUST+69, ADJUST+72 |
| ADJSDATE | ADJUST+4~, ADJUST+54*, ADJUST+58, ADJUST+64*, ADJUST+68, ADJUST+71 |
| ADJUSTDT | PRTPC~, PRTPC+25*, ADJUST+56, ADJUST+67 |
| DATA | ADJUST+3~, ADJUST+10*, ADJUST+13, ADJUST+14, ADJUST+15, ADJUST+16, ADJUST+42, ADJUST+43, ADJUST+47, ADJUST+48 , ADJUST+53, ADJUST+56*, ADJUST+60, ADJUST+63, ADJUST+65, ADJUST+68*, ADJUST+69*, ADJUST+73 |
| DATA1 | ADJUST+3~, ADJUST+21*, ADJUST+25, ADJUST+26, ADJUST+30, ADJUST+35, ADJUST+36 |
| EDATE | ADJUST+4~, ADJUST+16*, ADJUST+48, ADJUST+65*, ADJUST+66 |
| ID | ADJUST+3~, ADJUST+13*, ADJUST+14, ADJUST+35*, ADJUST+36, ADJUST+42*, ADJUST+43, ADJUST+47*, ADJUST+48, ADJUST+53* , ADJUST+60, ADJUST+63*, ADJUST+73 |
| NUM | ADJUST+3~, ADJUST+7*, ADJUST+8*, ADJUST+10, ADJUST+14, ADJUST+20, ADJUST+21, ADJUST+36, ADJUST+43, ADJUST+48 , ADJUST+60, ADJUST+73 |
| NUM1 | ADJUST+3~, ADJUST+19*, ADJUST+20*, ADJUST+21 |
| PRTPC | PRTPC+23~ |
| PRTPC( | ADJUST+8, ADJUST+10, ADJUST+14, ADJUST+20, ADJUST+21 |
| PRTPC(0 | PRTPC+30 |
| RESULT | PRTPC+23~, PRTPC+28*, PRTPC+29, QUIT |
| SCALLHIS | PRTPC~, PRTPC+28 |
| SCDATES | PRTPC~, PRTPC+28, ADJUST+30, ADJUST+58, ADJUST+59, ADJUST+71, ADJUST+72 |
| SCERR | PRTPC~, PRTPC+28 |
| SCLIST | PRTPC~, ADJUST+14, ADJUST+36, ADJUST+43, ADJUST+48, ADJUST+60, ADJUST+73 |
| SCTP | PRTPC~, PRTPC+28 |
| SDATE | ADJUST+4~, ADJUST+9!, ADJUST+15*, ADJUST+43, ADJUST+54 |
| SDATE( | ADJUST+32* |
| SDATE(0 | ADJUST+39 |
| SDATE1 | ADJUST+4~, ADJUST+25*, ADJUST+26*, ADJUST+30, ADJUST+32, ADJUST+39*, ADJUST+43, ADJUST+48, ADJUST+55, ADJUST+64 |
| U | ADJUST+13, ADJUST+15, ADJUST+16, ADJUST+25, ADJUST+26, ADJUST+30, ADJUST+35, ADJUST+42, ADJUST+47, ADJUST+53 , ADJUST+56, ADJUST+63, ADJUST+65, ADJUST+68, ADJUST+69 |