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 |