RORUTL20 ;ALBFO/TK - INPATIENT PROCEDURES UTILITIES ;1/29/07 9:53am
Source file <RORUTL20.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | $$ROOT^DILFD GETS^DIQ |
| Clinical Case Registries | 1 | $$ERROR^RORERR |
| Registration | 1 | (CPTINFO,PTFINFOR)^DGAPI |
| 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 |
|---|---|---|
| SETPROC(DE,IENS,RORUPD,RORVALS) | ;
|
|
| INPROC(IEN45,RORTYPE,RORIBUF,RORSDT,ROREDT) | ; Get all inpatient procedures from PTF
|
|
| CHKDT(DATE,SDATE,EDATE) | ; Check dates - returns 1 if DATE is within SDATE-EDATE range
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("PTF" | INPROC+5!, INPROC+37!, INPROC+43, INPROC+49, INPROC+50, INPROC+52! |
| ^TMP("RORPTF" | INPROC+5!, INPROC+43!*, INPROC+45, INPROC+46, INPROC+47, INPROC+52! |
| Name | Line Occurrences |
|---|---|
| $$CHKDT | INPROC+18, INPROC+31, INPROC+48 |
| INPROC | SETPROC+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | INPROC+50 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| C | INPROC+2~ |
| DATE | INPROC+1~, CHKDT~, CHKDT+1 |
| DE | SETPROC~, SETPROC+2*, SETPROC+3 |
| EDATE | CHKDT~, CHKDT+1 |
| FLD | INPROC+1~, INPROC+20*, INPROC+21, INPROC+33*, INPROC+34 |
| IEN | INPROC+1~, INPROC+24*, INPROC+26, INPROC+34, INPROC+50*, INPROC+51 |
| IEN45 | INPROC~, INPROC+6*, INPROC+10, INPROC+13, INPROC+21, INPROC+23, INPROC+26, INPROC+34, INPROC+38*, INPROC+39 , INPROC+41, INPROC+42, INPROC+47, INPROC+51 |
| IENS | SETPROC~, SETPROC+4, INPROC+1~, INPROC+13*, INPROC+14, INPROC+16, INPROC+26*, INPROC+27, INPROC+29 |
| NODE | INPROC+1~ |
| PTIEN | INPROC+1~, INPROC+41*, INPROC+42, INPROC+47 |
| RC | INPROC+1~, INPROC+8*, INPROC+15*, INPROC+28*, INPROC+40* |
| REF401 | INPROC+2~, INPROC+10*, INPROC+11 |
| REF601 | INPROC+2~, INPROC+23*, INPROC+24 |
| ROR | INPROC+19!, INPROC+32! |
| ROR( | INPROC+20, INPROC+21, INPROC+33, INPROC+34 |
| ROR401 | INPROC+2~, INPROC+10* |
| ROR601 | INPROC+2~, INPROC+23* |
| RORBUF | SETPROC+1~, SETPROC+4, INPROC+1~, INPROC+12!, INPROC+25!, INPROC+37! |
| RORBUF( | SETPROC+9, SETPROC+10, SETPROC+14, SETPROC+15, INPROC+16, INPROC+29 |
| RORBUF(0 | SETPROC+5 |
| RORBUF(45 | INPROC+41 |
| RORCD | INPROC+2~, INPROC+50*, INPROC+51 |
| RORCPT | INPROC+2~, INPROC+49*, INPROC+50 |
| RORCPTCT | INPROC+2~, INPROC+44*, INPROC+51* |
| RORDATE | INPROC+1~, INPROC+16*, INPROC+17, INPROC+18, INPROC+21, INPROC+29*, INPROC+30, INPROC+31, INPROC+34, INPROC+46* , INPROC+48, INPROC+51 |
| ROREDT | INPROC~, INPROC+18, INPROC+31, INPROC+48 |
| RORIBUF | INPROC~, INPROC+4! |
| RORIBUF("CPT" | INPROC+51* |
| RORIBUF("ICD-401" | INPROC+21* |
| RORIBUF("ICD-601" | INPROC+34* |
| RORIBUF(0 | INPROC+8*, INPROC+15*, INPROC+21*, INPROC+28*, INPROC+34*, INPROC+40*, INPROC+51* |
| RORIEN | INPROC+1~, INPROC+11*, INPROC+13, INPROC+21 |
| RORMSG | INPROC+1~, INPROC+12!, INPROC+15, INPROC+25!, INPROC+28, INPROC+37!, INPROC+40 |
| RORMSG(0 | INPROC+15, INPROC+28, INPROC+40 |
| RORPTF | INPROC+2~, INPROC+44* |
| RORSDT | INPROC~, INPROC+18, INPROC+31, INPROC+48 |
| RORTYPE | SETPROC+1~, SETPROC+3*, SETPROC+4, SETPROC+6, SETPROC+11, INPROC~, INPROC+3*, INPROC+9, INPROC+36 |
| RORUPD | SETPROC~ |
| RORUPD("DSBEG" | SETPROC+4 |
| RORUPD("DSEND" | SETPROC+4 |
| RORVALS | SETPROC~ |
| RORVALS("PPTF" | SETPROC+10*, SETPROC+15* |
| S1 | SETPROC+7~, SETPROC+8*, SETPROC+9, SETPROC+10, SETPROC+12~, SETPROC+13*, SETPROC+14, SETPROC+15 |
| S2 | SETPROC+7~, SETPROC+8*, SETPROC+9*, SETPROC+10, SETPROC+12~, SETPROC+13*, SETPROC+14*, SETPROC+15 |
| SCT | SETPROC+7~, SETPROC+8*, SETPROC+10*, SETPROC+12~, SETPROC+13*, SETPROC+15* |
| SDATE | CHKDT~, CHKDT+1 |
| U | SETPROC+10, SETPROC+15, INPROC+21, INPROC+34, INPROC+50, INPROC+51 |
| Z | INPROC+2~, INPROC+45*, INPROC+46, INPROC+47 |