Routine: SDWLRP1

Package	Total	Call Graph
VA Fileman	7	H^%DTC FIND^DIC FILE^DICN (,UPDATE,VALS)^DIE ^DIK ($$IENS,CLEAN,FDA)^DILF $$EXTERNAL^DILFD
Enrollment Application System	1	$$ENROLL^EASWTAPI
Kernel	1	$$TF^XUAF4

Package	Total	Caller Graph
Scheduling	2	SCMCWAIT SDWLE3

Entry Points

Name	Comments	DBIA/ICR reference
FDA	;Get data from SDWLSTR string and set FDA.
DEL1	;
SB0
SB1
VAL	;Validate fields
OUTPUT1(SDWLOUT,SDWLDFN)	;
OUTPUT3(SDWLOUT,SDWLDFN)	;Disposition Data ; input: ; DFN = Patient Internal ID ; ; output: Subscript 'DIS' ; Date Dsipositioned^Disposition by^Disposition
INPUTDP(SDWLRES,SDWLSTR)	;Set disposition in Wait List Patient file
INPUT(SDWLRES,SDWLSTR)	; ; Input: ; SDWLSTR = location of data = ^TMP("SDWLG",$J,i,0) ; (R) = Required Field ; (O) = Optional ; ; .01 2 3 5 6 ; DFN (R)^TYPE (R)^SPECIFIC TEAM (O)^SPECIFIC POSITION (O)^ORGINATING USER (R)^COMMENT (O)^CLINIC (O)^INTRA FLAG (O)^REJ FLAG (O)^MULTI TEAM FLAG (O) ; 1 2 3 4 5 6 7 8 9 10
SET	;Input data to file ^SDWL(409.3,IEN,0).
DEL
SET1	;
OUTPUT(SDWLOUT,SDWLDFN)	;-FULL ; input: ; DFN = Patient ; Lookup uses Wait List data file (409.3) and returns the following data. ; ; output: ; SCOUT = location of data = ^TMP("SDWLG",$J,i,0) ; for i=1:number of records returned:
NEW	;Get IEN from ^SDWL(409.3,IEN,0).
VAL1	;
FDA1	;

External References

Name	Field # of Occurrence
H^%DTC	NEW+28, SB1+8
FIND^DIC	OUTPUT+33, OUTPUT3+11
FILE^DICN	NEW+11
^DIE	NEW+14, NEW+15, NEW+16, SB0+5, SB0+6, SB0+7, SB0+8
UPDATE^DIE	SET+1, SET1+1
VALS^DIE	VAL+2, VAL1+2
^DIK	DEL, DEL1+1
$$IENS^DILF	FDA+5, FDA1+2
CLEAN^DILF	OUTPUT+34, OUTPUT3+12, INPUT+21, INPUTDP+18
FDA^DILF	FDA+7, FDA1+6
$$EXTERNAL^DILFD	FDA1+4
$$ENROLL^EASWTAPI	NEW+27
$$TF^XUAF4	SB1+4

Used in RPC

RPC Name	Call Tags
SD W/L RETRIVE FULL DATA	OUTPUT
SD W/L CREATE FILE	INPUT
SD W/L RETRIVE BRIEF	OUTPUT1
SD W/L RETRIVE MEDICAL REVIEW	OUTPUT2
SD W/L RETRIVE DISPOSITION	OUTPUT3
SD W/L CREATE DISPOSITION	INPUTD
SD W/L CREATE M/R	INPUTMR

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SDWL(409.3 - [#409.3]	Classic Fileman Calls, FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCN(391.91 - [#391.91]	SB1, SB1+1, SB1+2
^SCTM(404.51 - [#404.51]	NEW+4, NEW+6
^SCTM(404.57 - [#404.57]	NEW+4
^SDWL(409.3 - [#409.3]	OUTPUT+30, OUTPUT+31, OUTPUT1+11, OUTPUT1+12, OUTPUT1+13, OUTPUT1+15, OUTPUT3+8, OUTPUT3+9, INPUTDP+13, INPUTDP+14
^TMP("DIERR"	INPUT+15!
^TMP("DILIST"	OUTPUT+35
^TMP("SDWLIN"	INPUT+15!, INPUT+21!, FDA+8, INPUTDP+18!, FDA1+7
^TMP("SDWLOUT"	INPUT+15!, INPUT+21!, VAL+4, INPUTDP+18!, VAL1+4
^TMP("SDWLRP1"	OUTPUT1+11, OUTPUT1+15, OUTPUT1+16

Label References

Name	Line Occurrences
DEL	INPUT+18, INPUT+20
DEL1	INPUTDP+15, INPUTDP+16, INPUTDP+17
FDA	INPUT+18
FDA1	INPUTDP+15
NEW	INPUT+17
SB0	NEW+26, NEW+27
SB1	NEW+25
SET	INPUT+20
SET1	INPUTDP+17
VAL1	INPUTDP+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	INPUT+14~, NEW+28, SB1+8
DA	NEW+1~, NEW+13, SB0+5, DEL, DEL1+1
DA(1	DEL1+1*
DIC	NEW+1~, NEW+11*, SB0+9!
DIC(0	NEW+11*
DIE	NEW+1~, NEW+13, NEW+16, SB0+5*, SB0+9!
DIERR	OUTPUT+29~, OUTPUT+34, OUTPUT3+7~, OUTPUT3+12, INPUT+14~, VAL+1~, VAL1+1~
DIK	NEW+1~, DEL, DEL1+1
DIR	SB0+9!
DR	NEW+1~, NEW+14, NEW+15, NEW+16, SB0+5, SB0+6, SB0+7, SB0+8*, SB0+9!
DT	FDA1+1
SDINTRA	NEW+1~, NEW+8*
SDMULTI	NEW+1~, NEW+8*
SDREJ	NEW+1~, NEW+8*
SDWLCNT	OUTPUT1+10, OUTPUT1+14, OUTPUT1+15, OUTPUT1+17!
SDWLD	SB0+9!, SB1+6, SB1+8
SDWLDA	OUTPUT+31, OUTPUT+32, OUTPUT1+12, OUTPUT1+13, OUTPUT1+15, OUTPUT1+17!, OUTPUT3+7~, OUTPUT3+9, OUTPUT3+10, INPUT+22! , NEW+12, NEW+13, SB0+5, FDA+5, SET+3, DEL, DEL+1, INPUTDP+11~, INPUTDP+13, FDA1+1* , FDA1+2, DEL1+1
SDWLDAX	OUTPUT+29~, OUTPUT+32, OUTPUT+33, OUTPUT3+10, OUTPUT3+11
SDWLDB	NEW+25, NEW+28, SB1~, SB1+8*
SDWLDDT	INPUTDP+11~, FDA1+1*, FDA1+3
SDWLDE	NEW+25, NEW+28, SB0+9!, SB1+8
SDWLDET	NEW+28*, NEW+29, SB0+9!
SDWLDFN	OUTPUT~, OUTPUT+30, OUTPUT+31, OUTPUT1~, OUTPUT1+11, OUTPUT1+12, OUTPUT1+17!, OUTPUT3~, OUTPUT3+7~, OUTPUT3+8 , OUTPUT3+9, INPUT+22!, NEW+7, NEW+12, NEW+27, SB1, SB1+1, INPUTDP+11~, INPUTDP+14, FDA1+1*
SDWLDISP	INPUTDP+11~, FDA1+1*, FDA1+3
SDWLDS	NEW+28*, SB0+9!
SDWLDTF	SB1+7, SB1+8*, SB1+10!
SDWLDTF(0	SB1+8
SDWLDTF(9999999	SB1+6*
SDWLDUZ	INPUT+22!, NEW+12, INPUTDP+11~, FDA1+1, FDA1+3
SDWLE	NEW+25, NEW+26, NEW+28, NEW+29, NEW+30, SB0+1, SB0+2, SB0+3, SB0+9!, SB1* , SB1+8, SB1+9
SDWLEE	NEW+25, SB0+1, SB0+2, SB0+9!, SB1+8, SB1+9
SDWLF	INPUT+14~, FDA+1*, FDA+7, FDA1+4, FDA1+6
SDWLFLD	INPUT+14~, FDA+3, FDA+4, FDA+7, FDA1+3*, FDA1+4, FDA1+6
SDWLFLG	INPUT+14~, FDA+5*
SDWLI	INPUT+14~, FDA+2, FDA+3, FDA1+3
SDWLIEN	OUTPUT1+10, OUTPUT1+17!, FDA+5, FDA+7, FDA1+2*, FDA1+6
SDWLIN	INPUT+14~, NEW+4, NEW+6
SDWLMSG	INPUT+14~, FDA+6, FDA1+5
SDWLMSG("DIERR"	VAL+3, SET+2, VAL1+3, SET1+2
SDWLOUT	OUTPUT~, OUTPUT+35!, OUTPUT1~, OUTPUT1+16, OUTPUT3~, OUTPUT3+13!*
SDWLRES	OUTPUT+30, OUTPUT+34, OUTPUT1+11, OUTPUT3+7~, OUTPUT3+8, OUTPUT3+12, OUTPUT3+13, INPUT~, INPUT+16, INPUT+18 , INPUT+20, NEW+11, FDA+6, FDA+8, VAL+3, SET+2, SET+3, DEL+1, INPUTDP~, INPUTDP+12* , INPUTDP+13, INPUTDP+14, INPUTDP+15, INPUTDP+16, INPUTDP+17, FDA1+5, FDA1+7, VAL1+3, SET1+2, SET1+3* , DEL1+2*
SDWLRES("SDWLIN"	FDA+8, FDA1+7
SDWLRES("SDWLOUT"	VAL+4, VAL1+4
SDWLRNE	NEW+27, NEW+30, SB0, SB0+1, SB0+3, SB0+9!
SDWLRNED	INPUT+14~, NEW+25, NEW+27, NEW+28
SDWLSTR	INPUT~, INPUT+16, NEW+2, NEW+3, NEW+5, NEW+6, NEW+7, NEW+8, NEW+11, NEW+12 , FDA+2, INPUTDP~, INPUTDP+12, FDA1+1
SDWLTP	INPUT+14~, NEW+3*, NEW+4
SDWLVAL	INPUT+14~, FDA+2, FDA+7, FDA1+3, FDA1+4*, FDA1+6
SDWLX	INPUT+14~, SB1+1*, SB1+2, SB1+6
SDWLY	INPUT+14~, SB1+2*, SB1+4, SB1+6
U	OUTPUT1+13, NEW+2, NEW+3, NEW+4, NEW+5, NEW+6, NEW+7, NEW+8, NEW+11, NEW+12 , NEW+27, SB0, SB1+4, SB1+6, FDA1+1
X	INPUT+14~, NEW+11, NEW+28, SB1+8*
Y	INPUT+14~, INPUT+22!, NEW+11, NEW+12

Customize PDF page

Package: Scheduling

Routine: SDWLRP1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: