Routine: NUPABCL

Information

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

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	6	(,DD)^%DT NOW^%DTC FIND^DIC FILE^DICN ^DIE ^DIM
Kernel	2	^%ZISC ^%ZTLOAD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 13

Package	Total	Caller Graph
Patient Assessment Documentation	13	NUPA DLOOK NUPA FILE NUPA LIST NUPA LIST2 NUPA LOOKUP NUPA NEW NUPA NEW IF NONE NUPA PAST/FUTURE DATE NUPA PRINT NUPA SCREEN NUPA WP GET NUPA WP SET NUPABCL2

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	DATE+1, RDFD+1
DD^%DT	FDRD+1, D
NOW^%DTC	NEW+2, PF+3, CDTR+1, CDTF+1
^%ZISC	P1+3
^%ZTLOAD	P+3
FIND^DIC	LOOK+9
FILE^DICN	ADD+3
^DIE	FILE+4
^DIM	SCREEN+2

Used in RPC

RPC Name	Call Tags
NUPA PAST/FUTURE DATE	PF
NUPA WP GET	WPGET
NUPA WP SET	WPSET
NUPA SCREEN	SCREEN
NUPA DLOOK	DLOOK
NUPA LIST	LIST
NUPA LIST2	LIST2
NUPA FILE	FILE
NUPA LOOKUP	LOOK
NUPA NEW	NEW
NUPA NEW IF NONE	NEWN
NUPA PRINT	P

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	SCREEN+1
^DD(	LIST2+5, VD+1
^DIC - [#1]	DLOOK+4, DLOOK+15, LIST+3, LIST+4
^TMP("DIERR"	LOOK+12, LOOK+13
^TMP("DILIST"	LOOK+10, LOOK+11, LOOK+12!, LOOK+13*, LOOK+14!
^TMP($J	DLOOK+3!, DLOOK+13, DLOOK+14, DLOOK+15, DLOOK+18, WPGET+2!, WPGET+3!, WPGET+4, LIST+3!, LIST+5 , LIST2+3!, LIST2+6, LISTGET+3, LISTGET+5, LISTGET+6, LISTGET+7, LISTGET+8, LISTGET+9, LISTGET+10!

Label References

Name	Line Occurrences
$$D	DLOOK+13
$$D1	CDTR+1
$$T1	CDTR+1
ADD	NEW+3, NEWN1+2
LISTGET	LIST+5, LIST2+6
NEWN1	NEWN1+5
RDFD	PF+3

Naked Globals

Name	Field # of Occurrence
^(	LISTGET, LISTGET+3, LISTGET+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW+1~, NEW+2, PF+3~, PF+4, CDTR+1~, CDTF+1~
%DT	DATE+1~, RDFD+1~
C34	DLOOK+2~*, DLOOK+5, DLOOK+9, DLOOK+17
CHKDT	PF+3~, PF+4
CNT	DLOOK+2~, DLOOK+13, DLOOK+14, DLOOK+15, LIST+3~, LISTGET+7, LISTGET+9
D	WPSET~, WPSET+2, WPSET+3*, WPSET+5
DA	FILE~, FILE+2, FILE+3*
DA(	FILE+2*
DA(1	ADD, ADD+1, ADD+2*
DA(2	ADD+1, ADD+2
DA(3	ADD+2*
DD	ADD+3!
DIC	NEW~, NEW+1*, NEWN~, NEWN1, ADD, ADD+1, ADD+2
DIC(0	ADD+3*
DIE	FILE~
DO	ADD+3!
DOLRT	NEWN+1~, NEWN1+3*, NEWN1+4
DR	FILE+2~, FILE+4*
DT	WPSET+4
DUZ	LOOK+3
F	DLOOK~, DLOOK+4, DLOOK+15, WPSET~, WPSET+2, WPSET+3, WPSET+4, WPSET+5, WPGET~, WPGET+3 , FILE~, FILE+3, FILE+4, LIST~, LIST+3, LIST+4, LIST2~, LISTGET, LISTGET+3, VD+1~
FD	LIST2~, LIST2+3*, LIST2+4, LIST2+5
FLAG	DLOOK+2~, DLOOK+11, DLOOK+12, DLOOK+13
FP	PF~, PF+3*, PF+4
G	VD+1~*
G1	DLOOK+2~, DLOOK+7*, DLOOK+8, DLOOK+9, DLOOK+13, DLOOK+14, DLOOK+16, DLOOK+17
G2	DLOOK+2~, DLOOK+11*, DLOOK+12, DLOOK+15, DLOOK+16, DLOOK+17
GLO1	DLOOK+2~, DLOOK+4, DLOOK+5, DLOOK+6, DLOOK+7, DLOOK+8, DLOOK+9*, DLOOK+10, DLOOK+16, DLOOK+17
GLO2	DLOOK+2~, DLOOK+10, DLOOK+11, DLOOK+12, DLOOK+16, DLOOK+17*
H	T1~*, T1+2
I	LOOK+6~, DLOOK+2~, DLOOK+7, FILE+2~, FILE+3, LIST+3~, LIST2+3~, LIST2+4, LIST2+5, LISTGET , LISTGET+5, LISTGET+6, LISTGET+7, LISTGET+8, LISTGET+9, P1, P1+1, P1+2
IEN	WPGET~, WPGET+3
II	DLOOK+2~, DLOOK+11, LIST+3~, LIST2+3~, LISTGET+3, LISTGET+4, LISTGET+6, LISTGET+8*, LISTGET+9
IND	DLOOK~, DLOOK+3*, DLOOK+4
IO	P1
IOF	P1+1
M	LIST~, LIST+4, LIST2+3, LISTGET+2
N	WPSET~, WPSET+2, WPSET+3, WPSET+4, WPSET+5, WPGET~, WPGET+3
NUPA	SCREEN+1~, SCRERR
OFD	LIST2+3~, LIST2+5*, LISTGET+4
OFD(	LIST2+5*, LISTGET+4
OFDV	LISTGET~, LISTGET+6
OFDV(	LISTGET+4*, LISTGET+6
PAR	LOOK~
PAR(	LOOK+6*
PAR("F"	LOOK+4, LOOK+9
PAR("FD"	LOOK+7, LOOK+8, LOOK+9
PAR("IND"	LOOK+3, LOOK+4, LOOK+9
PAR("NUM"	LOOK+5*, LOOK+9
PAR("SCR"	LOOK+9
PAR("V"	LOOK+3*, LOOK+9
PR	P~
PR(	P1, P1+1*, P1+2
R	SCREEN~, SCREEN+2, SCREEN+3, SCRERR, PF~, PF+3, PF+4, FDRD~, FDRD+1, RDFD~ , RDFD+1, P~, P+3, VD~, VD+2*
RESULT	LOOK~, LOOK+14, DLOOK~, DLOOK+18, WPSET~, WPSET+2, WPSET+5, WPGET~, WPGET+4, FILE~ , FILE+4, NEW~, NEW+1, NEWN~, NEWN+1, NEWN1+4, ADD+3, DATE~, DATE+1, LIST~ , LIST+5, LIST2~, LIST2+6, CDTR~, CDTR+1, CDTF~, CDTF+1*
S	FILE~, FILE+3, NEWN~, NEWN+2, NEWN1+3, SCREEN~, SCREEN+2, SCREEN+3, LIST~, LIST+4* , LIST2~, LIST2+3*, LISTGET+1
SCR	DLOOK~, DLOOK+2*, DLOOK+12
TYPE	DLOOK~, DLOOK+3*, DLOOK+4, DLOOK+5, DLOOK+8, DLOOK+9, DLOOK+13, DLOOK+14, DLOOK+16, DLOOK+17
U	DLOOK+15, WPSET+4, FILE+2, LIST2+4, LIST2+5, LISTGET+3, LISTGET+4, LISTGET+5, LISTGET+6, LISTGET+9 , VD+1
V	DLOOK~, DLOOK+4, DLOOK+5, DLOOK+7, FILE~, FILE+3*, FILE+4
X	DLOOK+12, NEW~, NEW+1, NEW+2, NEWN~, NEWN+1, NEWN1, NEWN1+1, SCREEN+1~, SCREEN+2 , DATE~, LIST+3~, LISTGET, LISTGET+5, LISTGET+6, PF~, PF+3, RDFD~, VD~, VD+1 , VD+2
XX	NEW~, NEW+1*
Y	NEWN+1~, NEWN+2, NEWN1, NEWN1+2, NEWN1+4, ADD+3, DATE+1, FDRD~, FDRD+1, RDFD+1 , D~, D1~, T1~, T1+1, T1+2
ZTDESC	P+1~, P+2*
ZTDTH	P+1~, P+2*
ZTIO	P~
ZTRTN	P+1~, P+2*
ZTSAVE	P+1~
ZTSAVE("PR("	P+2*
ZTSK	P+1~, P+3

Customize PDF page

Package: Patient Assessment Documentation