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
Print Page as PDF
Routine: SCAPMC22

Package: Scheduling

Routine: SCAPMC22


Information

SCAPMC22 ;ALB/REW - Team API's ; December 1, 1995

Source Information

Source file <SCAPMC22.m>

Entry Points

Name Comments DBIA/ICR reference
INPTTP(DFN,SCPTTPA,SCINACT,SCERR) ;inactivate patient from a position (pt tm pos assgn - #404.43
; input:
; DFN = pointer to PATIENT file (#2)
; SCPTTPA = pointer to pt team assign file (#404.43)
; SCINACT = date to inactivate [default=DT]
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
APTTPQ
PTTPACT(DFN,SCTP,SCDT,SCERR) ;is patient assigned to a position on a given date-time?
OKDATA() ;check/setup variables - return 1 if ok/0 if error
INPTSCTP(DFN,SCTP,SCINACT,SCERR) ;inactivate patient from a position - using last pt position assignment - Note: This uses pointer to 404.57 (position) not 404.43 as input
; input:
; DFN = pointer to PATIENT file (#2)
; SCTP = pointer to POSITION file (#404.57)
; SCINACT = date to inactivate [default=DT]
; SCERR = array NAME to store error messages.
; [ex. ^TMP("ORXX",$J)]
Info |  Source |  Entry Points