RAWKLU2 ;HISC/GJC-physician wRVU (scaled too) by procedure ; Sep 09, 2021@08:05:17
Source file <RAWKLU2.m>
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 |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 2 | RA WKLIPHY WRVU CPT RAWKLU |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(RASCLD) | ;Identifies the option that the user wishes to execute.
|
|
PHYST | ;allow the user to select one/many/all physicians
|
|
STRTDT | ;Prompt the user for the starting verified date
|
|
ENDDT | ;Prompt the user for the ending verified date
|
|
START | ;check exams based on criteria input by user; physician & exam D/T
|
|
XAM | ; get exam information; procedure name, exam status order #, int. staff phys...
|
|
SETARRY | ;find the wRVU value (either un-scaled or scaled) for a particular CPT
|
|
XIT | ;kill variables and exit
|
|
CHKCY | ;03/28/2007 KAM/BAY RA*5*77 Remedy Call 179232 Check for latest RVU
; data from Fee Basis |
Name | Field # of Occurrence |
---|---|
$$S^%ZTLOAD | XAM+8 |
$$EXTERNAL^DILFD | XAM+24 |
$$LASTCY^FBAAFSR | CHKCY+5 |
$$RVU^FBRVU | SETARRY+21, SETARRY+26 |
$$BASICMOD^RACPTMSC | SETARRY+10 |
$$NAMCODE^RACPTMSC | XAM+22 |
EN1^RASELCT | PHYST+5 |
$$ENDDT^RAWKLU1 | ENDDT+1 |
$$STRTDT^RAWKLU1 | STRTDT+1 |
EN^RAWKLU3 | START+21 |
$$SFCTR^RAWRVUP | SETARRY+32 |
$$FMTE^XLFDT | PHYST+20 |
$$NOW^XLFDT | PHYST+20 |
$$CJ^XLFSTR | XIT+1 |
EN^XUTMDEVQ | ENDDT+10 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RA(72 - [#72] | XAM+11 |
^RADPT - [#70] | START+15, START+18, XAM+1, SETARRY+6, SETARRY+7, SETARRY+8 |
^RAMIS(71 - [#71] | XAM+4, XAM+19 |
^RARPT - [#74] | START+14 |
^RARPT("AA" | START+11, START+13 |
^TMP("RA STFPHYS-IEN" | EN+4!, PHYST+17*, XAM+16, XIT+5! |
^TMP($J | EN+4!, PHYST+7, PHYST+15, PHYST+17, PHYST+20!, START+6!, SETARRY+42, SETARRY+43*, SETARRY+44*, SETARRY+45 , SETARRY+46*, SETARRY+47*, XIT+5! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%W | PHYST+5! |
%Y1 | PHYST+5! |
DIC | PHYST+5! |
DIR | XIT+2! |
DIROUT | XIT+2! |
DIRUT | XIT+2! |
DTOUT | XIT+2! |
DUOUT | XIT+2! |
I | ENDDT+8*, ENDDT+9*, ENDDT+10, ENDDT+12! |
IOM | XIT+1 |
RA7002 | START+15*, START+16, SETARRY+32, XIT+2! |
RA7003 | XAM+1*, XAM+2, XAM+3, XAM+11, XAM+15, XAM+16, XAM+19, XAM+24, XAM+25! |
RA813 | SETARRY+49! |
RA813(0 | SETARRY+10*, SETARRY+11, SETARRY+12 |
RABGDTI | STRTDT+3*, STRTDT+5, ENDDT+1, XIT+2! |
RABGDTX | STRTDT+3*, ENDDT+1, XIT+2! |
RABILAT | SETARRY+5*, SETARRY+11*, SETARRY+29, SETARRY+31, SETARRY+49! |
RACNI | START+18*, XAM+1, SETARRY+6, SETARRY+7, SETARRY+8, XIT+2! |
RACNT | START+8*, XAM+5*, XAM+8, XIT+2! |
RACPT | XAM+19*, XAM+22*, XAM+25!, SETARRY+21, SETARRY+26, SETARRY+45, SETARRY+46, SETARRY+47 |
RACPTMOD | SETARRY+5*, SETARRY+12*, SETARRY+21, SETARRY+23, SETARRY+49! |
RACPTMOD(0 | SETARRY+8*, SETARRY+10 |
RACYFLG | START+8*, SETARRY+21, SETARRY+26, XIT+4!, CHKCY+2*, CHKCY+5* |
RADATE | PHYST+20*, STRTDT+1, XIT+2! |
RADFN | START+14*, START+15, START+18, XAM+1, SETARRY+6, SETARRY+7, SETARRY+8, XIT+3! |
RADIC | PHYST+2*, PHYST+5! |
RADIC("A" | PHYST+3* |
RADIC("B" | PHYST+3* |
RADIC("S" | PHYST+4* |
RADIC(0 | PHYST+2* |
RADTE | START+14*, START+15, XIT+3! |
RADTI | START+15*, START+18, XAM+1, SETARRY+6, SETARRY+7, SETARRY+8, XIT+3! |
RAEND | ENDDT+1*, ENDDT+2, ENDDT+3, ENDDT+6! |
RAENDTI | ENDDT+3*, XIT+3! |
RAENDTX | ENDDT+3*, XIT+3!, CHKCY+5 |
RAI | SETARRY+6*, SETARRY+7*, SETARRY+8, SETARRY+49! |
RAMBGDT | STRTDT+3*, STRTDT+5*, START+8, XIT+3! |
RAMENDT | ENDDT+3*, ENDDT+5*, START+11, XIT+3! |
RAPRCIEN | XAM+3*, XAM+4, XAM+25! |
RAPRCIEN(0 | XAM+4*, SETARRY+45, SETARRY+46, SETARRY+47 |
RAQUIT | XIT+3! |
RARPT | START+14*, XIT+3! |
RARPTIEN | START+12*, START+13*, START+14, XAM+2, XIT+3! |
RARPTVDT | START+8*, START+11*, START+13, SETARRY+21, SETARRY+26, XIT+4! |
RASCLD | EN~, SETARRY+32 |
RASTART | STRTDT+1*, STRTDT+2, STRTDT+3, STRTDT+6! |
RASTF | XAM+24*, XAM+25!, SETARRY+42, SETARRY+43, SETARRY+44, SETARRY+45, SETARRY+46, SETARRY+47 |
RAUTIL | PHYST+2*, PHYST+5! |
RAWRVU | SETARRY+21*, SETARRY+23, SETARRY+26*, SETARRY+27, SETARRY+29*, SETARRY+31*, SETARRY+32*, SETARRY+35*, SETARRY+36*, SETARRY+44 , SETARRY+45, SETARRY+46, SETARRY+47, SETARRY+49! |
RAXAMDT | START+16*, XAM+22, SETARRY+10, SETARRY+32, XIT+4! |
RAXIT | START+8*, START+11, START+13, XAM+8*, XIT+4! |
U | STRTDT+3, ENDDT+3, START+14, START+16, XAM+2, XAM+3, XAM+4, XAM+11, XAM+15, XAM+16 , XAM+19, XAM+22, XAM+24, SETARRY+11, SETARRY+12, SETARRY+23, SETARRY+27, SETARRY+29, SETARRY+31, SETARRY+32 , SETARRY+43, SETARRY+44, SETARRY+46, SETARRY+47 |
X | PHYST+5!, PHYST+15*, PHYST+17, XIT+4! |
Y | PHYST+5!, PHYST+16*, PHYST+17*, XIT+4! |
>> ZTQUEUED | START+5 |
>> ZTREQ | START+5* |
ZTSAVE | ENDDT+10, ENDDT+12! |
ZTSAVE( | ENDDT+8* |
ZTSK | ENDDT+11, ENDDT+12! |
>> ZTSTOP | XAM+8*, XIT+1 |