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

BKMVA9.m

Go to the documentation of this file. 
  1. BKMVA9 ;PRXM/HC/JGH-HMS PATIENT REGISTER; [ 1/19/2005 7:16 PM ] ; 09 Jun 2005  12:58 PM
  1.  ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011
  1.  ;
  1. EN ; -EP for BKMV UPD1 State
  1.  N HIVIEN,ENTER
  1.  S HIVIEN=$$HIVIEN^BKMIXX3()
  1.  I HIVIEN="" W !,"There is no HMS register defined." H 2 Q
  1.  I '$$VALID^BKMIXX3(DUZ) Q
  1.  ; DAOU/BHS-12/29/05-Removed Sec check-enforced w/i each opt
  1.  ;I '$$BKMPRIV^BKMIXX3(DUZ) D NOGO^BKMIXX3 Q
  1.  ;
  1.  K ^TMP("BKMVA9",$J)
  1.  D EN^VALM("BKMV UPD1 STATE")
  1.  K ^TMP("BKMVA9",$J)
  1.  I '$$GETALL^BKMVA1(DFN) W !,"No Patient entered or Patient Not In Register <Enter>" H 2 Q
  1.  D INIT^BKMVA1
  1.  Q
  1.  ;
  1. EXEN ; EP -Called by GETNOT^BKMVA1A
  1.  ; Assume DFN exists
  1.  N HIVIEN
  1.  S HIVIEN=$$HIVIEN^BKMIXX3()
  1.  I HIVIEN="" W !,"There is no HMS register defined." H 2 Q
  1.  I '$$VALID^BKMIXX3(DUZ) W !,"You are not a valid HMS user." H 2 Q
  1.  ;
  1.  K ^TMP("BKMVA9",$J)
  1.  D EN^VALM("BKMV UPD1 STATE")
  1.  K ^TMP("BKMVA9",$J)
  1.  Q
  1.  ;
  1. HDR ; -header
  1.  D HDR^BKMVA51
  1.  Q
  1.  ;
  1. INIT ; -init vars & list array
  1.  D GETALL
  1.  Q
  1.  ;
  1. GETALL ;
  1.  N VALMPGE,PNOT,BKMVA9,PDAT,TEXT,BKMVA9E,DA0,DA1,DA2,IENS,CAT,BKMDT,RSTAT
  1.  N BKMSTAT,BKMSTATI,PNOTI,BKMDTE
  1.  D ^XBFMK
  1.  S VALMCNT=0,VALMPGE=1,VALMAR="^TMP(""BKMVA9"","_$J_")",VALM0=""
  1.  S DA2=$$BKMIEN^BKMIXX3(DFN)
  1.  S DA1=$$BKMREG^BKMIXX3(DA2)
  1.  K DA
  1.  S DA=DA1,DA(1)=DA2
  1.  S IENS=$$IENS^DILF(.DA)
  1.  ;DAOU/ALA 9/21/05 Modified State Reprtng data to reflect new fields
  1.  ;D GETS^DIQ(90451.01,IENS,"4;4.1;4.2;4.3;4.5;4.51;4.52;4.53","E","BKMVA9","BKMVA9E")
  1.  ; DAOU/BHS-10/31/05-Modified to translate dates to consistent format
  1.  ; DAOU/BHS-11/30/05-Modified display order per IHS & add date entered display, etc
  1.  D GETS^DIQ(90451.01,IENS,"4.1;4.3;4.51;4.53","EI","BKMVA9","BKMVA9E")
  1.  S TEXT=""
  1.  S TEXT=$$SETFLD^VALM1("State Reporting Category:",TEXT,"Type")
  1.  S TEXT=$$SETFLD^VALM1("HIV",TEXT,"Status")
  1.  S TEXT=$$SETFLD^VALM1("",TEXT,"Date Entered")
  1.  S VALMCNT=$G(VALMCNT)+1 D SET^VALM10(VALMCNT,TEXT)
  1.  S BKMSTAT=$G(BKMVA9("90451.01",IENS,"4.3","E")),(BKMSTATI,RSTAT)=$G(BKMVA9("90451.01",IENS,"4.3","I"))
  1.  S BKMDT=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4","I")'="":$$GET1^DIQ(90451.01,IENS,"4","I")\1,1:""),"1")
  1.  S BKMDTE=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4.4","I")'="":$$GET1^DIQ(90451.01,IENS,"4.4","I")\1,1:""),"1")
  1.  S TEXT=""
  1.  S TEXT=$$SETFLD^VALM1("Reported to State?",TEXT,"Type")
  1.  S TEXT=$$SETFLD^VALM1(BKMSTAT_$S(BKMSTATI="Y"&(BKMDT'=""):" - "_BKMDT,1:""),TEXT,"Status")
  1.  S TEXT=$$SETFLD^VALM1(BKMDTE,TEXT,"Date Entered")
  1.  S VALMCNT=$G(VALMCNT)+1 D SET^VALM10(VALMCNT,TEXT)
  1.  S BKMSTAT=$S(RSTAT="Y":$G(BKMVA9("90451.01",IENS,"4.1","E")),1:"")
  1.  S BKMSTATI=$S(RSTAT="Y":$G(BKMVA9("90451.01",IENS,"4.1","I")),1:"")
  1.  S BKMDT=$S(RSTAT="Y":$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4.2","I")'="":$$GET1^DIQ(90451.01,IENS,"4.2","I")\1,1:""),"1"),1:"")
  1.  S BKMDTE=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4.41","I")'="":$$GET1^DIQ(90451.01,IENS,"4.41","I")\1,1:""),"1")
  1.  S TEXT=""
  1.  S TEXT=$$SETFLD^VALM1("Confirmed by State?",TEXT,"Type")
  1.  S TEXT=$$SETFLD^VALM1(BKMSTAT_$S(BKMSTATI="Y"&(BKMDT'=""):" - "_BKMDT,1:""),TEXT,"Status")
  1.  S TEXT=$$SETFLD^VALM1(BKMDTE,TEXT,"Date Entered")
  1.  S VALMCNT=$G(VALMCNT)+1 D SET^VALM10(VALMCNT,TEXT)
  1.  S VALMCNT=$$I^BKMIXX3($G(VALMCNT),) D SET^VALM10(VALMCNT,"")  ; A blank line
  1.  S TEXT=""
  1.  S TEXT=$$SETFLD^VALM1("State Reporting Category:",TEXT,"Type")
  1.  S TEXT=$$SETFLD^VALM1("AIDS",TEXT,"Status")
  1.  S TEXT=$$SETFLD^VALM1("",TEXT,"Date Entered")
  1.  S VALMCNT=$G(VALMCNT)+1 D SET^VALM10(VALMCNT,TEXT)
  1.  S BKMSTAT=$G(BKMVA9("90451.01",IENS,"4.53","E")),(BKMSTATI,RSTAT)=$G(BKMVA9("90451.01",IENS,"4.53","I"))
  1.  S BKMDT=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4.5","I")'="":$$GET1^DIQ(90451.01,IENS,"4.5","I")\1,1:""),"1")
  1.  S BKMDTE=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4.54","I")'="":$$GET1^DIQ(90451.01,IENS,"4.54","I")\1,1:""),"1")
  1.  S TEXT=""
  1.  S TEXT=$$SETFLD^VALM1("Reported to State?",TEXT,"Type")
  1.  S TEXT=$$SETFLD^VALM1(BKMSTAT_$S(BKMSTATI="Y"&(BKMDT'=""):" - "_BKMDT,1:""),TEXT,"Status")
  1.  S TEXT=$$SETFLD^VALM1(BKMDTE,TEXT,"Date Entered")
  1.  S VALMCNT=$G(VALMCNT)+1 D SET^VALM10(VALMCNT,TEXT)
  1.  S BKMSTAT=$S(RSTAT="Y":$G(BKMVA9("90451.01",IENS,"4.51","E")),1:"")
  1.  S BKMSTATI=$S(RSTAT="Y":$G(BKMVA9("90451.01",IENS,"4.51","I")),1:"")
  1.  S BKMDT=$S(RSTAT="Y":$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4.52","I")'="":$$GET1^DIQ(90451.01,IENS,"4.52","I")\1,1:""),"1"),1:"")
  1.  S BKMDTE=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"4.541","I")'="":$$GET1^DIQ(90451.01,IENS,"4.541","I")\1,1:""),"1")
  1.  S TEXT=""
  1.  S TEXT=$$SETFLD^VALM1("Confirmed by State?",TEXT,"Type")
  1.  S TEXT=$$SETFLD^VALM1(BKMSTAT_$S(BKMSTATI="Y"&(BKMDT'=""):" - "_BKMDT,1:""),TEXT,"Status")
  1.  S TEXT=$$SETFLD^VALM1(BKMDTE,TEXT,"Date Entered")
  1.  S VALMCNT=$G(VALMCNT)+1 D SET^VALM10(VALMCNT,TEXT)
  1.  ;
  1.  S VALMCNT=$$I^BKMIXX3($G(VALMCNT),) D SET^VALM10(VALMCNT,"")  ; A blank line
  1.  ; Partnr Notify Status-only display if exists
  1.  S PNOT=$$GET1^DIQ(90451.01,IENS,"15","E"),PNOTI=$$GET1^DIQ(90451.01,IENS,"15","I")
  1.  S PDAT=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"16","I")'="":$$GET1^DIQ(90451.01,IENS,"16","I")\1,1:""),"1")
  1.  S BKMDTE=$$FMTE^XLFDT($S($$GET1^DIQ(90451.01,IENS,"17","I")'="":$$GET1^DIQ(90451.01,IENS,"17","I")\1,1:""),"1")
  1.  S TEXT=""
  1.  S TEXT=$$SETFLD^VALM1("Partner Notification Status:",TEXT,"Type")
  1.  S TEXT=$$SETFLD^VALM1(PNOT_$S(PNOTI="Y"&(PDAT'=""):" - "_PDAT,1:""),TEXT,"Status")
  1.  S TEXT=$$SETFLD^VALM1(BKMDTE,TEXT,"Date Entered")
  1.  S VALMCNT=$G(VALMCNT)+1 D SET^VALM10(VALMCNT,TEXT)
  1.  ;
  1.  D ^XBFMK
  1.  Q
  1.  ;
  1. MAINFORM ; State Reporting/Confirmation
  1.  ; Assume DFN & DUZ exist
  1.  ; OSTAT utilized in input template
  1.  N BKMPRIV,HIVIEN,BKMIEN,BKMREG,BKMV,BKMIENS,OSTAT
  1.  D ^XBFMK
  1.  S BKMPRIV=$$BKMPRIV^BKMIXX3(DUZ)
  1.  I 'BKMPRIV D NOGO^BKMIXX3 Q
  1.  S HIVIEN=$$HIVIEN^BKMIXX3()
  1.  Q:HIVIEN=""
  1.  S BKMIEN=$$BKMIEN^BKMIXX3(DFN)
  1.  Q:BKMIEN=""
  1.  S BKMREG=$$BKMREG^BKMIXX3(BKMIEN)
  1.  Q:BKMREG=""
  1.  D ^XBFMK
  1.  D FULL^VALM1
  1.  ; PRXM/BHS-04/04/06-Removed
  1.  ;D EN^BKMVAUD
  1.  ; DAOU/BHS-12/01/05-Orig vals for 'Date Entered' if changed
  1.  ; Capture fields: 4,4.1,4.2,4.3,4.5,4.51,4.52,4.53
  1.  K DA
  1.  S DA(1)=BKMIEN,DA=BKMREG
  1.  S BKMIENS=$$IENS^DILF(.DA)
  1.  S BKMV("PRE",4)=$$GET1^DIQ(90451.01,BKMIENS,4,"I")
  1.  S BKMV("PRE",4.1)=$$GET1^DIQ(90451.01,BKMIENS,4.1,"I")
  1.  S BKMV("PRE",4.2)=$$GET1^DIQ(90451.01,BKMIENS,4.2,"I")
  1.  S BKMV("PRE",4.3)=$$GET1^DIQ(90451.01,BKMIENS,4.3,"I")
  1.  S BKMV("PRE",4.5)=$$GET1^DIQ(90451.01,BKMIENS,4.5,"I")
  1.  S BKMV("PRE",4.51)=$$GET1^DIQ(90451.01,BKMIENS,4.51,"I")
  1.  S BKMV("PRE",4.52)=$$GET1^DIQ(90451.01,BKMIENS,4.52,"I")
  1.  S BKMV("PRE",4.53)=$$GET1^DIQ(90451.01,BKMIENS,4.53,"I")
  1.  K DA
  1.  S DA=BKMIEN,DIE="^BKM(90451,",DR="[BKMV PATIENT RECORD STATE]"
  1.  L +^BKM(90451,BKMIEN):0 I '$T D EN^DDIOL("Another user is editing this entry.") H 2 G MAINX
  1.  D ^DIE K SRCAT
  1.  H 1
  1.  ; DAOU/BHS-12/01/05-Update 'Date Entered' if changed
  1.  ; Capture fields: 4,4.1,4.2,4.3,4.5,4.51,4.52,4.53
  1.  K DA
  1.  S DA(1)=BKMIEN,DA=BKMREG
  1.  S BKMIENS=$$IENS^DILF(.DA)
  1.  S BKMV("POST",4)=$$GET1^DIQ(90451.01,BKMIENS,4,"I")
  1.  S BKMV("POST",4.1)=$$GET1^DIQ(90451.01,BKMIENS,4.1,"I")
  1.  S BKMV("POST",4.2)=$$GET1^DIQ(90451.01,BKMIENS,4.2,"I")
  1.  S BKMV("POST",4.3)=$$GET1^DIQ(90451.01,BKMIENS,4.3,"I")
  1.  S BKMV("POST",4.5)=$$GET1^DIQ(90451.01,BKMIENS,4.5,"I")
  1.  S BKMV("POST",4.51)=$$GET1^DIQ(90451.01,BKMIENS,4.51,"I")
  1.  S BKMV("POST",4.52)=$$GET1^DIQ(90451.01,BKMIENS,4.52,"I")
  1.  S BKMV("POST",4.53)=$$GET1^DIQ(90451.01,BKMIENS,4.53,"I")
  1.  ; Compare pre vs post
  1.  I (BKMV("PRE",4)'=BKMV("POST",4))!(BKMV("PRE",4.3)'=BKMV("POST",4.3)) D
  1.  . ; STATE HIV RPT LAST UPDATED (4.4)
  1.  . S DIE="^BKM(90451,"_DA(1)_",1,"
  1.  . S DR="4.4////"_$$NOW^XLFDT()_";"
  1.  . D ^DIE
  1.  I (BKMV("PRE",4.1)'=BKMV("POST",4.1))!(BKMV("PRE",4.2)'=BKMV("POST",4.2)) D
  1.  . ; STATE HIV ACK LAST UPDATED (4.41)
  1.  . S DIE="^BKM(90451,"_DA(1)_",1,"
  1.  . S DR="4.41////"_$$NOW^XLFDT()_";"
  1.  . D ^DIE
  1.  I (BKMV("PRE",4.5)'=BKMV("POST",4.5))!(BKMV("PRE",4.53)'=BKMV("POST",4.53)) D
  1.  . ; STATE AIDS RPT LAST UPDATED (4.54)
  1.  . S DIE="^BKM(90451,"_DA(1)_",1,"
  1.  . S DR="4.54////"_$$NOW^XLFDT()_";"
  1.  . D ^DIE
  1.  I (BKMV("PRE",4.51)'=BKMV("POST",4.51))!(BKMV("PRE",4.52)'=BKMV("POST",4.52)) D
  1.  . ; STATE AIDS ACK LAST UPDATED (4.541)
  1.  . S DIE="^BKM(90451,"_DA(1)_",1,"
  1.  . S DR="4.541////"_$$NOW^XLFDT()_";"
  1.  . D ^DIE
  1.  L -^BKM(90451,BKMIEN)
  1.  ; PRXM/BHS-04/04/06-Removed
  1.  ;D POST^BKMVAUD
  1. MAINX ; Exit point for MAINFORM
  1.  K ^TMP("BKMVA9",$J)
  1.  D GETALL
  1.  Q
  1.  ;
  1. PNOTFORM ;  Partner notification
  1.  ; Assume DFN & DUZ exist
  1.  ; OSTAT utilized in input template
  1.  N BKMPRIV,HIVIEN,BKMIEN,BKMREG,IENS,BKMV,BKMIENS,OSTAT
  1.  D ^XBFMK
  1.  S BKMPRIV=$$BKMPRIV^BKMIXX3(DUZ)
  1.  I 'BKMPRIV D NOGO^BKMIXX3 Q
  1.  S HIVIEN=$$HIVIEN^BKMIXX3()
  1.  Q:HIVIEN=""
  1.  S BKMIEN=$$BKMIEN^BKMIXX3(DFN)
  1.  Q:BKMIEN=""
  1.  S BKMREG=$$BKMREG^BKMIXX3(BKMIEN)
  1.  Q:BKMREG=""
  1.  D ^XBFMK
  1.  D FULL^VALM1
  1.  ; PRXM/BHS-04/04/06-Removed
  1.  ;D EN^BKMVAUD
  1.  ; DAOU/BHS-12/01/05-Track original values to track 'Date Entered' for changes
  1.  ; Capture fields: 15,16
  1.  K DA
  1.  S DA(1)=BKMIEN,DA=BKMREG
  1.  S BKMIENS=$$IENS^DILF(.DA)
  1.  S BKMV("PRE",15)=$$GET1^DIQ(90451.01,BKMIENS,15,"I")
  1.  S BKMV("PRE",16)=$$GET1^DIQ(90451.01,BKMIENS,16,"I")
  1.  K DA
  1.  S DA(1)=BKMIEN,DA=BKMREG,IENS=$$IENS^DILF(.DA)
  1.  L +^BKM(90451,BKMIEN):0 I '$T D EN^DDIOL("Another user is editing this entry.") H 2 G PNOTX
  1.  ; If PARTNER NOTIFICATION STATUS (#15) is null, default it
  1.  I $$GET1^DIQ(90451.01,IENS,"15","I")="" D
  1.  . ; Default to 'Unknown'
  1.  . S DIE="^BKM(90451,"_DA(1)_",1,"
  1.  . S DR="15////U;"
  1.  . D ^DIE
  1.  K DA
  1.  S DA=BKMIEN,DIE="^BKM(90451,",DR="[BKMV UPD1 PNOT]"
  1.  D ^DIE
  1.  H 1
  1.  ; DAOU/BHS-12/01/05-Update 'Date Entered' fields where appropriate
  1.  ; Capture fields: 15,16
  1.  K DA
  1.  S DA(1)=BKMIEN,DA=BKMREG
  1.  S BKMIENS=$$IENS^DILF(.DA)
  1.  S BKMV("POST",15)=$$GET1^DIQ(90451.01,BKMIENS,15,"I")
  1.  S BKMV("POST",16)=$$GET1^DIQ(90451.01,BKMIENS,16,"I")
  1.  ; Compare pre vs post
  1.  I BKMV("PRE",15)'=BKMV("POST",15)!(BKMV("PRE",16)'=BKMV("POST",16)) D
  1.  . ; PARTNER NOTIFIED LAST UPDATED (17)
  1.  . S DIE="^BKM(90451,"_DA(1)_",1,"
  1.  . S DR="17////"_$$NOW^XLFDT()_";"
  1.  . D ^DIE
  1.  L -^BKM(90451,BKMIEN)
  1.  ; PRXM/BHS-04/04/06-Removed
  1.  ;D POST^BKMVAUD
  1. PNOTX ; PNOTFORM Exit point
  1.  K ^TMP("BKMVA9",$J)
  1.  D GETALL
  1.  Q
  1.  ;
  1. HELP ; -help
  1.  S X="?" D DISP^XQORM1 W !
  1.  Q
  1.  ;
  1. EXIT ; -exit
  1.  K VALM0,VALMAR,VALMHDR,VALMCNT
  1.  Q
  1.  ;
  1. YNP(PROMPT,DFLT) ;Yes/No question
  1.  N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,TEXT,DIWL,DIWR,BKMTOT,II
  1.  S DFLT=$G(DFLT)
  1.  S DIR(0)="Y"
  1.  ; If PROMPT is > 1 line, split with ^DIWP
  1.  I $L(PROMPT)>77 D
  1.  . K ^UTILITY($J,"W")
  1.  . S X=PROMPT,DIWL=1,DIWR=77 D ^DIWP
  1.  . S BKMTOT=+$G(^UTILITY($J,"W",DIWL))
  1.  . F II=1:1:BKMTOT D
  1.  . . S TEXT=$G(^UTILITY($J,"W",DIWL,II,0))
  1.  . . I $E(TEXT,$L(TEXT))=" " S TEXT=$E(TEXT,1,$L(TEXT)-1)
  1.  . . I II<BKMTOT S DIR("A",II)=TEXT
  1.  . . I II=BKMTOT S DIR("A")=TEXT
  1.  I $L(PROMPT)<78 S DIR("A")=PROMPT
  1.  I DFLT="YES"!(DFLT="NO") S DIR("B")=DFLT
  1.  D ^DIR I $D(DTOUT)!$D(DUOUT) Q 0
  1.  Q $S(+$G(Y)=0:0,1:1)
  1.  ; 
  1. STAT(DFN,FLD) ; get current AIDS/HIV State Reportng/Confirmation or Partnr Notification Status
  1.  N STAT,BKMIEN,BKMREG
  1.  S STAT=""
  1.  S BKMIEN=$$BKMIEN^BKMIXX3(DFN)
  1.  I BKMIEN="" Q STAT
  1.  S BKMREG=$$BKMREG^BKMIXX3(BKMIEN)
  1.  I BKMREG="" Q STAT
  1.  S STAT=$$GET1^DIQ(90451.01,BKMREG_","_BKMIEN_",",FLD,"I")
  1.  Q STAT
  1.  ;
  1. HIVRDT ; EP -Input Transform for State HIV Reporting DT
  1.  N Y,HIVCDT,DOB,DFN
  1.  S HIVCDT=$$GET1^DIQ(90451.01,DA_","_DA(1)_",",4.2,"I")
  1.  S DFN=$$GET1^DIQ(90451,DA(1)_",",.01,"I")
  1.  S DOB=$$GET1^DIQ(2,DFN,.03,"I")
  1.  S %DT="EX" D ^%DT S X=Y
  1.  I Y=-1 K X S BFL=1 Q
  1.  I DOB>X K X Q
  1.  I X>DT K X Q
  1.  I HIVCDT'="",X>HIVCDT K X Q
  1.  Q
  1.  ;
  1. HIVCDT ; EP -Input Transform for State HIV Confirmation DT
  1.  N Y,HIVRDT,DOB,DFN
  1.  S HIVRDT=$$GET1^DIQ(90451.01,DA_","_DA(1)_",",4,"I")
  1.  S DFN=$$GET1^DIQ(90451,DA(1)_",",.01,"I")
  1.  S DOB=$$GET1^DIQ(2,DFN,.03,"I")
  1.  S %DT="EX" D ^%DT S X=Y
  1.  I Y=-1 K X S BFL=1 Q
  1.  I DOB>X K X Q
  1.  I X>DT K X Q
  1.  I HIVRDT'="",X<HIVRDT K X Q
  1.  Q
  1.  ;
  1. AIDRDT ; EP -Input Transform for State AIDS Reporting DT
  1.  N Y,AIDCDT,DOB,DFN
  1.  S AIDCDT=$$GET1^DIQ(90451.01,DA_","_DA(1)_",",4.52,"I")
  1.  S DFN=$$GET1^DIQ(90451,DA(1)_",",.01,"I")
  1.  S DOB=$$GET1^DIQ(2,DFN,.03,"I")
  1.  S %DT="EX" D ^%DT S X=Y
  1.  I Y=-1 K X S BFL=1 Q
  1.  I DOB>X K X Q
  1.  I X>DT K X Q
  1.  I AIDCDT'="",X>AIDCDT K X Q
  1.  Q
  1.  ;
  1. AIDCDT ; EP -Input Transform for State AIDS Confirmation DT
  1.  N Y,AIDRDT,DOB,DFN
  1.  S AIDRDT=$$GET1^DIQ(90451.01,DA_","_DA(1)_",",4.5,"I")
  1.  S DFN=$$GET1^DIQ(90451,DA(1)_",",.01,"I")
  1.  S DOB=$$GET1^DIQ(2,DFN,.03,"I")
  1.  S %DT="EX" D ^%DT S X=Y
  1.  I Y=-1 K X S BFL=1 Q
  1.  I DOB>X K X Q
  1.  I X>DT K X Q
  1.  I AIDRDT'="",X<AIDRDT K X Q
  1.  Q
  1.  ;
  1. PNOTDT ; EP -Input Transform for Partner Notification DT
  1.  NEW Y,DOB,DFN
  1.  S DFN=$$GET1^DIQ(90451,DA(1)_",",.01,"I")
  1.  S DOB=$$GET1^DIQ(2,DFN,.03,"I")
  1.  S %DT="EX" D ^%DT S X=Y
  1.  I Y=-1 K X S BFL=1 Q
  1.  I DOB>X K X Q
  1.  I X>DT K X Q
  1.  Q
  1.  ;
  1. HIVRHLP ; EP -HIV State Reporting DT Special Help
  1.  S DV=""
  1.  K HELP
  1.  I $G(BFL) D HELP^%DTC K BFL Q
  1.  I X["BAD" D
  1.  . S HELP(1)="The State HIV reporting date must be previous to the State HIV confirmation"
  1.  . S HELP(1,"F")="?5"
  1.  . S HELP(2)="date, if it exists, and not previous to the Date of Birth and not in the future."
  1.  . S HELP(2,"F")="!?5"
  1.  . S HELP(3)="Please reenter the date."
  1.  . S HELP(3,"F")="!?5"
  1.  . D EN^DDIOL(.HELP)
  1.  K HELP
  1.  Q
  1.  ;
  1. HIVCHLP ; EP -HIV State Confirmation DT Special Help
  1.  S DV=""
  1.  K HELP
  1.  I $G(BFL) D HELP^%DTC K BFL Q
  1.  I X["BAD" D
  1.  . S HELP(1)="The State HIV confirmation date must be on or after the State HIV reporting"
  1.  . S HELP(1,"F")="?5"
  1.  . S HELP(2)="date, if it exists, and not previous to the Date of Birth and not in the future."
  1.  . S HELP(2,"F")="!?5"
  1.  . S HELP(3)="Please reenter the date."
  1.  . S HELP(3,"F")="!?5"
  1.  . D EN^DDIOL(.HELP)
  1.  K HELP
  1.  Q
  1.  ;
  1. AIDRHLP ; EP -AIDS State Reporting DT Special Help
  1.  S DV=""
  1.  K HELP
  1.  I $G(BFL) D HELP^%DTC K BFL Q
  1.  I X["BAD" D
  1.  . S HELP(1)="The State AIDS reporting date must be previous to the State AIDS confirmation"
  1.  . S HELP(1,"F")="?5"
  1.  . S HELP(2)="date, if it exists, and not previous to the Date of Birth and not in the future."
  1.  . S HELP(2,"F")="!?5"
  1.  . S HELP(3)="Please reenter the date."
  1.  . S HELP(3,"F")="!?5"
  1.  . D EN^DDIOL(.HELP)
  1.  K HELP
  1.  Q
  1.  ;
  1. AIDCHLP ; EP -AIDS State Confirmation DT Special Help
  1.  S DV=""
  1.  K HELP
  1.  I $G(BFL) D HELP^%DTC K BFL Q
  1.  I X["BAD" D
  1.  . S HELP(1)="The State AIDS confirmation date must on or after the State AIDS reporting"
  1.  . S HELP(1,"F")="?5"
  1.  . S HELP(2)="date, if it exists, and not previous to the Date of Birth and not in the future."
  1.  . S HELP(2,"F")="!?5"
  1.  . S HELP(3)="Please reenter the date."
  1.  . S HELP(3,"F")="!?5"
  1.  . D EN^DDIOL(.HELP)
  1.  K HELP
  1.  Q
  1.  ;
  1. PNOTHLP ; EP -Partner Notification Special Help
  1.  S DV=""
  1.  K HELP
  1.  I $G(BFL) D HELP^%DTC K BFL Q
  1.  I X["BAD" D
  1.  . S HELP(1)="The partner notification date must not precede the Date of Birth and"
  1.  . S HELP(1,"F")="?5"
  1.  . S HELP(2)="cannot be in the future.  Please reenter the date."
  1.  . S HELP(2,"F")="!?5"
  1.  . D EN^DDIOL(.HELP)
  1.  K HELP
  1.  Q