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

SCMCHLX.m

Go to the documentation of this file. 
  1. SCMCHLX ;BP/DJB - PCMM HL7 EVENT File Xref APIs ; 10 Dec 2002  8:44 PM
  1.  ;;5.3;Scheduling;**177,264,272,1015**;May 01, 1999;Build 21
  1.  ;
  1.  ;Reference routine: SCDXFX01
  1. AACXMIT(IFN,SET,OLDEVPTR) ;Logic for AACXMIT* xrefs on PCMM HL7 EVENT
  1.  ;                 file (#404.48).
  1.  ;
  1.  ; Input: IFN: Pointer to entry in file
  1.  ;        SET: 1 = Set xref
  1.  ;             0 = Kill xref
  1.  ;            -1 = Check value of TRANSMISSION REQUIRED field (#.04).
  1.  ;                   If "YES"- Set xref
  1.  ;                   If "NO" - Kill xref
  1.  ;   OLDEVPTR: Previous value of EVENT POINTER field (#.07).
  1.  ;             Only valid when KILLing xref is due to data in this
  1.  ;             field changing.
  1.  ;Output: None
  1.  ;
  1.  ;Check input
  1.  Q:'$G(IFN)
  1.  Q:'$D(^SCPT(404.48,IFN))
  1.  S:$G(SET)="" SET=-1
  1.  S OLDEVPTR=+$G(OLDEVPTR)
  1.  ;
  1.  ;Declare variables
  1.  NEW EVPTR,EVENT,ND,XMIT
  1.  ;
  1.  ;Get data
  1.  S ND=$G(^SCPT(404.48,IFN,0)) ;....Get zero node
  1.  S XMIT=+$P(ND,"^",3) ;............Transmission Required field
  1.  S EVPTR=$P(ND,"^",7) ;............Event Pointer field
  1.  I 'SET,OLDEVPTR S EVPTR=OLDEVPTR ;Use old Event Pointer if killing
  1.  ;                                 due to value changing.
  1.  Q:'EVPTR  ;.......................Quit if no Event Pointer
  1.  ;
  1.  ;Set/Kill logic based on value of TRANSMISSION REQUIRED
  1.  I SET=-1 S SET=$S(XMIT=1:1,1:0)
  1.  ;
  1.  ;Set/Kill xref
  1.  I SET S ^SCPT(404.48,"AACXMIT",EVPTR,IFN)="" ;..Set xref
  1.  E  KILL ^SCPT(404.48,"AACXMIT",EVPTR,IFN) ;.....Kill xref
  1.  Q
  1.  ;
  1. TXREF(IFN) ;Logic for AEVENT* xrefs on TEAM file. Create entry in
  1.  ;  PCMM HL7 EVENT file.
  1.  ;
  1.  ;***THIS CALL NOT USED***
  1.  ;bp/djb 6/15/99
  1.  ;No longer sending Primary Care Team data to Austin.
  1.  ;
  1.  D TXREF^SCMCHLX1($G(IFN))
  1.  Q
  1.  ;
  1. PTXREF(IFN,OLDTYPE) ;Logic for AEVENT* xrefs on PATIENT TEAM ASSIGN file.
  1.  ;           Create entry in PCMM HL7 EVENT file.
  1.  ;
  1.  ;***THIS CALL NOT USED***
  1.  ;bp/djb 6/15/99
  1.  ;No longer sending Primary Care Team data to Austin.
  1.  ;
  1.  D PTXREF^SCMCHLX1($G(IFN),$G(OLDTYPE))
  1.  Q
  1.  ;
  1. PTPXREF(IFN,OLDROLE) ;Logic for AEVENT* xrefs on PATIENT TEAM POSITION
  1.  ;            ASSIGN file. Create entry in PCMM HL7 EVENT file.
  1.  D PTPXREF^SCMCHLX1($G(IFN),$G(OLDROLE))
  1.  Q
  1.  ;
  1. POSHXREF(IFN) ;Logic for AEVENT* xrefs on POSITION ASSIGNMENT HISTORY file.
  1.  ;     Create entry in PCMM HL7 EVENT file.
  1.  D POSHXREF^SCMCHLX1($G(IFN))
  1.  Q
  1.  ;
  1. PREHXREF(IFN) ;Logic for AEVENT* xrefs on PRECEPTOR ASSIGNMENT HISTORY file.
  1.  ;     Create entry in PCMM HL7 EVENT file.
  1.  D PREHXREF^SCMCHLX1($G(IFN))
  1.  Q
  1. POSBXREF(IFN,FILE) ;Logic for Bookable Hour Cross reference
  1.  ;Create entry in PCMM HL7 EVENT file
  1.  D POSBXREF^SCMCHLX1(+$G(IFN),$G(FILE))
  1.  Q