SCRPM21U ;ALB/PDR - POSITION REASSIGNMENT UTILITIES ; AUG 1998
Source file <SCRPM21U.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PREVDAY(DAY) | ||
| PCPCASN(FASIEN,SCTP) | ||
| UPDATPOS(POSAIEN,SCERR) | ; UPDATE EXISTING POSITION ASSIGNMENT PARAMETERS, AND ENSURE NO FUTURE DISCHARGE
|
|
| TMEXIST(DFN,SCTM,SCSD,TMAIEN) | ;
; returns 1 if current/future assignment exists else 0 ; conserves IEN of the des tm asgn if it exists |
|
| TMXISTQ | ||
| TMPT(SCX) | ;
|
|
| DELPOS(DISIEN,POSAIEN) | ||
| DISPOS(DISIEN,POSAIEN) | ||
| CREATPOS(POSAIEN,TMAIEN) | ||
| DELTEAM(TMAIEN) | ; DELETE A TEAM ASSIGNMENT
|
|
| DISTEAM(TMAIEN) | ; DISCHARGE A TEAM ASSIGNMENT
; TMAIEN = SOURCE TEAM IEN |
|
| CREATETM(DFN,SCTMTO,SCACT,TMAIEN) | ||
| TMACTIV(TMAIEN,PCPOS) | ||
| XALLPOS(FASIEN,POSAIEN) | ; DISCHARGE ALL POSITIONS FROM THE "from" TEAM
; FASIEN = source position assignment IEN ; POSAIEN = destination position assignment IEN, used just for error reporting here ; this only occurs when the "from" pos and "to" pos are both Primary care, ; or the "from" team is PC and the "to" pos is PC. ; Rational is that a patient can't have more than one PC team |
|
| GETPOSTM(POSAIEN) | ||
| FUPOSASN(POSAIEN,SCACT) | ; IS THIS A FUTURE POSITION ASSIGNMENT?
|
|
| FUTMASN(TMAIEN,SCACT) | ||
| FUTTMDIS(TMAIEN,SCACT) | ||
| DPOSPROB(SCPTTPA,SCACT) | ; handle disposition of existing destination POSITION
|
|
| DTMPROB(SCPTTMA,SCACT) |
| FileNo | Call Tags |
|---|---|
| ^SCPT(404.42 - [#404.42] | Classic Fileman Calls |
| ^SCPT(404.43 - [#404.43] | Classic Fileman Calls |
