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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SCRPM21U

Package: Scheduling

Routine: SCRPM21U


Information

SCRPM21U ;ALB/PDR - POSITION REASSIGNMENT UTILITIES ; AUG 1998

Source Information

Source file <SCRPM21U.m>

Entry Points

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)

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SCPT(404.42 - [#404.42] Classic Fileman Calls
^SCPT(404.43 - [#404.43] Classic Fileman Calls
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call