PXBMCPT2 ;ISL/JVS,ESW - MAIN ROUTINE CPT CODES ; 12/5/02 11:37am
Source file <PXBMCPT2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CPTXIT | ;----EXIT AND CLEAN UP
|
|
TEST3 | ;---THIRD SERERIO FOR PROMPTING FOR CPT'S
|
|
TEST3P | ;--GET PROVIDER
|
|
R2 | ||
HEADER | ;--Display header and list CPT codes and associated modifiers
|
|
TEST3Q | ;--Prompt of the QUANTITY of the CPT code
|
|
CPT(PXBVST) | ;---Real entry point
|
|
TEST3C | ;--Display the CPT codes
|
|
P | ;--Obtain the correct provider
|
Name | Field # of Occurrence |
---|---|
$$CODM^ICPTCOD | R2+12 |
CLEAR1^PXBCC | CPTXIT+4 |
FULL0^PXBCC | R2+10, CPTXIT+3 |
LOC^PXBCC | HEADER+3, HEADER+8 |
TERM^PXBCC | TEST3+2 |
WIN17^PXBCC | TEST3Q+2, HEADER+7 |
EN0^PXBDCPT | HEADER+6 |
PRINT^PXBDREQ | R2+7 |
REQ^PXBDREQ | HEADER+2 |
RSET^PXBDREQ | TEST3C+3, R2+3, R2+4, R2+15, TEST3Q+6, TEST3P+8 |
CPT^PXBGCPT | HEADER+5 |
PRV^PXBGPRV | TEST3P+2 |
CPT^PXBPCPT | R2+2 |
MOD^PXBPMOD | R2+14 |
PRV^PXBPPRV | TEST3P+3 |
QUA^PXBPQUA | TEST3Q+3 |
EN0^PXBSTOR | TEST3Q+10, TEST3P+6 |
HDR^PXBUTL | HEADER+1 |
PRIM^PXBUTL | CPTXIT+2 |
KILL^PXBUTL3 | CPTXIT+1 |
REMOVE^PXCEVFIL | TEST3Q+5, TEST3Q+15 |
EN1^PXKMAIN | TEST3Q+11, TEST3P+7 |
Name | Line Occurrences |
---|---|
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+9! |
^TMP("PXBSTOR" | CPTXIT+9! |
^TMP("PXBTANA" | CPTXIT+10! |
^TMP("PXBTOTAL" | CPTXIT+10! |
^TMP("PXK" | CPTXIT+9! |
^TMP("PXMODARR" | R2+13! |
Name | Line Occurrences |
---|---|
CPTXIT | R2+2, R2+4 |
HEADER | TEST3C+1 |
R2 | R2+2 |
TEST3 | R2+15, TEST3Q+4 |
TEST3C | R2+3, TEST3Q+14, TEST3P+11 |
TEST3P | TEST3P+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | CPT+9~ |
CLINIC | CPT+10~, CPT+13* |
COM | CPT+8~, TEST3Q+9* |
CPTQUA | CPT+7~ |
CYCL | CPT+9~ |
DATA | CPT+9~, R2+3, R2+4, R2+15, TEST3P+3 |
DEL | CPT+8~, TEST3Q+1*, TEST3Q+12*, TEST3Q+14 |
DIRUT | R2+4! |
DOUBLEQQ | CPT+7~, TEST3+1 |
>> EDATA | TEST3Q+4 |
ENTRY | CPT+7~ |
ERROR | CPT+7~, R2!, R2+2 |
FIRST | CPT+10~, CPT+15*, TEST3+1* |
FIRSTCPT | CPT+9~, CPT+15* |
FPRI | CPT+7~, TEST3P+1~, TEST3P+2 |
FROM | CPT+8~, CPT+9~, TEST3P+3* |
I | CPT+6~ |
IDATE | CPT+6~, CPT+9~, R2+14 |
>> IOCUU | TEST3P+3 |
>> IOEDEOP | R2+2, HEADER+4 |
>> IOSC | TEST3P+2 |
J | CPT+6~ |
KFIRST | CPT+9~ |
LEAVE | CPT+11~ |
NAME | CPT+7~ |
NOREV | CPT+8~ |
PATIENT | CPT+11~, TEST3Q+10, TEST3P+6 |
POV | CPT+6~ |
PRI | CPT+6~ |
PRIP | CPT+6~ |
PRIPOV | CPT+6~ |
PRISEC | CPT+6~ |
PROMPT | CPT+9~, CPT+13*, TEST3Q+3* |
PRV | CPT+6~ |
PRVDR | TEST3P+1~, TEST3P+2 |
PXBCNT | CPT+6~, TEST3Q+2, TEST3P+1~, TEST3P+2, HEADER+7 |
PXBDPRV | TEST3P+5! |
PXBENT | CPT+6~ |
>> PXBEXIT | CPT+15*, R2+2 |
PXBKY | TEST3P+1~, TEST3P+2, CPTXIT+5! |
PXBNCPT | CPT+10~ |
PXBNCPT( | R2+16* |
PXBNPOV | CPT+10~ |
PXBNPRV | CPT+10~ |
>> PXBPAT | R2+14 |
PXBPMT | CPT+11~ |
PXBPRV | CPT+7~ |
PXBSAM | TEST3P+1~, TEST3P+2, CPTXIT+5! |
PXBSAVE | CPT+7~ |
PXBSKY | TEST3P+1~, TEST3P+2, CPTXIT+5! |
>> PXBSOURC | R2+12 |
PXBUT | CPT+7~, R2+4! |
PXBVST | CPT~, CPT+1, CPT+13, R2+14, TEST3Q+10, TEST3P+2, TEST3P+6, HEADER+1, HEADER+5 |
>> PXBVSTDT | R2+12 |
PXBWIN | CPT+10~ |
PXKVST | CPTXIT+5! |
PXMDCNT | CPT+11~, R2+12*, R2+14 |
PXMODSTR | CPT+11~, R2!, R2+14 |
PXMREQ | CPT+11~, R2+1*, R2+3!, R2+4!, R2+14, R2+15!, TEST3Q+6!, TEST3Q+10, TEST3P+6, TEST3P+9! |
PXNEWIEN | CPT+11~, R2+1*, R2+11*, R2+16, TEST3Q+5, TEST3Q+15 |
PXTLNS | CPT+11~ |
QUA | CPT+6~ |
REQE | CPT+8~, CPT+12* |
REQI | CPT+8~, CPT+12*, R2+12, R2+14, R2+16, TEST3Q+9, TEST3Q+10, TEST3P+4*, TEST3P+6, TEST3P+10* |
SAVE | CPT+6~ |
>> TEST | CPT+2* |
VAR | CPT+7~ |
VISIT | CPT+6~ |