PXBMCPT ;ISL/JVS,ESW - MAIN ROUTINE CPT CODES ; 12/5/02 11:36am
Source file <PXBMCPT.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CPTXIT | ;----EXIT AND CLEAN UP | |
| TEST3C | ;--Display the CPT codes | |
| C | ;--Display the CPT codes | |
| TEST3Q | ;--Prompt of the QUANTITY of the CPT code | |
| R2 | ||
| TEST3 | ;---THIRD SERERIO FOR PROMPTING FOR CPT'S | |
| CPT(PXBVST) | ;---Real entry point | |
| Q | ;--Prompt of the QUANTITY of the CPT code | |
| P | ;--Obtain the correct provider | |
| R | ||
| R23 | 
| Name | Field # of Occurrence | 
|---|---|
| CLEAR1^PXBCC | CPTXIT+4 | 
| FULL0^PXBCC | CPTXIT+3 | 
| LOC^PXBCC | R, C+1, R2, TEST3C+1, R23 | 
| TERM^PXBCC | P+2, TEST3+2 | 
| WIN17^PXBCC | R, R2, Q+1, R23, TEST3Q+1 | 
| EN0^PXBDCPT | P+7, C+3, TEST3C+3 | 
| EN0^PXBDPRV | P+5 | 
| PRINT^PXBDREQ | R+14, R2+7, R23+7 | 
| REQ^PXBDREQ | P+3, TEST3+3 | 
| RSET^PXBDREQ | R+4, R2+2, R2+3, R2+4, Q+3, Q+4, Q+10, R23+2, R23+3, R23+4 , TEST3Q+3, TEST3Q+4, TEST3Q+10 | 
| CPT^PXBGCPT | P+6, C+2, TEST3C+2 | 
| PRV^PXBGPRV | P+4 | 
| CPT^PXBMCPT2 | CPT+2 | 
| CPT^PXBPCPT | R2+1, R23+1 | 
| PRV^PXBPPRV | R+1 | 
| PRI^PXBPPRV1 | R+10 | 
| QUA^PXBPQUA | Q+2, TEST3Q+2 | 
| EN0^PXBSTOR | R+15, Q+7, TEST3Q+7 | 
| HDR^PXBUTL | P+3, TEST3+3 | 
| PRIM^PXBUTL | CPTXIT+2 | 
| KILL^PXBUTL3 | CPTXIT+1 | 
| EN1^PXKMAIN | R+18, Q+9, TEST3Q+9 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AUPNVSIT - [#9000010] | CPT+1, CPT+13 | 
| ^TMP("PXBDCPT" | CPT+15*, CPTXIT+8! | 
| ^TMP("PXBSTOR" | CPTXIT+8! | 
| ^TMP("PXBTANA" | CPTXIT+9! | 
| ^TMP("PXBTOTAL" | CPTXIT+9! | 
| ^TMP("PXK" | CPTXIT+8! | 
| Name | Line Occurrences | 
|---|---|
| C | R2+3, Q+3, Q+11, R23+3, TEST3Q+3, TEST3Q+11 | 
| CPTXIT | R+1, R+5, R+6, R2+1, R23+1 | 
| P | R+3, R+4, R+11, R2+2, R2+4, Q+4, R23+2, R23+4, TEST3Q+4 | 
| R | R+1 | 
| R2 | R2+1, R23+1 | 
| TEST3C | TEST3+4 | 
| TEST3Q | TEST3+5 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | CPT+9~ | 
| CLINIC | CPT+10~, CPT+13* | 
| CPTQUA | CPT+8~ | 
| CYCL | CPT+9~, R+1! | 
| DATA | CPT+9~, R+4, R2+2, R2+3, R2+4, R23+2, R23+3, R23+4 | 
| DIRUT | R+11, R2+2!, R2+4!, Q+4!, R23+2!, R23+4!, TEST3Q+4! | 
| DOUBLEQQ | CPT+8~, P+1, R+3, TEST3+1 | 
| >> EDATA | Q+3, Q+4, TEST3Q+3, TEST3Q+4 | 
| ENTRY | CPT+8~ | 
| ERROR | CPT+8~, R+1!, R2+1!, R23+1! | 
| FIRST | CPT+10~, CPT+15*, P+1*, R+5, R+7!, TEST3+1* | 
| FIRSTCPT | CPT+9~, CPT+15* | 
| FPRI | CPT+8~, P+4 | 
| FROM | CPT+9~, CPT+11~, P+5*!, R+1*! | 
| I | CPT+7~ | 
| IDATE | CPT+7~, CPT+9~ | 
| >> IOEDEOP | R+2, C+1, R2+1, TEST3C+1, R23+1 | 
| >> IOSC | R+1 | 
| J | CPT+7~ | 
| KFIRST | CPT+9~ | 
| LEAVE | CPT+10~, R+6 | 
| NAME | CPT+8~ | 
| NOREV | CPT+11~ | 
| PATIENT | CPT+10~, R+15, Q+7, TEST3Q+7 | 
| POV | CPT+7~ | 
| PRI | CPT+7~ | 
| PRIP | CPT+7~ | 
| PRIPOV | CPT+7~ | 
| PRISEC | CPT+7~ | 
| PROMPT | CPT+9~, CPT+13*, R+10*, Q+2*, TEST3Q+2* | 
| PRV | CPT+7~ | 
| PRVDR | CPT+7~, P+4 | 
| PXBCNT | CPT+7~, P+4, R, R2, Q+1, R23, TEST3Q+1 | 
| PXBENT | CPT+7~ | 
| >> PXBEXIT | CPT+15*, R+1, R2+1, R23+1 | 
| PXBKY | CPT+7~, P+4, CPTXIT+5! | 
| PXBNCPT | CPT+10~ | 
| PXBNPOV | CPT+10~ | 
| PXBNPRV | CPT+10~ | 
| PXBPMT | CPT+10~ | 
| PXBPRV | CPT+8~ | 
| PXBSAM | CPT+7~, P+4, CPTXIT+5! | 
| PXBSAVE | CPT+8~ | 
| PXBSKY | CPT+7~, P+4, CPTXIT+5! | 
| PXBUT | CPT+8~, R+5, R+6, R2+2!, R2+4!, Q+4!, R23+2!, R23+4!, TEST3Q+4! | 
| PXBVST | CPT~, CPT+1, CPT+2, CPT+13, P+3, P+4, P+6, R+15, C+2, Q+7 , CPTXIT+5!, TEST3+3, TEST3C+2, TEST3Q+7 | 
| PXBWIN | CPT+10~ | 
| QUA | CPT+7~ | 
| REQE | CPT+9~, CPT+12* | 
| REQI | CPT+9~, CPT+12*, R+3, R+15, Q+7, TEST3Q+7 | 
| SAVE | CPT+7~ | 
| >> TEST | CPT+3*, P+5, P+6, P+7 | 
| VAR | CPT+8~ | 
| VISIT | CPT+7~ |