Routine: ABSPOSU1

Information

ABSPOSU1 ; IHS/FCS/DRS - copied for POS ; [ 09/04/2002 12:58 PM ]

Source file <ABSPOSU1.m>

Package	Total	Call Graph
VA Fileman	4	^%DT (,C,NOW)^%DTC DT^DICRW ^DIR
Pharmacy Point of Sale	1	$$DATE^ABSPOSU1

Package	Total	Caller Graph
Pharmacy Point of Sale	36	ABSP5E1 ABSPDE1 ABSPECZ3 ABSPER10 ABSPER1A ABSPER20 ABSPER2A ABSPER30 ABSPER3A ABSPER40 ABSPER4A ABSPES01 ABSPES02 ABSPOS31 ABSPOS32 ABSPOS33 ABSPOS34 ABSPOS35 ABSPOSCE ABSPOSE2 ABSPOSF ABSPOSL1 ABSPOSM1 ABSPOSMF ABSPOSMG ABSPOSMH ABSPOSMZ ABSPOSP1 ABSPOSQL ABSPOSR1 ABSPOSR4 ABSPOSRS ABSPOSS1 ABSPOSU1 ABSPOSU7 ABSPOSX

Name	Comments	DBIA/ICR reference
CDTFM(X1,X2)	;EP - ABSPER*,ABSPES02
FM3EXT(Y)	;EP IHS/SD/lwj 8/5/02 clone of FM2EXT- accomodates 5.1 type clms
DATE(PROMPT,DFLT,OPT,SDATE,EDATE,%DT,TIMEOUT)	;EP -
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
FM2EXT(Y)	;EP
JULDATE(DT)	;
FM2MDY(Y)	;EP
EXT2FM(X)	;
DTP(AA,DEF)	;EP - * GET A SINGLE PAST DATE, TIME NOT ALLOWED *
NOWEXT()	;EP - External form of $$NOWFM
NOWFM()	;EP
DTR1	; -- Get beginning date

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FM2EXT+1, FM2EXT+2, FM3EXT+3, FM3EXT+4, NOWEXT+1, DTP+22

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+13* , DTP+16!
%DT("A"	DTP+14*
%DT("B"	DTP+15*
%H	NOWFM+1~, CDTFM+1~, JULDATE+1~
%I	NOWFM+1~
%T	JULDATE+1~
%Y	JULDATE+1~
AA	DTR~, DTR1+2, DTP~, DTP+14
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+22*, DTP+23
DATE("Y"	DTP+22*, DTP+23
DEF	DTP~, DTP+15
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+19
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+23
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+18, DTP+22