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

DGNTUT.m

Go to the documentation of this file.
  1. DGNTUT ;ALB/RPM - Utility functions for N/T Radium Treatments ; 7/16/01 3:04pm
  1. ;;5.3;Registration;**397,1015**;Aug 13, 1993;Build 21
  1. Q
  1. ;
  1. CHANGE(DGDFN,DGNTN,DGENR) ;Did the answers change?
  1. ; Input
  1. ; DGDFN - Patients DFN
  1. ; DGNTN("HNC") - Head/Neck Cancer Diagnosis "Y,N"
  1. ; DGNTN("NTR") - NTR Status code, "Y,N,U"
  1. ; DGNTN("AVI") - Aviator code, "Y,N"
  1. ; DGNTN("SUB") - Sub Training code, "Y,N"
  1. ; DGNTN("VER") - Verification method, "S,M,N"
  1. ; DGENR - Enrollment Z11 update [optional default=0]
  1. ;
  1. ; Output
  1. ; Returns 0 if no status change
  1. ; 1 if status changed
  1. ;
  1. N DGCHG ;change flag
  1. N DGIEN ;IEN of existing NTR record
  1. N DGNTO ;original values from $$GETCUR
  1. N DGX ;generic index
  1. ;
  1. I +$G(DGDFN)'>0 Q 0
  1. S DGNTN("HNC")=$G(DGNTN("HNC"))
  1. S DGNTN("NTR")=$G(DGNTN("NTR"))
  1. S DGNTN("AVI")=$G(DGNTN("AVI"))
  1. S DGNTN("SUB")=$G(DGNTN("SUB"))
  1. S DGNTN("VER")=$G(DGNTN("VER"))
  1. S DGENR=+$G(DGENR)
  1. S DGCHG=0
  1. S DGIEN=+$$GETCUR^DGNTAPI(DGDFN,"DGNTO")
  1. I DGIEN>0 D
  1. . ;if this is an Enrollment update don't overlay a "M"ilitary Medical
  1. . ;Record verified record with a "S"ervice Record verified record.
  1. . I DGENR,$P($G(DGNTO("VER")),"^")="M",DGNTN("VER")="S" Q
  1. . F DGX="HNC","NTR","AVI","SUB","VER" D Q:DGCHG
  1. . . I $P($G(DGNTO(DGX)),"^")'=DGNTN(DGX) S DGCHG=1
  1. I DGIEN=0 S DGCHG=1 ;new record
  1. CHNGQ Q DGCHG
  1. ;
  1. SITE(DGSITE) ;Convert a station number into a pointer to the
  1. ; INSTITUTION file (#4). If called with a null parameter then
  1. ; the pointer to the INSTITUTION file (#4) of the primary site
  1. ; will be returned.
  1. ;
  1. ; Input
  1. ; DGSITE - Station number (optional)
  1. ;
  1. ; Output
  1. ; Return Site IEN to INSTITUTION file (#4)
  1. ;
  1. S DGSITE=$G(DGSITE)
  1. I DGSITE]"",$D(^DIC(4,"D",DGSITE)) D
  1. . S DGSITE=$O(^DIC(4,"D",DGSITE,0))
  1. E D
  1. . S DGSITE=$P($$SITE^VASITE,U)
  1. I +DGSITE'>0 S DGSITE=""
  1. Q DGSITE
  1. ;
  1. INTERP(DGINTR) ;Create external status interpretation
  1. ;
  1. ; Input
  1. ; DGINTR - NTR record values array
  1. ;
  1. ; Output
  1. ; DGINTRP - function return
  1. ; NO
  1. ; YES,PENDING BOTH DOCUMENTATION AND DIAGNOSIS
  1. ; YES,PENDING DIAGNOSIS
  1. ; YES,VERIFIED
  1. ;
  1. N DGINTRP ;interpretation
  1. N DGX ;generic index
  1. N DGINT ;temp array
  1. F DGX="HNC","NTR","VER" S DGINT(DGX)=$P($G(@DGINTR@(DGX)),"^")
  1. S DGINTRP="NO"
  1. I DGINT("NTR")="Y"!(DGINT("NTR")="U") D
  1. . I DGINT("VER")="" D
  1. . . S DGINTRP="YES,PENDING BOTH DOCUMENTATION AND DIAGNOSIS"
  1. . . I DGINT("HNC")="Y" D
  1. . . . S DGINTRP="YES,PENDING DOCUMENTATION"
  1. . I DGINT("VER")="M"!(DGINT("VER")="S") D
  1. . . S DGINTRP="YES,PENDING DIAGNOSIS"
  1. . . I DGINT("HNC")="Y" D
  1. . . . S DGINTRP="YES,VERIFIED"
  1. Q DGINTRP
  1. ;
  1. STATUS(DGARR) ;Determine if screening status is complete
  1. ; Input
  1. ; DGARR - result array of $$GETCUR^DGNTAPI
  1. ;
  1. ; Output - function result
  1. ; 0 - incomplete
  1. ; 1 - complete
  1. ;
  1. N DGRSLT
  1. N DGST ;temp array
  1. S DGRSLT=0
  1. S DGST("NTR")=$P($G(DGARR("NTR")),"^")
  1. S DGST("HNC")=$P($G(DGARR("HNC")),"^")
  1. S DGST("VER")=$P($G(DGARR("VER")),"^")
  1. I DGST("NTR")="N" S DGRSLT=1
  1. I DGST("NTR")="Y"!(DGST("NTR")="U") D
  1. . S DGRSLT=2
  1. . I ",S,M,"[(","_DGST("VER")_",") D
  1. . . S DGRSLT=3
  1. . . I DGST("HNC")="Y" D
  1. . . . S DGRSLT=$S(DGST("VER")="M":4,1:5)
  1. . I DGST("VER")="N" S DGRSLT=6
  1. Q DGRSLT