SCRPMPSP ;ALB/PDR - Team APIs:ACPTTP ; AUG 1998
Source file <SCRPMPSP.m>
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?
|