SCAPMC33 ;BP/DJB - Get Provider Array For a Pt Tm Pos ; 5/24/99 12:39pm
Source file <SCAPMC33.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PRPTTP(PTTMPOS,SCDATES,SCLIST,SCERR,SCALLHIS,ADJDATE) | ;Get provider array for | |
| ADJQUIT | ||
| ADJUST2 | ;Adjust Assigned/Unassigned Dates in SCLIST array so they don't | |
| ADJUST1(SDATE,EDATE) | ;Adjust SCDATES to Assign/Unassign Dates in 404.43. | |
| QUIT | 
| Name | Field # of Occurrence | 
|---|---|
| $$PRTP^SCAPMC | PRPTTP+48 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^SCPT(404.43 - [#404.43] | PRPTTP+37, PRPTTP+40 | 
| Name | Line Occurrences | 
|---|---|
| $$ADJUST1 | PRPTTP+46 | 
| ADJQUIT | ADJUST1+12, ADJUST1+13 | 
| ADJUST2 | PRPTTP+52 | 
| QUIT | PRPTTP+36, PRPTTP+37, PRPTTP+42, PRPTTP+47, PRPTTP+49, PRPTTP+50 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ADJDATE | PRPTTP~, PRPTTP+52 | 
| DATA | ADJUST2+3~, ADJUST2+9*, ADJUST2+12, ADJUST2+17, ADJUST2+18, ADJUST2+21, ADJUST2+27*, ADJUST2+30, ADJUST2+34, ADJUST2+35 | 
| DT | ADJUST1+8, ADJUST1+9 | 
| EDATE | PRPTTP+29~, PRPTTP+44*, PRPTTP+46, ADJUST1~, ADJUST1+7, ADJUST1+13, ADJUST1+17 | 
| ND | PRPTTP+29~, PRPTTP+40*, PRPTTP+41, PRPTTP+43, PRPTTP+44 | 
| OK | PRPTTP+29~, PRPTTP+32*, PRPTTP+46*, PRPTTP+47, PRPTTP+48*, PRPTTP+49, QUIT, ADJUST1+2~, ADJUST1+3*, ADJUST1+18* , ADJQUIT | 
| POSH | ADJUST2+3~, ADJUST2+7*, ADJUST2+8*, ADJUST2+9, ADJUST2+14, ADJUST2+17, ADJUST2+18, ADJUST2+22, ADJUST2+26, ADJUST2+27 , ADJUST2+32, ADJUST2+34, ADJUST2+35, ADJUST2+38, ADJUST2+39 | 
| PREH | ADJUST2+3~, ADJUST2+25*, ADJUST2+26*, ADJUST2+27, ADJUST2+32, ADJUST2+34, ADJUST2+35, ADJUST2+38, ADJUST2+39 | 
| PTTMPOS | PRPTTP~, PRPTTP+36, PRPTTP+37, PRPTTP+40 | 
| SCALLHIS | PRPTTP~, PRPTTP+48 | 
| SCDATES | PRPTTP~, PRPTTP+48, ADJUST1+6, ADJUST1+7, ADJUST1+8, ADJUST1+9, ADJUST1+12, ADJUST1+13, ADJUST1+16, ADJUST1+17 , ADJUST2+12, ADJUST2+14, ADJUST2+18, ADJUST2+21, ADJUST2+22, ADJUST2+30, ADJUST2+32, ADJUST2+35, ADJUST2+38, ADJUST2+39 | 
| SCERR | PRPTTP~, PRPTTP+33, PRPTTP+48 | 
| SCLIST | PRPTTP~, PRPTTP+48, ADJUST2+4, ADJUST2+8, ADJUST2+9, ADJUST2+14*, ADJUST2+17, ADJUST2+18, ADJUST2+22*, ADJUST2+26 , ADJUST2+27, ADJUST2+32*, ADJUST2+34, ADJUST2+35, ADJUST2+38, ADJUST2+39* | 
| SCLIST(0 | PRPTTP+50 | 
| SDATE | PRPTTP+29~, PRPTTP+43*, PRPTTP+46, ADJUST1~, ADJUST1+6, ADJUST1+12, ADJUST1+16 | 
| TMPOSPTR | PRPTTP+29~, PRPTTP+41*, PRPTTP+42, PRPTTP+48 | 
| U | PRPTTP+41, PRPTTP+43, PRPTTP+44, ADJUST2+12, ADJUST2+14, ADJUST2+17, ADJUST2+18, ADJUST2+21, ADJUST2+22, ADJUST2+30 , ADJUST2+32, ADJUST2+34, ADJUST2+35, ADJUST2+38, ADJUST2+39 |