Routine: NUPABCL

Information

NUPABCL ;PHOENIX/KLD; 7/1/99; ADMISSION ASSESSMENT BROKER CALL UTILITIES; 1/11/12 8:37 AM

Source file <NUPABCL.m>

Name	Comments	DBIA/ICR reference
ST
LOOK(RESULT,PAR)	;Lookup data using ^DIC
DLOOK(RESULT,F,V,TYPE,SCR,IND)	;Lookup using the IND xref for when the .01 is a date or pointer.
WPSET(RESULT,F,N,D)	;Stick data into a word processing field one line at a time
WPGET(RESULT,F,IEN,N)	;Get data from a word processing field
FILE(RESULT,DIE,DA,F,V,S)	;File info - F=Field, V=Value, S=# of slashes
NEW(RESULT,DIC,X,XX)	;Add a new entry to a file
NEWN(RESULT,DIC,X,S)	;Add new entry if none already exists
NEWN1
ADD
SCREEN(R,S)
SCRERR
DATE(RESULT,X)	;Return a date from a string
LIST(RESULT,F,S,M)	;List of all entries from a file.
LIST2(RESULT,F,FD,S)	;List of all entries from a file including other fields
LISTGET
PF(R,X,FP)
CDTR(RESULT)	;Current date/time (regular format)
CDTF(RESULT)	;Current date/time (fileman format)
FDRD(R,Y)	;Convert Fileman date to regular date
RDFD(R,X)	;Convert regular date to Fileman date
D(Y)
D1(Y)
T1(Y)
P(R,ZTIO,PR)	;Print an array to printer
P1
VD(R,X)	;Is data valid for a Fileman file's field? X=File #^Field #^Data