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 file <SDWLRP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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: |
|
| OUTPUT1(SDWLOUT,SDWLDFN) | ;
|
|
| OUTPUT3(SDWLOUT,SDWLDFN) | ;Disposition Data
; input: ; DFN = Patient Internal ID ; ; output: Subscript 'DIS' ; Date Dispositioned^Disposition by^Disposition |
|
| 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 |
|
| NEW | ;Get IEN from ^SDWL(409.3,IEN,0).
|
|
| SB0 | ||
| SB1 | ||
| FDA | ;Get data from SDWLSTR string and set FDA.
|
|
| VAL | ;Validate fields
|
|
| SET | ;Input data to file ^SDWL(409.3,IEN,0).
|
|
| DEL | ||
| INPUTDP(SDWLRES,SDWLSTR) | ;Set disposition in Wait List Patient file
|
|
| FDA1 | ;
|
|
| VAL1 | ;
|
|
| SET1 | ;
|
|
| DEL1 | ;
|
| 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 |
| FileNo | Call Tags |
|---|---|
| ^SDWL(409.3 - [#409.3] | Classic Fileman Calls, FIND^DIC |
