PXRRADUT ;ISL/PKR - Age and date utilities for PCE reports. ;6/26/97
Source file <PXRRADUT.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
AGE(TYPE,NEWLINE) | ;Get a patient age.
|
|
AGEHELP(TYPE) | ;Write the age selection help.
|
|
BDHELP(HTEXT,TYPE) | ;Write the beginning date help.
|
|
DOBFA(AGE) | ;Given an age in years return the corresponding date of birth.
|
|
EDHELP(HTEXT,TYPE) | ;Write the ending date help.
|
|
FDR(BDATE,EDATE,TYPE,BHTEXT,EHTEXT) | ;Get a future date range.
|
|
FBDATE | ;Select the beginning date.
|
|
FEDATE | ;Select the ending date.
|
|
GDR(BDATE,EDATE,TYPE,BHTEXT,EHTEXT) | ;Get a general date range.
|
|
GBDATE | ;Select the beginning date.
|
|
GEDATE | ;Select the ending date.
|
|
HELP(HTEXT) | ;General help text routine. Write out the text in the HTEXT
|
|
PDR(BDATE,EDATE,TYPE,BHTEXT,EXTEXT) | ;Get a past date range.
|
|
PBDATE | ;Select the beginning date.
|
|
PEDATE | ;Select the ending date.
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^UTILITY($J | HELP+4!, HELP+11, HELP+12, HELP+13! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AGE | DOBFA~, DOBFA+2, DOBFA+3 |
BDATE | FDR~, FBDATE+12*, FEDATE+1, FEDATE+3, GDR~, GBDATE+11*, GEDATE+1, GEDATE+3, PDR~, PBDATE+11* , PEDATE+1, PEDATE+3 |
BDHTEXT | BDHELP+3~, BDHELP+6 |
BDHTEXT(1 | BDHELP+4* |
BDHTEXT(2 | BDHELP+5* |
BHTEXT | FDR~, GDR~, PDR~ |
DIR | AGE+8!, FBDATE+9!, FEDATE+5!, GBDATE+8!, GEDATE+5!, PBDATE+8!, PEDATE+5! |
DIR("?" | AGE+5*, FBDATE+6*, FEDATE+3*, GBDATE+5*, GEDATE+3*, PBDATE+5*, PEDATE+3* |
DIR("??" | AGE+6*, FBDATE+7*, FEDATE+4*, GBDATE+6*, GEDATE+4*, PBDATE+6*, PEDATE+4* |
DIR("A" | AGE+4*, FBDATE+4*, FEDATE+2*, GBDATE+4*, GEDATE+2*, PBDATE+4*, PEDATE+2* |
DIR("B" | FBDATE+5* |
DIR(0 | AGE+3*, FBDATE+3*, FEDATE+1*, GBDATE+3*, GEDATE+1*, PBDATE+3*, PEDATE+1* |
DIROUT | AGE+9, FBDATE+2!, FBDATE+10, FEDATE+6, FEDATE+11!, GBDATE+2!, GBDATE+9, GEDATE+6, GEDATE+11!, PBDATE+2! , PBDATE+9, PEDATE+6, PEDATE+11! |
DIRUT | AGE+2!, FBDATE+2!, FEDATE+11!, GBDATE+2!, GEDATE+11!, PBDATE+2!, PEDATE+11! |
DIWF | HELP+2~, HELP+3* |
DIWL | HELP+2~, HELP+3* |
DIWR | HELP+2~, HELP+3* |
DOB | DOBFA+1~, DOBFA+3*, DOBFA+4 |
DT | DOBFA+3, FBDATE+3, PBDATE+3, PEDATE+1 |
DTOUT | AGE+2!, AGE+9*, AGE+10, FBDATE+2!, FBDATE+10*, FBDATE+11, FEDATE+6*, FEDATE+7, FEDATE+11!, GBDATE+2! , GBDATE+9*, GBDATE+10, GEDATE+6*, GEDATE+7, GEDATE+11!, PBDATE+2!, PBDATE+9*, PBDATE+10, PEDATE+6*, PEDATE+7 , PEDATE+11! |
DUOUT | AGE+2!, AGE+10, FBDATE+2!, FBDATE+11, FEDATE+8, FEDATE+11!, GBDATE+2!, GBDATE+10, GEDATE+8, GEDATE+11! , PBDATE+2!, PBDATE+10, PEDATE+8, PEDATE+11! |
EDATE | FDR~, FEDATE+9*, GDR~, GEDATE+9*, PDR~, PEDATE+9* |
EDHTEXT | EDHELP+3~, EDHELP+6 |
EDHTEXT(1 | EDHELP+4* |
EDHTEXT(2 | EDHELP+5* |
EHTEXT | FDR~, GDR~ |
EXTEXT | PDR~ |
HTEXT | BDHELP~, BDHELP+1, BDHELP+2, EDHELP~, EDHELP+1, EDHELP+2, HELP~ |
HTEXT( | HELP+6, HELP+7 |
IC | HELP+2~, HELP+5*, HELP+6*, HELP+7, HELP+10*, HELP+11*, HELP+12 |
NEWLINE | AGE~, AGE+7 |
TYPE | AGE~, AGE+4, AGEHELP~, AGEHELP+1, BDHELP~, BDHELP+4, EDHELP~, EDHELP+4, FDR~, FBDATE+4 , FEDATE+2, GDR~, GBDATE+4, GEDATE+2, PDR~, PBDATE+4, PEDATE+2 |
U | AGE+6, FBDATE+7, FEDATE+4, GBDATE+6, GEDATE+4, PBDATE+6, PEDATE+4 |
X | AGE+1~, FBDATE+1~, GBDATE+1~, HELP+7*, PBDATE+1~ |
Y | AGE+1~, AGE+11, FBDATE+1~, FBDATE+12, FBDATE+13, FEDATE+9, FEDATE+10, GBDATE+1~, GBDATE+11, GBDATE+12 , GEDATE+9, GEDATE+10, PBDATE+1~, PBDATE+11, PBDATE+12, PEDATE+9, PEDATE+10 |