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* |