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

TIUEN169.m

Go to the documentation of this file.
  1. TIUEN169 ; SLC/MAM - Environment Check Rtn for TIU*1*169 ; 7/28/2004
  1. ;;1.0;Text Integration Utilities;**169**;Jun 20, 1997
  1. ; External References
  1. ; DBIA 3409 ^USR(8930,"B"
  1. MAIN ; Check environment. If problems found, warn but do not abort install.
  1. ; -- Check if done:
  1. I $G(^XTMP("TIU169","DONE"))="ALL" W !,"All Document Definitions for C&P Worksheets have already been",!," created. You won't need to rerun the option." Q
  1. I $O(^USR(8930,"B","CLINICAL COORDINATOR",""))="" W !,"I can't find User Class CLINICAL COORDINATOR. You won't be able to run",!,"the option that creates the Document Definitions without this class. See",!,"patch description.",!
  1. W !,"Remember to run option TIU169 DDEFS, C&P WORKSHEETS",!,"after installing the patch."
  1. Q
  1. ;
  1. SETBASIC ; Set up basic data in ^TMP("TIU169",$J,"BASICS")
  1. N NUMBER
  1. ; -- Set ^TMP("TIU169",$J,"BASICS",[NUMBER],["INTTYPE" or "NAME"])
  1. ; -- Set basic data NAME and interior TYPE for new DDEFS into TMP.
  1. ; Reference DDEFS by NUMBER.
  1. ; Number parent-to-be BEFORE child.
  1. ; Name MUST be upper case or ADDITEM fails
  1. S ^TMP("TIU169",$J,"BASICS",1,"INTTYPE")="DC"
  1. F NUMBER=2:1:58 S ^TMP("TIU169",$J,"BASICS",NUMBER,"INTTYPE")="DOC"
  1. F NUMBER=1:1:58 S ^TMP("TIU169",$J,"BASICS",NUMBER,"NAME")=$P($T(NAME+NUMBER),";;",2,99)
  1. Q
  1. ;
  1. TIUDUPS(TIUDUPS,TIUDCDA) ; Set array TIUDUPS of potential duplicate DDEFS
  1. ; TIUDCDA = IEN of designated DC or 0 if none desig.
  1. ; Checks for Titles;
  1. ; If no DC designated, checks for DC too.
  1. N NUM
  1. S (TIUDUPS("INDC"),TIUDUPS("NOTINDC"))=0
  1. I $G(^XTMP("TIU169","DONE"))="ALL" Q
  1. F NUM=1:1:58 Q:'NUM D
  1. . ; -- When looking for duplicates, ignore DDEF if
  1. . ; previously created, designated,or skipped by this patch:
  1. . I $G(^XTMP("TIU169",NUM,"DONE")) Q
  1. . ; -- If site already has DDEF w/ same Name & Type as one
  1. . ; we are exporting, set its number into array TIUDUPS:
  1. . N NAME,TYPE,TIUDA S TIUDA=0
  1. . S NAME=^TMP("TIU169",$J,"BASICS",NUM,"NAME")
  1. . S TYPE=^TMP("TIU169",$J,"BASICS",NUM,"INTTYPE")
  1. . F S TIUDA=$O(^TIU(8925.1,"B",NAME,TIUDA)) Q:+TIUDA'>0 D
  1. . . Q:$P($G(^TIU(8925.1,+TIUDA,0)),U,4)'=TYPE
  1. . . I $$ISA^TIULX(+TIUDA,TIUDCDA) S TIUDUPS("INDC",NUM)=+TIUDA,TIUDUPS("INDC")=TIUDUPS("INDC")+1 I 1
  1. . . E I TIUDA'=+DESDC S TIUDUPS("NOTINDC",NUM)=+TIUDA,TIUDUPS("NOTINDC")=TIUDUPS("NOTINDC")+1
  1. Q
  1. ;
  1. LISTDUPS(TIUDUPS,INDCFLG) ; List duplicates by name
  1. ; TIUDUPS = array as set in TIUDUPS. Required.
  1. ; INDCFLG = 1: List dups in designated DC for skipping over
  1. ; INDCFLG '= 1: List dups not in designated DC - Quit
  1. N NUM,SUBSCPT,TIUCNT
  1. I '$G(INDCFLG),$G(TIUDUPS("NOTINDC",1)) D Q
  1. . W !!,"You already have the Document Class exported by this patch, C&P EXAMINATION"
  1. . W !,"REPORTS. Please designate it or change its name (and print name)."
  1. I '$G(INDCFLG),$G(TIUDUPS("NOTINDC")) D
  1. . S SUBSCPT="NOTINDC"
  1. . W !!,"You already have the following DDEFS exported by this patch. I cannot create"
  1. . W !,"duplicates. Please change their names so they no longer match exported DDEFS,"
  1. . W !,"or if you are not using them, delete them. If you change the name of a DDEF"
  1. . W !,"you plan to continue using, remember to update its Print Name as well."
  1. . W !,"For help, contact Enterprise VistA Support."
  1. . W !!,"You may not run this option until these matches are eliminated."
  1. I $G(INDCFLG),$G(TIUDUPS("INDC")) D
  1. . S SUBSCPT="INDC"
  1. . W !!,"Your designated C&P Document Class already has matching Titles:"
  1. Q:'$D(SUBSCPT)
  1. S NUM=0
  1. F TIUCNT=1:1:10 S NUM=$O(TIUDUPS(SUBSCPT,NUM)) Q:'NUM D
  1. . W !," "_^TMP("TIU169",$J,"BASICS",NUM,"NAME")
  1. I TIUDUPS(SUBSCPT)>8 W !,"... and more; ",TIUDUPS(SUBSCPT)," in all."
  1. Q
  1. ;
  1. DESGNATE() ; Get Designated DC to create C&P titles under
  1. ; Returns:
  1. ; -1 - timeout, ^, lookup failed
  1. ; 0 - none designated; create new DC
  1. ; DCIFN^DCNAME in 8925.1 - designated DC
  1. N TIUY,DTOUT,DUOUT,DIRUT,DIROUT
  1. W !,"I can create a new C&P Document Class or you can designate an existing one."
  1. W !,"If you designate an existing one, I will change its name to C&P EXAMINATION REPORTS. I will create the new C&P Titles under it, skipping any you already have."
  1. S TIUY=$$READ^TIUU("YO","Do you want to designate a Document Class","YES")
  1. I $D(DIRUT) Q -1
  1. I +TIUY'=1 Q 0
  1. N Y,DIC,DTOUT,DUOUT
  1. S DIC=8925.1,DIC(0)="ABEFQ",DIC("S")="I $P(^(0),U,4)=""DC"",$D(^TIU(8925.1,3,10,""B"",Y))"
  1. D ^DIC
  1. Q Y
  1. ;
  1. NAME ; Names of DDEFS in order from 1 to 58
  1. ;;C&P EXAMINATION REPORTS
  1. ;;C&P EXAMINATION
  1. ;;C&P MULTIPLE EXAM
  1. ;;C&P ACROMEGALY
  1. ;;C&P AID AND ATTENDANCE OR HOUSEBOUND EXAM
  1. ;;C&P ARRHYTHMIAS
  1. ;;C&P ARTERIES, VEINS AND MISC
  1. ;;C&P AUDIO
  1. ;;C&P BONES
  1. ;;C&P BRAIN AND SPINAL CORD
  1. ;;C&P CHRONIC FATIGUE SYNDROME
  1. ;;C&P COLD INJURY PROTOCOL
  1. ;;C&P CRANIAL NERVES
  1. ;;C&P CUSHING'S SYNDROME
  1. ;;C&P DENTAL AND ORAL
  1. ;;C&P DIABETES MELLITUS
  1. ;;C&P DIGESTIVE CONDITIONS
  1. ;;C&P EAR DISEASE
  1. ;;C&P EATING DISORDERS
  1. ;;C&P ENDOCRINE DISEASES
  1. ;;C&P EPILEPSY AND NARCOLEPSY
  1. ;;C&P ESOPHAGUS AND HIATAL HERNIA
  1. ;;C&P EYE
  1. ;;C&P FEET
  1. ;;C&P FIBROMYALGIA
  1. ;;C&P GENERAL MEDICAL
  1. ;;C&P GENITOURINARY
  1. ;;C&P GULF WAR PROTOCOL
  1. ;;C&P GYNECOLOGICAL CONDITIONS AND DISORDERS OF THE BREAST
  1. ;;C&P HAND, THUMB AND FINGERS
  1. ;;C&P HEART
  1. ;;C&P HEMIC DISORDERS
  1. ;;C&P HIV-RELATED ILLNESS
  1. ;;C&P HYPERTENSION
  1. ;;C&P INFECTIOUS, IMMUNE AND NUTRITIONAL DISABILITIES
  1. ;;C&P INTESTINES
  1. ;;C&P JOINTS (SHOULDER, ELBOW, WRIST, HIP, KNEE, ANKLE)
  1. ;;C&P LIVER, GALL BLADDER, AND PANCREAS
  1. ;;C&P LYMPHATIC DISORDERS
  1. ;;C&P MENTAL DISORDERS
  1. ;;C&P MOUTH, LIPS, AND TONGUE
  1. ;;C&P MUSCLES
  1. ;;C&P NEUROLOGICAL DISORDERS
  1. ;;C&P NOSE, SINUS, LARYNX, AND PHARYNX
  1. ;;C&P PERIPHERAL NERVES
  1. ;;C&P PRISONER OF WAR PROTOCOL
  1. ;;C&P PTSD, INITIAL EVALUATION
  1. ;;C&P PTSD, REVIEW
  1. ;;C&P PULMONARY TUBERCULOSIS AND MYCOBACTERIAL DISEASES
  1. ;;C&P RECTUM AND ANUS
  1. ;;C&P RESIDUALS OF AMPUTATIONS
  1. ;;C&P RESPIRATORY
  1. ;;C&P SCARS
  1. ;;C&P SENSE OF SMELL AND TASTE
  1. ;;C&P SKIN DISEASES
  1. ;;C&P SPINE
  1. ;;C&P STOMACH, DUODENUM, AND PERITONEAL ADHESIONS
  1. ;;C&P THYROID AND PARATHYROID DISEASES
  1. Q