PXBMCPT2 ;ISL/JVS,ESW - MAIN ROUTINE CPT CODES ;3/22/05 9:22am
Source file <PXBMCPT2.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 16 | (CLEAR1,FULL0,LOC,TERM,WIN17)^PXBCC EN0^PXBDCPT (PRINT,REQ,RSET)^PXBDREQ CPT^PXBGCPT PRV^PXBGPRV CPT^PXBPCPT CDX^PXBPCPT2 MOD^PXBPMOD ORD^PXBPORD PRV^PXBPPRV QUA^PXBPQUA EN0^PXBSTOR (HDR,PRIM)^PXBUTL KILL^PXBUTL3 REMOVE^PXCEVFIL EN1^PXKMAIN |
| CPT HCPCS Codes | 1 | $$CODM^ICPTCOD |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CPT(PXBVST) | ;---Real entry point
|
|
| TEST3 | ;---THIRD SERERIO FOR PROMPTING FOR CPT'S
|
|
| TEST3C | ;--Display the CPT codes
|
|
| R2 | ||
| TEST3Q | ;--Prompt of the QUANTITY of the CPT code
|
|
| TEST3P | ;--GET PROVIDER
|
|
| TEST3O | ;ORDERING PROVIDER - PX124
|
|
| TEST3D | ;UP TO 8 DIAGNOSES - PX124
|
|
| STORE | ;SAVE IN V FILES
|
|
| HEADER | ;--Display header and list CPT codes and associated modifiers
|
|
| CPTXIT | ;----EXIT AND CLEAN UP
|
|
| DX(PXC) | ;GET DIAGNOSIS - PX124
|
|
| DX2 | ;2nd entry
|
|
| MORE(PXC) |
| Name | Field # of Occurrence |
|---|---|
| $$CODM^ICPTCOD | R2+12 |
| CLEAR1^PXBCC | CPTXIT+4 |
| FULL0^PXBCC | R2+10, CPTXIT+3 |
| LOC^PXBCC | HEADER+3, HEADER+8, DX2+5 |
| TERM^PXBCC | TEST3+2 |
| WIN17^PXBCC | TEST3Q+2, HEADER+7, DX2+5 |
| EN0^PXBDCPT | HEADER+6 |
| PRINT^PXBDREQ | R2+7, DX2+5 |
| REQ^PXBDREQ | HEADER+2 |
| RSET^PXBDREQ | TEST3C+3, R2+3, R2+4, R2+15, TEST3Q+6, STORE+3 |
| CPT^PXBGCPT | HEADER+5 |
| PRV^PXBGPRV | TEST3P+1 |
| CPT^PXBPCPT | R2+2 |
| CDX^PXBPCPT2 | DX2+1 |
| MOD^PXBPMOD | R2+14 |
| ORD^PXBPORD | TEST3O+1 |
| PRV^PXBPPRV | TEST3P+2 |
| QUA^PXBPQUA | TEST3Q+3 |
| EN0^PXBSTOR | TEST3Q+10, STORE+1 |
| HDR^PXBUTL | HEADER+1 |
| PRIM^PXBUTL | CPTXIT+2 |
| KILL^PXBUTL3 | CPTXIT+1 |
| REMOVE^PXCEVFIL | TEST3Q+5, TEST3Q+15 |
| EN1^PXKMAIN | TEST3Q+11, STORE+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVPOV - [#9000010.07] | TEST3D+3 |
| ^AUPNVPOV("AD" | TEST3D+2 |
| ^AUPNVSIT - [#9000010] | CPT+1, CPT+14 |
| ^TMP("PXBDCPT" | CPT+16*, CPTXIT+9! |
| ^TMP("PXBSTOR" | CPTXIT+9! |
| ^TMP("PXBTANA" | CPTXIT+10! |
| ^TMP("PXBTOTAL" | CPTXIT+10! |
| ^TMP("PXK" | CPTXIT+9! |
| ^TMP("PXMODARR" | R2+13! |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | TEST3D+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CPT+10~ |
| ANS | MORE+2~, MORE+3*, MORE+4*, MORE+5 |
| CLINIC | CPT+11~, CPT+14* |
| COM | CPT+9~, TEST3Q+9* |
| CPTQUA | CPT+8~ |
| CYCL | CPT+10~ |
| DATA | CPT+10~, R2+3, R2+4, R2+15, TEST3P+2, TEST3O+2, TEST3D+1*, TEST3D+4, DX2+2, DX2+4 |
| DEL | CPT+9~, TEST3Q+1*, TEST3Q+12*, TEST3Q+14 |
| DIRUT | R2+4! |
| DOUBLEQQ | CPT+8~, TEST3+1 |
| >> EDATA | TEST3Q+4 |
| ENTRY | CPT+8~ |
| ERROR | CPT+8~, R2!, R2+2 |
| FIRST | CPT+11~, CPT+16*, TEST3+1* |
| FIRSTCPT | CPT+10~, CPT+16* |
| FPRI | CPT+6~, CPT+8~, TEST3P+1 |
| FROM | CPT+9~, CPT+10~, TEST3P+2* |
| I | CPT+7~ |
| IDATE | CPT+7~, CPT+10~, R2+14 |
| >> IOCUU | TEST3P+2, TEST3O+2, DX2+2 |
| >> IOEDEOP | R2+2, HEADER+4, DX2+6 |
| >> IORC | DX2+6 |
| >> IOSC | TEST3P+1, DX2+6 |
| J | CPT+7~ |
| KFIRST | CPT+10~ |
| LEAVE | CPT+12~ |
| NAME | CPT+8~ |
| NOREV | CPT+9~ |
| PATIENT | CPT+12~, TEST3Q+10, STORE+1 |
| POV | CPT+7~ |
| PRI | CPT+7~ |
| PRIP | CPT+7~ |
| PRIPOV | CPT+7~ |
| PRISEC | CPT+7~ |
| PROMPT | CPT+10~, CPT+14*, TEST3Q+3* |
| PRV | CPT+7~ |
| PRVDR | CPT+6~, TEST3P+1 |
| PX | MORE+2~, MORE+4* |
| PX124 | CPT+9~, TEST3D+1*, TEST3D+2*, TEST3D+3, TEST3D+4* |
| PXBCNT | CPT+7~, TEST3Q+2, TEST3P+1, HEADER+7, DX2+5 |
| PXBDPRV | TEST3P+4! |
| PXBDXPRI | CPT+10~, TEST3D+1*, TEST3D+2, TEST3D+3* |
| PXBENT | CPT+7~ |
| >> PXBEXIT | CPT+16*, R2+2 |
| PXBKY | CPT+6~, TEST3P+1, CPTXIT+5! |
| PXBNCPT | CPT+11~ |
| PXBNCPT( | R2+16* |
| PXBNPOV | CPT+11~ |
| PXBNPRV | CPT+11~ |
| >> PXBPAT | R2+14 |
| PXBPMT | CPT+12~ |
| PXBPRV | CPT+8~ |
| PXBSAM | CPT+6~, TEST3P+1, CPTXIT+5! |
| PXBSAVE | CPT+8~ |
| PXBSKY | CPT+6~, TEST3P+1, CPTXIT+5! |
| >> PXBSOURC | R2+12 |
| PXBUT | CPT+8~, R2+4! |
| PXBVST | CPT~, CPT+1, CPT+14, R2+14, TEST3Q+10, TEST3P+1, TEST3D+2, STORE+1, HEADER+1, HEADER+5 |
| >> PXBVSTDT | R2+12 |
| PXBWIN | CPT+11~ |
| PXC | DX~, DX2+1, DX2+3, DX2+5, MORE~, MORE+1, MORE+4 |
| PXCEAFTR | CPT+9~ |
| PXCEVIEN | CPT+9~ |
| PXKVST | CPTXIT+5! |
| PXMDCNT | CPT+12~, R2+12*, R2+14 |
| PXMODSTR | CPT+12~, R2!, R2+14 |
| PXMREQ | CPT+12~, R2+1*, R2+3!, R2+4!, R2+14, R2+15!, TEST3Q+6!, TEST3Q+10, STORE+1, STORE+4! |
| PXNEWIEN | CPT+12~, R2+1*, R2+11*, R2+16, TEST3Q+5, TEST3Q+15 |
| PXTLNS | CPT+12~ |
| QUA | CPT+7~ |
| REQE | CPT+9~, CPT+13* |
| REQI | CPT+9~, CPT+13*, R2+12, R2+14, R2+16, TEST3Q+9, TEST3Q+10, TEST3P+3*, TEST3O+3*, STORE+1 , STORE+5*, DX2+3*, MORE+4 |
| SAVE | CPT+7~ |
| >> TEST | CPT+2* |
| U | TEST3O+3, TEST3D+3, DX2+3, MORE+4 |
| VAR | CPT+8~ |
| VISIT | CPT+7~ |