Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: SCRPMPSP

Package: Scheduling

Routine: SCRPMPSP


Information

SCRPMPSP ;ALB/PDR - Team APIs:ACPTTP ; AUG 1998

Source Information

Source file <SCRPMPSP.m>

Entry Points

Name Comments DBIA/ICR reference
ACPTTP(DFN,SCTP,SCFIELDA,SCACT,FASIEN,SCERR,SCYESTM,SCMAINA) ;add/edit a patient to a position (pt TP assgn - #404.43
; input:
; DFN = pointer to PATIENT file (#2)
; SCTP = pointer to TEAM POSTION file (#404.57) (DESTINATION POSITION)
; SCFIELDA= array of extra field entries - scfielda('fld#')=value for 404.43
; SCACT = date to activate [default=DT]
; FASIEN = "FROM" position assignment IEN
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
; SCYESTM = Should team assignment be made, if none active now?[1=YES]
; SCMAINA= array of extra field entries for 404.42
APTTPQ ; All done
OKDATA()
INITVARS
GETPLST() ; get patient position list
POSEXIST(SCTM,SCTP,POSAIEN,TMIEN) ;
; if active pos asgn, return ien
ERROR(TXT,IEN,ENUM)
T ;;
1 ;;Data Integrity error.;;
2 ;;Unable to get positions list.;;
3 ;;Unable to activate existing position.;;
4 ;;Unable to activate existing team.;;
5 ;;Unable to discharge source position.;;
6 ;;Unable to create destination team.;;
7 ;;Unable to create destination position.;;
8 ;;Unable to discharge all positions for PC source team.;;
9 ;;Unable to discharge PC source team.;;
10 ;;Patient is being reassigned by another PCMM process.;;
SAVPARMS ; save params for debugging
; NVS - comment out the quit to save path/variable data
SETP(BR) ; SET PATH INDICATOR FOR DEBUGGING
; NVS - comment out the quit to save path/variable data
SRCTEAM()
DSTTEAM()
PCPOS() ; IS THIS A PC POSITION?
Info |  Source |  Entry Points