Routine: AGGRPAT

Information

AGGRPAT ;VNGT/HS/ALA-Recent Patient save and retrieve ; 16 May 2010 1:07 PM

Source file <AGGRPAT.m>

Package	Total	Call Graph
Kernel	2	^%ZTER ($$FMADD,$$FMTE,$$NOW)^XLFDT

Name	Comments	DBIA/ICR reference
SAVE(DATA,NUM,DIEN,INFO)	; EP - AGG SAVE RECENT PATIENT LIST ; Input ; NUM - Max number of enties to keep ; DIEN - (DFN) Patient's IEN ; INFO - extra data to be stored ; ; Output: ; DATA = name of global (passed by reference) in which the data is stored ; RESULT = 1 (unlock will always succeed) ; RESULT = -1 if invalid patient IEN (shouldn't happen) ; or ; BMXSEC - if M error encountered ;
ERR	;
GET(DATA,FAKE)	; EP - AGG RECENT PATIENT RETRIEVE ; Input ; FAKE - extra 'blank' parameter required by BMXNET async 'feature' ; ; Output: ; DATA = name of global (passed by reference) in which the data is stored

RPC Name	Call Tags
AGG SAVE PAT LIST	SAVE
AGG GET PAT LIST	GET

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ERR+3
^TMP("AGGRPAT"	GET+12, SAVE+15
^XTMP("AGGRPAT"	GET+19, SAVE+26

Name	Field # of Occurrence
>> BMXSEC	ERR+4*
CNT	GET+10~, GET+19, GET+28, SAVE+24~, SAVE+36, SAVE+41*, SAVE+43
DATA	GET~, GET+12, GET+13, GET+17, GET+27, GET+29, SAVE~, SAVE+15, SAVE+16, SAVE+23 , SAVE+50, SAVE+51, ERR+5
DIEN	GET+10~, GET+23, GET+24, GET+26, GET+27, SAVE~, SAVE+31, SAVE+34
DT	SAVE+27
DUZ	GET+19, SAVE+26
DUZ(2	GET+25, SAVE+31, SAVE+34, SAVE+40, SAVE+46
ERRDTM	ERR+2~, ERR+3*, ERR+4
FAKE	GET~
I	SAVE+24~, SAVE+43*
IEN	SAVE+24~, SAVE+31, SAVE+38, SAVE+39, SAVE+40, SAVE+45*, SAVE+46, SAVE+47
II	GET+10~, GET+17, GET+27, GET+28, GET+29, SAVE+13~, SAVE+23, SAVE+50, SAVE+51, ERR+5*
INFO	GET+10~, GET+26*, GET+27, SAVE~, SAVE+34
>> LOC	GET+25*, GET+26
NUM	SAVE~, SAVE+19*, SAVE+43
QFL	GET+10~, GET+19, GET+22, GET+24, GET+28
RESULT	SAVE+24~, SAVE+25, SAVE+49, SAVE+50
SDT	GET+10~, GET+19, GET+22, GET+24, GET+26, GET+27, SAVE+24~, SAVE+29, SAVE+30, SAVE+31 , SAVE+33, SAVE+34, SAVE+36, SAVE+37, SAVE+38, SAVE+39, SAVE+40, SAVE+44, SAVE+45, SAVE+46 , SAVE+47
SGLOB	GET+10~, GET+19, GET+22, GET+24, GET+26, SAVE+26, SAVE+27, SAVE+30, SAVE+31, SAVE+34 , SAVE+37, SAVE+38, SAVE+39, SAVE+40, SAVE+44, SAVE+45, SAVE+46, SAVE+47
U	SAVE+27
UID	GET+10~, GET+11, GET+12, SAVE+13~, SAVE+14, SAVE+15
Y	ERR+2~, ERR+3*
>> ZTSK	GET+11, SAVE+14