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

DGNTAPI1.m

Go to the documentation of this file.
  1. DGNTAPI1 ;ALB/RPM - API's for N/T Radium Treatment(part 2); 7/16/01 3:04pm
  1. ;;5.3;Registration;**397,423,1015**;Aug 13, 1993;Build 21
  1. Q
  1. ;
  1. ENRUPD(DGDFN,DGHEC) ;
  1. ;This function is the entry point for HEC/Enrollment data updates
  1. ;via the Enrollment HL7 message upload.
  1. ;
  1. ; Input:
  1. ; DGDFN - PATIENT file (#2) IEN
  1. ; DGHEC - update values array passed by reference
  1. ; DGHEC("NTR") - Nose/Throat Radium
  1. ; DGHEC("AVI") - Aviator?
  1. ; DGHEC("SUB") - Submariner
  1. ; DGHEC("VER") - Verification method
  1. ; DGHEC("VDT") - Verification completion date/time
  1. ; DGHEC("VSIT") - Verification site
  1. ; DGHEC("HNC") - Head/Neck CA DX
  1. ; DGHEC("HDT") - Head/Neck CA date/time
  1. ; DGHEC("HSIT") - Site determining CA DX
  1. ;
  1. ; Output:
  1. ; function result 1-success, 0-failure
  1. ;
  1. N DGRSLT
  1. N DGX ;generic index
  1. S DGRSLT=0
  1. S DGDFN=+$G(DGDFN)
  1. F DGX="NTR","AVI","SUB","VER","VDT","VSIT","HNC","HDT","HSIT" D
  1. . S DGHEC(DGX)=$G(DGHEC(DGX))
  1. I DGDFN>0,$D(^DPT(DGDFN)),DGHEC("NTR")]"",DGHEC("VDT")]"",$$CHANGE^DGNTUT(DGDFN,.DGHEC,1) D
  1. . S DGHEC("EUSR")=DUZ
  1. . S DGHEC("EDT")=$$NOW^XLFDT
  1. . S DGRSLT=$$FILENTR^DGNTAPI(DGDFN,.DGHEC,0)
  1. Q DGRSLT
  1. ;
  1. ENRGET(DGDFN,DGENR) ;Entry point for Enrollment data retrieval from
  1. ;NOSE AND THROAT RADIUM HISTORY file (#28.11).
  1. ;
  1. ; Input:
  1. ; DGDFN - IEN of patient in the PATIENT (#2) file
  1. ; DGENR - Array name of return values [Optional - Default DGNTARR]
  1. ;
  1. ; Output:
  1. ; function result - 1-complete record found, 0-incomplete record
  1. ; DGENR - Array of current NTR HISTORY file record field values.
  1. ; See $$GETREC^DGNTAPI for array specifications.
  1. ;
  1. N DGIEN
  1. N DGRSLT
  1. N DGX
  1. ;
  1. I '$G(DGDFN) Q 0
  1. ;
  1. S DGENR=$G(DGENR)
  1. I DGENR']"" S DGENR="DGNTARR"
  1. ;
  1. S DGRSLT=0
  1. S DGIEN=+$$GETPRIM^DGNTAPI(DGDFN)
  1. I ($$GETREC^DGNTAPI(DGIEN,DGENR)&($G(@DGENR@("VDT"))]"")) D
  1. . S DGRSLT=1
  1. . ;return only internal values
  1. . F DGX="IND","STAT","NTR","AVI","SUB","VER","HNC" D
  1. . . S @DGENR@(DGX)=$P(@DGENR@(DGX),"^")
  1. Q DGRSLT
  1. ;
  1. GETSTAT(DGDFN) ;get the screening status
  1. ;
  1. ; Input:
  1. ; DGDFN - IEN of patient in the PATIENT (#2) file
  1. ;
  1. ; Output:
  1. ; function result - internal value of SCREENING STATUS field (#.03)
  1. ;
  1. N DGNT
  1. I +$G(DGDFN)>0,+$$GETCUR^DGNTAPI(DGDFN,"DGNT")
  1. Q (+$G(DGNT("STAT")))
  1. ;
  1. FILEHNC(DGDFN) ;entry point for applications that need to complete the
  1. ;Head/Neck diagnosis question. Only file an entry if the Screening
  1. ;Status is "3" - Pending Diagnosis.
  1. ;This API is supported by DBIA #3456
  1. ;
  1. ; Input:
  1. ; DGDFN - IEN of patient in the PATIENT (#2) file
  1. ;
  1. ; Output:
  1. ; function result - "0"-nothing filed, "1"-success
  1. ;
  1. N DGNT,DGRSLT
  1. S DGRSLT=0
  1. I +$G(DGDFN)>0,+$$GETCUR^DGNTAPI(DGDFN,"DGNT"),+$G(DGNT("STAT"))=3 D
  1. . S DGNT("HNC")="Y"
  1. . S DGNT("HDT")=$$NOW^XLFDT
  1. . S DGNT("HUSR")=DUZ
  1. . S DGNT("HSIT")=$$SITE^DGNTUT
  1. . S DGRSLT=$$FILENTR^DGNTAPI(DGDFN,.DGNT,1)
  1. Q DGRSLT
  1. ;
  1. VALID(DGIP,DGERR) ;Validate input parameters before filing
  1. ; Input
  1. ; DGIP - array of input parameters to validate passed by reference
  1. ; DGERR - error parameter passed by reference
  1. ;
  1. ; Output
  1. ; function output - 0:invalid, 1:valid
  1. ; DGERR - error message
  1. ;
  1. N DGVLD ;function return value
  1. N DGFXR ;node name to field xref array
  1. N DGREQ ;array of required parameters
  1. N DGN ;array node name
  1. N DGFILE ;file number
  1. ;
  1. S DGVLD=1
  1. S DGN=""
  1. S DGFILE=28.11
  1. ;build field/node xref and required fields array
  1. D BLDARR(.DGFXR,.DGREQ)
  1. ;
  1. D ;first invalid condition will exit block structure
  1. . ;check for required parameters
  1. . F S DGN=$O(DGREQ(DGN)) Q:DGN="" I $G(DGIP(DGN))']"" D Q
  1. . . S DGVLD=0,DGERR=$$GET1^DID(DGFILE,DGFXR(DGN),,"LABEL")_" REQUIRED"
  1. . ;quit if any missing required parameters
  1. . Q:'DGVLD
  1. . ;check value validity
  1. . F S DGN=$O(DGIP(DGN)) Q:DGN="" I $D(DGFXR(DGN)),'$$TESTVAL(DGFILE,DGFXR(DGN),$P(DGIP(DGN),U)) D Q
  1. . . S DGVLD=0,DGERR=$$GET1^DID(DGFILE,DGFXR(DGN),,"LABEL")_" NOT VALID"
  1. Q DGVLD
  1. ;
  1. BLDARR(DGFLDA,DGREQA) ;Read in $T(XREF) lines and build name/field xref
  1. ;array and required fields array.
  1. ; Input
  1. ; DGFLDA - array name passed by reference
  1. ; DGREQA - array name of required fields passed by reference
  1. ;
  1. ; Output
  1. ; DGFLDA - field array node xref
  1. ; DGREQA - required fields array
  1. ;
  1. N DGOFF ;offset value used with $T
  1. N DGLINE ;line retrieved by $T(XREF+offset)
  1. ;
  1. F DGOFF=1:1 S DGLINE=$T(XREF+DGOFF) Q:DGLINE="" D
  1. . S DGFLDA($P(DGLINE,";",3))=$P(DGLINE,";",4)
  1. . I +$P(DGLINE,";",5) S DGREQA($P(DGLINE,";",3))=""
  1. Q
  1. ;
  1. TESTVAL(DGFIL,DGFLD,DGVAL) ;Used to determine if a field value is valid
  1. ;
  1. ; Input
  1. ; DGFIL - file number
  1. ; DGFLD - field number
  1. ; DGVAL - field value to be validated
  1. ;
  1. ; Output
  1. ; Function value: 1:field value is valid, 0:field value is invalid
  1. ;
  1. N DGVALEX ;external value after conversion
  1. N DGRSLT ;result of CHK^DIE
  1. N VALID ;function result
  1. ;
  1. S VALID=1
  1. I DGVAL'="" D
  1. . S DGVALEX=$$EXTERNAL^DILFD(DGFIL,DGFLD,"F",DGVAL)
  1. . I DGVALEX="" S VALID=0 Q
  1. . ;
  1. . I $$GET1^DID(DGFIL,DGFLD,"","TYPE")'="POINTER" D
  1. . . D CHK^DIE(DGFIL,DGFLD,,DGVALEX,.DGRSLT) I DGRSLT="^" S VALID=0 Q
  1. Q VALID
  1. ;
  1. XREF ;;array node name;field#;required param;description
  1. ;;DFN;.01;1;patient IEN
  1. ;;NTR;.04;1;NTR exposure code
  1. ;;AVI;.05;0;Military Aviator prior to 1/31/55
  1. ;;SUB;.06;0;Submarine Training prior to 1/1/65
  1. ;;EDT;.07;0;Date/Time entered
  1. ;;EUSR;.08;0;Entered by
  1. ;;VER;1.01;0;verification method
  1. ;;VDT;1.02;0;Date/Time verified
  1. ;;VUSR;1.03;0;verified by
  1. ;;VSIT;1.04;0;Site verifying Documentation
  1. ;;HNC;2.01;0;Head/Neck Cancer DX
  1. ;;HDT;2.02;0;Date/Time diagnosis verified
  1. ;;HUSR;2.03;0;diagnosis verified by
  1. ;;HSIT;2.04;0;Site verifying DX