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 |
Package | Total | Caller Graph |
---|---|---|
Clinical Case Registries | 1 | RORUPDUT |
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 |