Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDEC36

SDEC36.m

Go to the documentation of this file.
  1. SDEC36 ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
  1. ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
  1. ;
  1. Q
  1. ;
  1. ;COLLECT WAITLIST FOR GIVEN RESOURCE - RPC
  1. WAITLIST(SDECY,SDECRES) ;COLLECT WAITLIST DATA
  1. ;WAITLIST(SDECY,SDECRES) external parameter tag in SDEC
  1. ; .SDECY = returned pointer to list of waitlist data
  1. ; SDECRES = resource code - pointer to ^SDEC(409.831 (SDEC RESOURCE)
  1. ; called by SDEC WAITLIST remote procedure
  1. ;RETURN:
  1. ;Returns a Global Array in which each array entry contains wait list data separated by ^:
  1. ; 1. HOSPITAL_LOC_IEN
  1. ; 2. WAIT_LIST_IEN
  1. ; 3. PATIENT_IEN
  1. ; 4. PATIENT_NAME
  1. ; 5. HOME_PHONE
  1. ; 6. WORK_PHONE
  1. ; 7. CHART
  1. ; 8. DATE_ADDED
  1. ; 9. REASON
  1. ;10. PRIORITY
  1. ;11. PROVIDER
  1. ;12. RECALL_DATE
  1. ;13. COMMENT
  1. N SDECI,SDECNOD,SDECRESN,SDECSC,SDECTMP,BSDWL,SDECWLD,SDECWLN,CI,WL
  1. S SDECI=0
  1. K ^TMP("SDEC",$J)
  1. S SDECY="^TMP(""SDEC"","_$J_")"
  1. S ^TMP("SDEC",$J,0)="T00020ERRORID"_$C(30)
  1. ; 1 2 3 4 5
  1. S SDECTMP="I00020HOSPITAL_LOC_IEN^I00020WAIT_LIST_IEN^I00020PATIENT_IEN^T00030PATIENT_NAME^T00030HOME_PHONE^"
  1. ; 6 7 8 9 10 11
  1. S SDECTMP=SDECTMP_"T00020WORK_PHONE^T00030CHART^D00020DATE_ADDED^T00030REASON^T00020PRIORITY^I00020PROVIDER^"
  1. ; 12 13
  1. S SDECTMP=SDECTMP_"D00020RECALL_DATE^T00250COMMENT"_$C(30)
  1. S ^TMP("SDEC",$J,0)=SDECTMP_$C(31)
  1. Q ;TODO - this is looking at ^BSDWL - needs to be changed to look at ^SDWL
  1. ;
  1. ERROR ;
  1. D ERR("VISTA Error")
  1. Q
  1. ;
  1. ERR(SDECERR) ;Error processing
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=SDECERR_$C(30,31)
  1. Q