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

SCAPMC7.m

Go to the documentation of this file.
  1. SCAPMC7 ;ALB/REW - Team APIs:INPTTM ; 5 Jul 1995
  1. ;;5.3;Scheduling;**41,148**;AUG 13, 1993
  1. ;;1.0
  1. INPTTM(DFN,SCPTTM,SCINACT,SCERR) ;inactivate patient from a team (pt tm assgn - #404.42
  1. ; input:
  1. ; DFN = pointer to PATIENT file (#2)
  1. ; SCPTTM = pointer to pt team assign file (#404.42)
  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. N SCTM,SC,SCPARM,SCESEQ,SCLSEQ,SCOK
  1. S SCOK=0
  1. G:'$$OKDATA APTTMQ ;setup/check variables
  1. S SCTM=+$P($G(^SCPT(404.42,SCPTTM,0)),U,3)
  1. IF '$$PTTMACT(DFN,SCTM,SCINACT,.SCERR) D G APTTMQ
  1. .S SCOK=0
  1. .S SCPARM("INACTIVE DATE")=SCINACT
  1. .D ERR^SCAPMCU1(SCESEQ,4044201,.SCPARM,"",.SCERR)
  1. ELSE D
  1. .S SCOK=1
  1. .S SC($J,404.42,SCPTTM_",",.09)=SCINACT
  1. .S SC($J,404.42,SCPTTM_",",.13)=$G(DUZ,.5)
  1. .D NOW^%DTC
  1. .S SC($J,404.42,SCPTTM_",",.14)=%
  1. .D UPDATE^DIE("","SC($J)","SCIEN",.SCERR)
  1. .I $D(@SCERR@("DIERR")) S SCOK=0
  1. APTTMQ Q SCOK
  1. ;
  1. PTTMACT(DFN,SCTM,SCDT,SCERR) ;is patient assigned to a team on a given date-time?
  1. N SCTMDTS,SCTMLST,SCOK
  1. S SCOK=0
  1. S (SCTMDTS("BEGIN"),SCTMDTS("END"))=SCDT
  1. IF $$TMPT^SCAPMC3(DFN,"SCTMDTS","","SCTMLST",.SCERR) S:$D(SCTMLST("SCTM",SCTM)) SCOK=1
  1. Q SCOK
  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.42,SCPTTM,0))) D S SCOK=0
  1. . S SCPARM("PATIENT")=$G(DFN,"Undefined")
  1. . S SCPARM("Pt TEAM Asnt")=$G(SCPTTM,"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. INPTATM(DFNA,SCTM,SCFIELDA,SCACT,SCERR,SCNEWTM,SCOLDTM,SCBADTM) ;list of patients assigned to a team (404.42)
  1. ; input: as per ACPTTM (above with the following change:)
  1. ; DFNA = is the literal value of a patient array (e.g. "scpt"
  1. ; there is at least one scpt(dfn)="" defined
  1. ; SCNEWTM = Subset of DFNA that was NEWLY assigned to Team [returned]
  1. ; SCOLDTM = Subset of DFNA that was already assigned -Team [returned]
  1. ; SCBADTP = Subset of DFNA that was NOT assigned to Team [returned]
  1. ; Note: The above three arrays return data in a user determined array
  1. ; output: Count of Patients:
  1. ; 1 2 3 4
  1. ; total assigned^newly assigned^assigned prior^not assigned
  1. N DFN,SCNEWCNT,SCOLDCNT,SCBADCNT,SCX
  1. S (SCNEWCNT,SCOLDCNT,SCBADCNT)=0
  1. S DFN=0 F S DFN=$O(@DFNA@(DFN)) Q:'DFN D
  1. .S SCPTTM=$$HISTPTTM^SCAPMCU2(DFN,.SCTM,.SCACT)
  1. .S SCX=$S(SCPTTM:$$INPTTM(.DFN,.SCPTTM,.SCFIELDA,.SCACT,.SCERR),1:0)
  1. .; SCX = ien of 404.42^new?
  1. .IF $P(SCX,U,2) D ;newly assigned
  1. ..S SCNEWCNT=SCNEWCNT+1
  1. ..S @SCNEWTM@(DFN)=+SCX ;scnewtm
  1. .IF $P(SCX,U,1)&('$P($G(SCX),U,2)) D ;old
  1. ..S SCOLDCNT=SCOLDCNT+1
  1. ..S @SCOLDTM@(DFN)=+SCX
  1. .IF 'SCX D
  1. ..S @SCBADTM@(DFN)=""
  1. ..S SCBADCNT=SCBADCNT+1
  1. Q (SCNEWCNT+SCOLDCNT)_U_SCNEWCNT_U_SCOLDCNT_U_SCBADCNT
  1. ;
  1. INPTSCTM(DFN,SCTM,SCINACT,SCERR) ;inactivate patient from a team - using last pt team assignment - Note: This uses pointer to 404.51 (team) not 404.42 as input
  1. ; input:
  1. ; DFN = pointer to PATIENT file (#2)
  1. ; SCTM = pointer to TEAM file (#404.51)
  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.42,"AIDT",DFN,SCTM,""))
  1. S SCPTTM=+$O(^SCPT(404.42,"AIDT",DFN,SCTM,SCACT,0))
  1. Q $$INPTTM(.DFN,.SCPTTM,.SCINACT,.SCERR)