BPSOSU1 ;BHAM ISC/FCS/DRS/FLS/DLF - copied for ECME ;03/07/08 10:34
Source file <BPSOSU1.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 |
|---|---|---|
| DATE(PROMPT,DFLT,OPT,SDATE,EDATE,%DT,TIMEOUT) | ;EP -
|
|
| FM2EXT(Y) | ;EP
|
|
| FM3EXT(Y) | ;EP IHS/SD/lwj 8/5/02 clone of FM2EXT- accommodates 5.1 type clms
|
|
| FM2MDY(Y) | ;EP
|
|
| EXT2FM(X) | ;
|
|
| NOWFM() | ;EP
|
|
| NOWEXT() | ;EP - External form of $$NOWFM
|
|
| CDTFM(X1,X2) | ;EP - BPSER*,BPSES02
|
|
| JULDATE(DT) | ;
|
|
| DTR(AA,AB,ADEF,BDEF,T) | ;EP - GET THE DATE RANGE (beginning and ending dates)
; IN: ; AA = PROMPT for BEGINNING DATE ; AB = PROMPT for ENDING DATE ; ADEF = DEFAULT date for BEGINNING DATE ; BDEF = DEFAULT date for ENDING DATE ; T = whether TIME is allowed as entry, and if REQUIRED ; (If T="T" then TIME is allowed; is REQ'd if T="R"). ; OUT: ; Beginning Date^Ending Date in 7digit FileMan format ; If user enters "^" then out=0 |
|
| DTR1 | ; -- Get beginning date
|
|
| DTP(AA,DEF) | ;EP - *** GET A SINGLE PAST DATE, TIME NOT ALLOWED ***
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | FM2EXT+1, FM2EXT+2, FM3EXT+3, FM3EXT+4, NOWEXT+1, DTP+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NOWFM+1~, NOWFM+3 |
| %DT | DATE~, DATE+9, EXT2FM+1~, DTR+12~, DTR1+1*, DTR1+5, DTR1+9*, DTR1+13, DTP+7~, DTP+11* , DTP+14! |
| %DT("A" | DTP+12* |
| %DT("B" | DTP+13* |
| %H | NOWFM+1~, CDTFM+1~, JULDATE+1~ |
| %I | NOWFM+1~ |
| %T | JULDATE+1~ |
| %Y | JULDATE+1~ |
| AA | DTR~, DTR1+2, DTP~, DTP+12 |
| AB | DTR~, DTR1+10 |
| ADEF | DTR~, DTR1+4 |
| BDEF | DTR~, DTR1+12 |
| BEGDT | DTR+12~, DTR1+5*, DTR1+6, DTR1+13, DTR1+16, DTR1+17 |
| DATE | DTP+7~, DTP+20*, DTP+21 |
| DATE("Y" | DTP+20*, DTP+21 |
| DEF | DTP~, DTP+13 |
| DEFAULT | DTR+12~, DTR1+4*, DTR1+5, DTR1+12*, DTR1+13 |
| DFLT | DATE~, DATE+12 |
| DIR | DATE+2~ |
| DIR("A" | DATE+11* |
| DIR("B" | DATE+12* |
| DIR("T" | DATE+13* |
| DIR(0 | DATE+6*, DATE+10* |
| DIROUT | DATE+2~, DATE+15 |
| DIRUT | DATE+2~ |
| DT | JULDATE~, JULDATE+2, JULDATE+3, DTP+9 |
| DTIME | DTR1+5, DTR1+13 |
| DTOUT | DATE+2~, DATE+15, DTP+17 |
| DUOUT | DATE+2~, DATE+15 |
| EDATE | DATE~, DATE+8 |
| ENDDT | DTR+12~, DTR1+13*, DTR1+14, DTR1+16, DTR1+17 |
| OPT | DATE~, DATE+6 |
| PROMPT | DATE~, DATE+4, DATE+11, DTR+12~, DTR1+2*, DTR1+3*, DTR1+5, DTR1+10*, DTR1+11*, DTR1+13 |
| SDATE | DATE~, DATE+7 |
| T | DTR~, DTR1+1, DTR1+3, DTR1+9, DTR1+11 |
| TIMEOUT | DATE~, DATE+13 |
| U | DTR+12~, DTR+13*, DTR1+17, DTP+8*, DTP+10*, DTP+21 |
| X | DATE+2~, EXT2FM~, EXT2FM+2, NOWFM+1~, CDTFM+1~, CDTFM+5, JULDATE+1~, JULDATE+5*, JULDATE+6, DTR+12~ |
| X1 | CDTFM~, CDTFM+2, JULDATE+1~, JULDATE+3* |
| X2 | CDTFM~, CDTFM+3, JULDATE+1~, JULDATE+3* |
| XDATA | DATE+2~, DATE+7*, DATE+8*, DATE+9*, DATE+10 |
| Y | DATE+2~, DATE+15, FM2EXT~, FM2EXT+3, FM3EXT~, FM3EXT+1, FM3EXT+2*, FM3EXT+5, FM2MDY~, FM2MDY+1 , FM2MDY+2, EXT2FM+1~, EXT2FM+4, NOWEXT+1~*, DTR+12~, DTP+7~, DTP+16, DTP+20 |
