SCRPW46 ;RENO/KEITH/MLR - Outpatient Diagnosis/Procedure Search (cont.) ; 9/27/00 10:29am
Source file <SCRPW46.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 4 | DISP0^SCRPW23 (,EXIT,PD1)^SCRPW47 ($$XY,SUBT)^SCRPW50 ($$GETOE,GETCPT,GETDX)^SDOE |
DRG Grouper | 3 | $$ICDDX^ICDCODE $$CPT^ICPTCOD $$MOD^ICPTMOD |
Kernel | 2 | $$S^%ZTLOAD EN^XUTMDEVQ |
VA Fileman | 2 | NOW^%DTC ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
HDR | ;Print report header
|
|
PPRT | ;Print report parameters
|
|
PDIS | ;Parameter display
|
|
STOP | ;Check for stop task request
|
|
PDIS1 | ||
START | ;Print report
|
|
HINI | ;Initialize header variables
|
|
DHDR(SDIV,SDI,SDTIT) | ;Set up division subheaders
|
|
DIV() | ;Check division
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | HINI+2 |
$$S^%ZTLOAD | STOP+1 |
^DIR | PDIS1+4, HDR+1 |
$$ICDDX^ICDCODE | START+33, START+97 |
$$CPT^ICPTCOD | START+40, START+102 |
$$MOD^ICPTMOD | START+50, START+113 |
DISP0^SCRPW23 | PPRT+1 |
^SCRPW47 | START+135 |
EXIT^SCRPW47 | PPRT+4, START+135 |
PD1^SCRPW47 | PDIS+2, PPRT+4 |
$$XY^SCRPW50 | HDR+3, HDR+4 |
SUBT^SCRPW50 | PDIS+1 |
$$GETOE^SDOE | START+6 |
GETCPT^SDOE | START+11 |
GETDX^SDOE | START+8 |
EN^XUTMDEVQ | PDIS1+8 |
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 |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | HINI+2 |
^DG(40.8 - [#40.8] | DHDR+18 |
^SCE("ADFN" | START+3, START+4, START+5 |
^TMP("SCRPW" | DHDR+15, DHDR+16, START+1!, START+9*, START+12*, START+18*, START+21*, START+22*, START+23*, START+26 , START+27!, START+32, START+34*, START+36, START+45*, START+48, START+56*, START+63, START+66, START+67* , START+70, START+71*, START+73, START+74*, START+77, START+78*, START+81*, START+85, START+87, START+88* , START+91, START+92!, START+96, START+97*, START+100, START+107*, START+111, START+119*, START+125*, START+127* , START+129!, START+130!, START+134! |
Name | Line Occurrences |
---|---|
$$DIV | START+6 |
HDR | PPRT+3 |
HINI | PPRT+3 |
PDIS | PDIS1+5 |
PDIS1 | PDIS1+9 |
STOP | HDR+2, START+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | HINI+2 |
A | START+84~ |
B | START+84~ |
C | START+84~ |
CPTCODE | START+39~, START+42*, START+44, START+101~, START+104*, START+106 |
CPTINFO | START+39~, START+40*, START+41, START+42, START+43, START+101~, START+102*, START+103, START+104, START+105 |
CPTTEXT | START+39~, START+43*, START+44, START+101~, START+105*, START+106 |
D | START+84~ |
>> DFN | START+3*, START+4, START+5, START+9, START+12, START+18, START+21, START+22, START+23, START+26 , START+27, START+32, START+34, START+36, START+45, START+48, START+56, START+63, START+66, START+67 , START+70, START+71, START+73, START+74, START+77, START+78, START+81, START+85, START+87, START+88 , START+91, START+92, START+96, START+97, START+100, START+107, START+111, START+119, START+125, START+127 , START+129, START+130 |
DIR | PDIS1!, HDR+1~ |
DIR("A" | PDIS1+2* |
DIR("B" | PDIS1+3* |
DIR(0 | PDIS1+1*, HDR+1* |
>> DTOUT | PDIS1+4 |
>> DUOUT | PDIS1+4 |
E | START+84~ |
F | START+84~ |
G | START+84~ |
H | START+84~ |
I | START+84~ |
IOF | HDR+3 |
IOM | HINI+1, HDR+6, HDR+8 |
IOST | PPRT+1, PPRT+4, HDR+1, HDR+3 |
J | START+84~ |
K | START+84~ |
L | START+84~ |
M | START+84~ |
MODCODE | START+49~, START+52*, START+54, START+112~, START+115*, START+117 |
MODINFO | START+49~, START+50*, START+51, START+52, START+53, START+112~, START+113*, START+114, START+115, START+116 |
MODTEXT | START+49~, START+53*, START+54, START+112~, START+116*, START+117 |
N | START+84~ |
O | START+84~ |
P | START+84~ |
Q | START+84~ |
R | START+84~ |
S | START+84~ |
>> SD("BDT" | START+4 |
>> SD("EDT" | START+4 |
>> SD("LIST" | START+8, START+11, START+30, START+36 |
>> SD("PBDT" | HDR+7 |
>> SD("PEDT" | HDR+7 |
>> SDC | START+63*, START+65, START+67, START+69, START+71, START+74, START+76, START+78, START+81, START+85* , START+87*, START+88 |
>> SDCL | START+63*, START+85, START+87 |
>> SDCPT | START+12*, START+18 |
>> SDCRI | START+62*, START+63, START+87 |
>> SDCRI( | START+62 |
>> SDDIV | DHDR+5, DHDR+6, DHDR+10, DHDR+14, START+1, DIV+1 |
>> SDDIV( | DHDR+11, START+1, DIV+1 |
>> SDDX | START+9* |
>> SDFF | HINI+2*, HDR+1, HDR+3, HDR+9* |
>> SDFMT | START+21, START+22, START+23, START+127 |
SDI | PDIS1+7*, HDR+5~*, HDR+6*, DHDR~, DHDR+5, DHDR+6, DHDR+7, DHDR+11*, DHDR+17*, DHDR+18 , START+8*, START+9, START+11*, START+12, START+16, START+17, START+32*, START+33, START+34, START+36* , START+40, START+45, START+48, START+63*, START+66*, START+67, START+69*, START+70*, START+71, START+73* , START+74, START+76*, START+77*, START+78, START+85*, START+87*, START+96*, START+97, START+100*, START+102 , START+111 |
>> SDI2 | START+48*, START+50, START+56, START+110*, START+111*, START+113 |
SDIV | DHDR~, DHDR+5, DHDR+10, DHDR+14, DHDR+15~*, DHDR+16, DHDR+18, START+6*, START+9, START+12 , START+18, START+21, START+22, START+23, START+27~*, START+31~*, START+32, START+34, START+36, START+45 , START+48, START+56, START+61~*, START+63, START+66, START+67, START+70, START+71, START+73, START+74 , START+77, START+78, START+81, START+85, START+87, START+88, START+92*, START+95~*, START+96, START+97 , START+99~*, START+100, START+107, START+111, START+119, START+123~*, START+125, START+127, DIV+1 |
>> SDIVL( | DHDR+6 |
SDIVN | DHDR+6, DHDR+7, DHDR+10~*, DHDR+11* |
>> SDLINE | HINI+1*, HDR+5, HDR+7, HDR+9 |
SDLIST | START+8!, START+11! |
SDLIST( | START+8, START+9, START+11, START+12, START+16, START+17 |
>> SDMD | START+1*, START+127 |
SDMOD | START+14~, START+17*, START+18 |
SDMODN | START+14~, START+15*, START+16*, START+17 |
>> SDOE | START+5*, START+6, START+8, START+11, START+21 |
>> SDOE0 | START+6*, START+21, START+33, START+40, START+50, START+97, START+102, START+113 |
>> SDOUT | PDIS+2*, PDIS1+4*, PDIS1+5*, PPRT+4, STOP+1*, HDR+1*, HDR+2, START+1*, START+3, START+4 , START+5, START+135 |
>> SDPAGE | HINI+2*, HDR+8, HDR+9* |
>> SDPAR( | START+65, START+67, START+69, START+74, START+76 |
SDPDIV | START+3! |
SDPDIV( | START+6*, START+27, START+31, START+61, START+92, START+95, START+99, START+123 |
>> SDPNOW | HINI+2*, HDR+8 |
>> SDR1 | START+69*, START+71, START+76*, START+78 |
>> SDR2 | START+69*, START+71, START+76*, START+78 |
>> SDSTOP | START+1*, START+3* |
>> SDT | START+4*, START+5, START+21, START+22, START+97 |
SDTIT | DHDR~ |
SDTIT( | HDR+6, DHDR+5*, DHDR+6*, DHDR+7*, DHDR+11*, DHDR+18* |
SDTIT(1 | PPRT+2* |
SDTIT(2 | PPRT+3* |
>> SDX | START+33*, START+34, START+44*, START+45, START+56, START+87*, START+88, START+97*, START+106*, START+107 , START+119 |
>> SDX2 | START+54*, START+56, START+117*, START+119 |
>> SDZ | START+65*, START+66, START+69, START+73, START+76, START+81 |
T | START+84~ |
U | DHDR+5, DHDR+6, DHDR+10, DHDR+14, DHDR+18, START+1, START+81, START+84~ |
V | START+84~ |
W | START+84~ |
X | START+84~ |
Y | PDIS1+5, HINI+2*, HDR+1, START+84~ |
Z | START+84~ |
>> ZTQUEUED | PPRT+4, STOP+1 |
ZTSAVE | PDIS1+6~, PDIS1+8 |
ZTSAVE( | PDIS1+7* |
>> ZTSTOP | STOP+1* |