BPSOSU1 ;BHAM ISC/FCS/DRS/FLS/DLF - copied for ECME ;03/07/08 10:34
Source file <BPSOSU1.m>
| 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 ***
|
