Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SDWLRP1

Package: Scheduling

Routine: SDWLRP1


Information

SDWLRP1 ;;IOFO BAY PINES/TEH - WAITING LIST - RPC;06/28/2002 ; 26 Aug 2002 1:25 PM ; Compiled April 16, 2007 10:15:05

Source Information

Source file <SDWLRP1.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 2

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All