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

BKMVIST5.m

Go to the documentation of this file. 
  1. BKMVIST5 ;PRXM/HC/JGH - Save 90459 data to V-Files and 90451.1 ; 10 Jun 2005  4:05 PM
  1.  ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011
  1.  ;
  1.  ; Update PCC, V-Files, Visit File, using HMS
  1.  Q
  1. IMMUN(DFN,VISIT,DATABASE) ; EP - File Immun Visit data from File 90459
  1.  ; Input vars:
  1.  ;  DFN - Pat IEN
  1.  ;  VISIT - Visit ID
  1.  ;  DATABASE - 'PCC'
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N APCDADD,DA1,DA0,DA,IIENS,ERFLAG,LOT,REACT,SERIES,TYPE,VISITDT,BKMTMP
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Init
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  ; Immun subfiles
  1.  S IMMUN=""
  1.  F  S IMMUN=$O(^BKM(90459,DA1,23,"B",IMMUN)) Q:IMMUN=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,23,"B",IMMUN,DA0)) Q:DA0=""  D
  1.  . . S DA=DA0,DA(1)=DA1
  1.  . . S IIENS=$$IENS^DILF(.DA)
  1.  . . S TYPE=$$GET1^DIQ(90459.2323,IIENS,.015,"I")
  1.  . . Q:TYPE=""
  1.  . . S SERIES=$$GET1^DIQ(90459.2323,IIENS,.04,"I")
  1.  . . S LOT=$$GET1^DIQ(90459.2323,IIENS,.05,"I")
  1.  . . S REACT=$$GET1^DIQ(90459.2323,IIENS,.06,"I")
  1.  . . ; Add V-File entry
  1.  . . S VISITDT=$P(IMMUN,".",1)
  1.  . . S VISIT=$G(^TMP("BKMVIST4 DATES",$J,VISITDT))
  1.  . . ; Create PCC Visit
  1.  . . I VISIT="" S APCDADD=1,(^TMP("BKMVIST4 DATES",$J,VISITDT),VISIT)=$$CRVISIT3^BKMVIST4(VISITDT,DFN)
  1.  . . I VISIT="" W !,"Unable to create PCC Visit!" S BKMTMP=$$PAUSE^BKMIXX3() Q
  1.  . . ; File PCC Immun V-File entry
  1.  . . S:DATABASE="PCC" ERFLAG=$$CRVFILE2^BKMVIST4("IMMUN",DFN,VISIT,TYPE,IIENS,IMMUN,"[APCDALVR 9000010.11 (ADD)]")
  1.  . . I ERFLAG="" W !,"Unable to create V-File entry!" S BKMTMP=$$PAUSE^BKMIXX3()
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  Q
  1.  ;
  1. DELIMMUN ; EP - Delete 90459.2323 Immun subfiles
  1.  ; Input vars:  n/a
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N IMMUN,DA,DA0,DA1,DIK
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Immun subfiles
  1.  S IMMUN=""
  1.  F  S IMMUN=$O(^BKM(90459,DA1,23,"B",IMMUN)) Q:IMMUN=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,23,"B",IMMUN,DA0)) Q:DA0=""  D
  1.  . . K DA
  1.  . . S DA(1)=DA1,DA=DA0
  1.  . . ; Delete subfile
  1.  . . S DIK="^BKM(90459,"_DA(1)_",23,"
  1.  . . D ^DIK
  1.  Q
  1.  ;
  1. LAB(DFN,VISIT,DATABASE)   ; EP - File Lab Visit data from File 90459
  1.  ; Input vars:
  1.  ;  DFN - Pat IEN
  1.  ;  VISIT - Visit ID
  1.  ;  DATABASE - 'PCC'
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N DA,DA0,DA1,LABDT,LABDATE,LABTYPE,LIENS,ERFLAG,BKMTMP
  1.  N LABLOW,LABRESL,LABUNIT,VISITDT,LABHIGH
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Init
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  ; Lab subfiles
  1.  S LABDT=""
  1.  F  S LABDT=$O(^BKM(90459,DA1,13,"B",LABDT)) Q:LABDT=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,13,"B",LABDT,DA0)) Q:DA0=""  D
  1.  . . S DA=DA0,DA(1)=DA1
  1.  . . S LIENS=$$IENS^DILF(.DA)
  1.  . . S LABDATE=LABDT
  1.  . . S LABTYPE=$$GET1^DIQ(90459.1313,LIENS,.02,"I")
  1.  . . Q:LABTYPE?." "
  1.  . . S LABRESL=$$GET1^DIQ(90459.1313,LIENS,.03,"I")
  1.  . . S LABUNIT=$$GET1^DIQ(90459.1313,LIENS,1101,"I")
  1.  . . S LABLOW=$$GET1^DIQ(90459.1313,LIENS,1104,"I")
  1.  . . S LABHIGH=$$GET1^DIQ(90459.1313,LIENS,1105,"I")
  1.  . . ; Add V-File entry
  1.  . . S VISITDT=$P(LABDT,".",1)
  1.  . . S VISIT=$G(^TMP("BKMVIST4 DATES",$J,VISITDT))
  1.  . . ; Create PCC Visit
  1.  . . I VISIT="" S APCDADD=1,(^TMP("BKMVIST4 DATES",$J,VISITDT),VISIT)=$$CRVISIT3^BKMVIST4(VISITDT,DFN)
  1.  . . I VISIT="" W !,"Unable to create PCC Visit!" S BKMTMP=$$PAUSE^BKMIXX3() Q
  1.  . . ; File PCC Lab V-File entry
  1.  . . S:DATABASE="PCC" ERFLAG=$$CRVFILE2^BKMVIST4("LAB",DFN,VISIT,LABTYPE,LIENS,LABDATE,"[APCDALVR 9000010.09 (ADD)]")
  1.  . . I ERFLAG="" W !,"Unable to create V-File entry!" S BKMTMP=$$PAUSE^BKMIXX3()
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  Q
  1.  ;
  1. DELLAB ; EP - Delete 90459.1313 Lab subfiles
  1.  ; Input vars:  n/a
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N DA,DA1,DA0,DIK,LAB
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Lab subfiles
  1.  S LAB=""
  1.  F  S LAB=$O(^BKM(90459,DA1,13,"B",LAB)) Q:LAB=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,13,"B",LAB,DA0)) Q:DA0=""  D
  1.  . . K DA
  1.  . . S DA(1)=DA1,DA=DA0
  1.  . . ; Delete subfile
  1.  . . S DIK="^BKM(90459,"_DA(1)_",13,"
  1.  . . D ^DIK
  1.  Q
  1.  ;
  1. MED(DFN,VISIT,DATABASE) ; EP - File Med Visit data from File 90459
  1.  ; Input vars:
  1.  ;  DFN - Pat IEN
  1.  ;  VISIT - Visit ID
  1.  ;  DATABASE - 'PCC'
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N APCDADD,DA,DA1,DA0,MED,MEDTYPE,MEDDATE,MEDTYPE,X,G,ERFLAG,BKMTMP
  1.  N MEDDAYS,MEDDT,MEDQTY,MEDSIQ,MIENS,MSRDATE,MSRTYPE,MSRVALUE,VISITDT
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Init
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  ; Med subfiles
  1.  S MEDDT=""
  1.  F  S MEDDT=$O(^BKM(90459,DA1,14,"B",MEDDT)) Q:MEDDT=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,14,"B",MEDDT,DA0)) Q:DA0=""  D
  1.  . . S DA=DA0,DA(1)=DA1
  1.  . . S MIENS=$$IENS^DILF(.DA)
  1.  . . S MEDDATE=MEDDT
  1.  . . S MEDTYPE=$$GET1^DIQ(90459.1414,MIENS,.02,"I")
  1.  . . Q:MEDTYPE?." "
  1.  . . S MEDQTY=$$GET1^DIQ(90459.1414,MIENS,.03,"I")
  1.  . . S MEDSIQ=$$GET1^DIQ(90459.1414,MIENS,.04,"I")
  1.  . . S MEDDAYS=$$GET1^DIQ(90459.1414,MIENS,.07,"I")
  1.  . . ; Add V-File entry
  1.  . . S VISITDT=$P(MEDDT,".",1)
  1.  . . S VISIT=$G(^TMP("BKMVIST4 DATES",$J,VISITDT))
  1.  . . ; Create PCC Visit
  1.  . . I VISIT="" S APCDADD=1,(^TMP("BKMVIST4 DATES",$J,VISITDT),VISIT)=$$CRVISIT3^BKMVIST4(VISITDT,DFN)
  1.  . . I VISIT="" W !,"Unable to create PCC Visit!" S BKMTMP=$$PAUSE^BKMIXX3() Q
  1.  . . ; File PCC Med V-File entry
  1.  . . S:DATABASE="PCC" ERFLAG=$$CRVFILE2^BKMVIST4("MED",DFN,VISIT,MEDTYPE,MIENS,MEDDATE,"[APCDALVR 9000010.14 (ADD)]")
  1.  . . I ERFLAG="" W !,"Unable to create V-File entry!" S BKMTMP=$$PAUSE^BKMIXX3()
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  Q
  1.  ;
  1. DELMED ; EP - Delete 90459.1414 Med subfiles
  1.  ; Input vars:  n/a
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N DA,DA1,DA0,DIK,MED
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Med subfiles
  1.  S MED=""
  1.  F  S MED=$O(^BKM(90459,DA1,14,"B",MED)) Q:MED=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,14,"B",MED,DA0)) Q:DA0=""  D
  1.  . . K DA
  1.  . . S DA(1)=DA1,DA=DA0
  1.  . . ; Delete subfile
  1.  . . S DIK="^BKM(90459,"_DA(1)_",14,"
  1.  . . D ^DIK
  1.  Q
  1.  ;
  1. XAM(DFN,VISIT,DATABASE) ; EP - File Exam Visit data from File 90459
  1.  ; Input vars:
  1.  ;  DFN - Pat IEN
  1.  ;  VISIT - Visit ID
  1.  ;  DATABASE - 'PCC'
  1.  ; Init
  1.  N APCDADD,XAMDATE,XAMTYPE,XAMVALUE,ERFLAG,DA,DA0,DA1,IENS,VISITDT,XAM,BKMTMP
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Init
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  ; Exam subfiles
  1.  S XAM=""
  1.  F  S XAM=$O(^BKM(90459,DA1,17,"B",XAM)) Q:XAM=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,17,"B",XAM,DA0)) Q:DA0=""  D
  1.  . . S DA=DA0,DA(1)=DA1
  1.  . . S IENS=$$IENS^DILF(.DA)
  1.  . . S XAMDATE=XAM
  1.  . . Q:XAMDATE=""
  1.  . . S XAMTYPE=$$GET1^DIQ(90459.1717,IENS,.02,"I")
  1.  . . Q:XAMTYPE=""
  1.  . . S XAMVALUE=$$GET1^DIQ(90459.1717,IENS,.04,"I")
  1.  . . ;PRXM/HC/BHS - Remove as field is not required to file
  1.  . . ;Q:XAMVALUE=""
  1.  . . ; Add V-File entry
  1.  . . S VISITDT=$P(XAM,".",1)
  1.  . . S VISIT=$G(^TMP("BKMVIST4 DATES",$J,VISITDT))
  1.  . . ; Create PCC Visit
  1.  . . I VISIT="" S APCDADD=1,(^TMP("BKMVIST4 DATES",$J,VISITDT),VISIT)=$$CRVISIT3^BKMVIST4(VISITDT,DFN)
  1.  . . I VISIT="" W !,"Unable to create PCC Visit!" S BKMTMP=$$PAUSE^BKMIXX3() Q
  1.  . . ; File PCC Exam V-File entry
  1.  . . S:DATABASE="PCC" ERFLAG=$$CRVFILE2^BKMVIST4("XAM",DFN,VISIT,XAMTYPE,XAMVALUE,XAMDATE,"[APCDALVR 9000010.13 (ADD)]")
  1.  . . I ERFLAG="" W !,"Unable to create V-File entry!" S BKMTMP=$$PAUSE^BKMIXX3()
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  Q
  1.  ;
  1. DELXAM ; EP - Delete 90459.1717 Exam subfiles
  1.  ; Input vars:  n/a
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N DA,DA1,DA0,DIK,XAM
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Exam subfiles
  1.  S XAM=""
  1.  F  S XAM=$O(^BKM(90459,DA1,17,"B",XAM)) Q:XAM=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,17,"B",XAM,DA0)) Q:DA0=""  D
  1.  . . K DA
  1.  . . S DA(1)=DA1,DA=DA0
  1.  . . ; Delete subfile
  1.  . . S DIK="^BKM(90459,"_DA(1)_",17,"
  1.  . . D ^DIK
  1.  Q
  1.  ;
  1. MSR(DFN,VISIT,DATABASE) ; EP - File Measurement Visit data from File 90459
  1.  ; Input vars:
  1.  ;  DFN - Pat IEN
  1.  ;  VISIT - Visit ID
  1.  ;  DATABASE - 'PCC'
  1.  ; Init
  1.  N APCDADD,DMSR,MSR,DA0,DA,DA1,IENS,MSRDATE,MSRVALUE,MSRTYPE,ERFLAG,VISITDT,BKMTMP
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Init
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  ; Measurement subfiles
  1.  S DMSR=""
  1.  F  S DMSR=$O(^BKM(90459,DA1,19,"B",DMSR)) Q:DMSR=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,19,"B",DMSR,DA0)) Q:DA0=""  D
  1.  . . S DA=DA0,DA(1)=DA1
  1.  . . S IENS=$$IENS^DILF(.DA)
  1.  . . S MSRVALUE=$$GET1^DIQ(90459.1919,IENS,.04,"I")
  1.  . . S MSRDATE=DMSR
  1.  . . S MSRTYPE=$$GET1^DIQ(90459.1919,IENS,.02,"I")
  1.  . . I MSRVALUE?." "!(MSRDATE?." ")!(MSRTYPE?." ") Q
  1.  . . ; Add V-File entry
  1.  . . S VISITDT=$P(DMSR,".",1)
  1.  . . S VISIT=$G(^TMP("BKMVIST4 DATES",$J,VISITDT))
  1.  . . ; Create PCC Visit
  1.  . . I VISIT="" S APCDADD=1,(^TMP("BKMVIST4 DATES",$J,VISITDT),VISIT)=$$CRVISIT3^BKMVIST4(VISITDT,DFN)
  1.  . . I VISIT="" W !,"Unable to create PCC Visit!" S BKMTMP=$$PAUSE^BKMIXX3() Q
  1.  . . ; File PCC Measurement V-File entry
  1.  . . S:DATABASE="PCC" ERFLAG=$$CRVFILE2^BKMVIST4("MSR",DFN,VISIT,MSRTYPE,MSRVALUE,MSRDATE,"[APCDALVR 9000010.01 (ADD)]")
  1.  . . I ERFLAG="" W !,"Unable to create V-File entry!" S BKMTMP=$$PAUSE^BKMIXX3()
  1.  K ^TMP("BKMVIST4 DATES",$J)
  1.  Q
  1.  ;
  1. DELMSR ; EP - Delete 90459.1919 Measurement subfiles
  1.  ; Input vars:  n/a
  1.  ; Output vars: n/a
  1.  ; Init
  1.  N DA,DA1,DA0,DIK,MSR
  1.  ; PCC Buffer IEN
  1.  S DA1=$O(^BKM(90459,"B",$J,""))
  1.  Q:DA1=""
  1.  ; Measurement subfiles
  1.  S MSR=""
  1.  F  S MSR=$O(^BKM(90459,DA1,19,"B",MSR)) Q:MSR=""  D
  1.  . S DA0=""
  1.  . F  S DA0=$O(^BKM(90459,DA1,19,"B",MSR,DA0)) Q:DA0=""  D
  1.  . . K DA
  1.  . . S DA(1)=DA1,DA=DA0
  1.  . . ; Delete subfile
  1.  . . S DIK="^BKM(90459,"_DA(1)_",19,"
  1.  . . D ^DIK
  1.  Q
  1.  ;
  1.  ;