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?
|
