Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCAPMC22

SCAPMC22.m

Go to the documentation of this file. 
  1. SCAPMC22 ;ALB/REW - Team API's ; December 1, 1995
  1.  ;;5.3;Scheduling;**41,148**;AUG 13, 1993
  1.  ;;1.0
  1. INPTTP(DFN,SCPTTPA,SCINACT,SCERR) ;inactivate patient from a position (pt tm pos assgn - #404.43
  1.  ; input:
  1.  ;  DFN     = pointer to PATIENT file (#2)
  1.  ;  SCPTTPA   = pointer to pt team assign file (#404.43)
  1.  ;  SCINACT = date to inactivate [default=DT]
  1.  ;  SCERR = array NAME to store error messages.
  1.  ;          [ex. ^TMP("ORXX",$J)]
  1.  ;
  1.  ; Output:
  1.  ;  SCOK    = 1 if inactivation entry made to file 404.43, 0 ow
  1.  ;  SCERR() = Array of DIALOG file messages(errors) .
  1.  ;             Foramt:
  1.  ;  @SCERR@(0)=Number of erros, undefined if none
  1.  ;               Subscript: Sequential # from 1 to n
  1.  ;               Piece     Description
  1.  ;                 1       IEN of DIALOG file
  1.  N SCTP,SC,SCPARM,SCESEQ,SCLSEQ,SCOK,SCND
  1.  S SCOK=0
  1.  G:'$$OKDATA APTTPQ ;setup/check variables
  1.  S SCND=$G(^SCPT(404.43,SCPTTPA,0))
  1.  G:SCINACT<$P(SCND,U,3) APTTPQ
  1.  S SCTP=+$P(SCND,U,2)
  1.  IF '$$PTTPACT(DFN,SCTP,SCINACT,.SCERR) D  G APTTPQ
  1.  .S SCOK=0
  1.  .S SCPARM("INACTIVE DATE")=SCINACT
  1.  .S SCPARM("MESSAGE")="Patient not assigned to position on date"
  1.  .D ERR^SCAPMCU1(SCESEQ,4044201,.SCPARM,"",.SCERR)
  1.  ELSE  D
  1.  .S SCOK=1
  1.  .S SC($J,404.43,SCPTTPA_",",.04)=SCINACT
  1.  .S SC($J,404.43,SCPTTPA_",",.08)=$G(DUZ,.5)
  1.  .D NOW^%DTC
  1.  .S SC($J,404.43,SCPTTPA_",",.09)=%
  1.  .D UPDATE^DIE("","SC($J)","SCIEN",.SCERR)
  1.  .I $D(@SCERR@("DIERR")) S SCOK=0
  1. APTTPQ Q SCOK
  1.  ;
  1. PTTPACT(DFN,SCTP,SCDT,SCERR) ;is patient assigned to a position on a given date-time?
  1.  N SCPTDTS,SCTPLST,SCOK,SCTM
  1.  S SCTM=$P($G(^SCTM(404.57,SCTP,0)),U,2)
  1.  S SCOK=0
  1.  S (SCPTDTS("BEGIN"),SCPTDTS("END"))=SCDT
  1.  IF $$TPPT^SCAPMC23(DFN,"SCPTDTS",,,,,0,"SCTPLST",.SCERR) S:$D(SCTPLST("SCTP",SCTM,SCTP)) SCOK=1
  1.  Q SCOK
  1.  ;
  1. OKDATA() ;check/setup variables - return 1 if ok/0 if error
  1.  N SCOK
  1.  S SCOK=1
  1.  D INIT^SCAPMCU1(.SCOK)
  1.  IF '$D(^DPT(DFN,0))!('$D(^SCPT(404.43,SCPTTPA,0))) D  S SCOK=0
  1.  . S SCPARM("PATIENT")=$G(DFN,"Undefined")
  1.  . S SCPARM("Pt POSITION Asnt")=$G(SCPTTPA,"Undefined")
  1.  . D ERR^SCAPMCU1(SCESEQ,4045101,.SCPARM,"",.SCERR)
  1.  S:'$G(SCACT) SCACT=DT
  1.  S:'$G(SCINACT) SCINACT=DT
  1.  Q SCOK
  1.  ;
  1. 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
  1.  ; input:
  1.  ;  DFN     = pointer to PATIENT file (#2)
  1.  ;  SCTP    = pointer to POSITION file (#404.57)
  1.  ;  SCINACT = date to inactivate [default=DT]
  1.  ;  SCERR = array NAME to store error messages.
  1.  ;          [ex. ^TMP("ORXX",$J)]
  1.  ;
  1.  ; Output:
  1.  ;  SCOK    = 1 if inactivation entry made to file 404.42, 0 ow
  1.  ;  SCERR() = Array of DIALOG file messages(errors) .
  1.  ;             Foramt:
  1.  ;  @SCERR@(0)=Number of erros, undefined if none
  1.  ;               Subscript: Sequential # from 1 to n
  1.  ;               Piece     Description
  1.  ;                 1       IEN of DIALOG file
  1.  ;
  1.  N SCACT
  1.  S SCACT=+$O(^SCPT(404.43,"ADFN",DFN,SCTP,""),-1)
  1.  S SCPTTP=+$O(^SCPT(404.43,"ADFN",DFN,SCTP,SCACT,0))
  1.  Q $$INPTTP(.DFN,.SCPTTP,.SCINACT,.SCERR)