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

ACHSPOS6.m

Go to the documentation of this file. 
  1. ACHSPOS6 ; IHS/ITSC/PMF - DATA FOR DEFERRED SERVICES CATEGORY FILE ;  [ 10/19/2001  11:01 AM ]
  1.  ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**18**;JUN 11, 2001
  1.  ;ACHS*3.1*18 7/16/2010;IHS/OIT/ABK;Change every occurrance of Deferred to Unmet Need
  1.  ;
  1.  S $ZT="ERROR^"_$ZN
  1.  S %H=$H D YX^%DTC S NOW=Y
  1.  S ^ACHSINST(ACHSVERS,$ZN,"ENTERED")=NOW
  1.  ;
  1.  I $D(ACHSINST(ACHSVERS,"ERROR")) S ^ACHSINST(ACHSVERS,"ERROR","PREVIOUS ERRORS HAVE NOT BEEN CLEARED")=NOW S ERROR=1,XPDABORT=1 D START^ACHSPOSM(ERROR) Q
  1.  ;
  1.  ;IF FILE CHECKSOK THE FILE HAS ENTRIES DON'T OVERWRITE
  1.  ;{ABK,7/16/10}I $$CHECKSOK("") S %H=$H D YX^%DTC S NOW=Y S ^ACHSINST(ACHSVERS,$ZN,"CHS DEFERRED SERVICES CATEGORY DATA FOUND")=NOW W !?15,"'CHS DEFERRED SERVICES CATEGORY' data found! Not overwriting!" D END Q
  1.  I $$CHECKSOK("") S %H=$H D YX^%DTC S NOW=Y S ^ACHSINST(ACHSVERS,$ZN,"CHS UNMET NEEDS CATEGORY DATA FOUND")=NOW W !?15,"'CHS DEFERRED SERVICES CATEGORY' data found! Not overwriting!" D END Q
  1.  ;
  1.  ;
  1.  N A,B,C
  1.  F A=1:2 S B=$P($T(TAG+A),";;",2) Q:B=""  S @B=$P($T(TAG+(A+1)),";;",2)
  1.  D ENTER
  1. END ;
  1.  S %H=$H D YX^%DTC S NOW=Y
  1.  S ^ACHSINST(ACHSVERS,$ZN,"FINISHED")=NOW
  1.  ;
  1.  Q
  1. ENTER ;
  1.  ;
  1.  S %H=$H D YX^%DTC S NOW=Y
  1.  S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"ENTERED")=NOW
  1.  ;
  1.  ;{ABK,7/16/10}W !?15,"'CHS DEFERRED SERVICES CATEGORY' data not found!"
  1.  W !?15,"'CHS UNMET NEEDS CATEGORY' data not found!"
  1.  W !?15,"Loading data! Loading data!"
  1.  S X="^TMP("_$J_",""DFC"")"
  1.  F  S X=$Q(@X) Q:X=""!(X'[("""DFC"""))  D
  1.  .S GLOBAL="^ACHSDFC("_$P(X,",",3,299)
  1.  .S @GLOBAL=@X
  1.  S DIK="^ACHSDFC(" D IXALL^DIK
  1.  ;
  1.  S %H=$H D YX^%DTC S NOW=Y
  1.  S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"FINISHED")=NOW
  1.  Q
  1.  ;
  1.  ;RESET 0 NODE AND RETURN NUMBER OF ENTRIES
  1. CHECKSOK(X) ;
  1.  ;
  1.  ;{ABK,7/16/10}I '$D(^ACHSDFC(0)) S ^ACHSDFC(0)="CHS DEFERRED SERVICES CATEGORY^9002066.5^0^0"
  1.  I '$D(^ACHSDFC(0)) S ^ACHSDFC(0)="CHS UNMET NEEDS CATEGORY^9002066.5^0^0"
  1.  E  S $P(^ACHSDFC(0),U,2)=9002066.5
  1.  ;
  1.  ;LETS FIX THE SUBFILE NUMBERS
  1.  S CAT=0
  1.  F  S CAT=$O(^ACHSDFC(CAT)) Q:+CAT=0  D
  1.  .S $P(^ACHSDFC(CAT,1,0),U,2)=9002066.51
  1.  ;
  1.  S XBCFIXFL=9002066.5
  1.  D XBCFIXFL^XBCFIX
  1.  Q $G(XBCFIXC)
  1.  ;
  1. ERROR S ^ACHSINST(ACHSVERS,"ERROR",$ZN,"ERROR TRAP CALLED")=""
  1.  G ^%ET
  1.  Q
  1. TAG ;
  1.  ;;^TMP($J,"DFC",1,0)
  1.  ;;A-PREVENTIVE SERVICES
  1.  ;;^TMP($J,"DFC",1,1,0)
  1.  ;;^9002066.51^13^13
  1.  ;;^TMP($J,"DFC",1,1,1,0)
  1.  ;;AUDOLOGIST EVALUATIONS
  1.  ;;^TMP($J,"DFC",1,1,2,0)
  1.  ;;HEARING AIDS (V53.2)
  1.  ;;^TMP($J,"DFC",1,1,3,0)
  1.  ;;ALLERGY TESTING, INJECTIONS, ETC.
  1.  ;;^TMP($J,"DFC",1,1,4,0)
  1.  ;;ANTENATAL SCREENING (V28.1)
  1.  ;;^TMP($J,"DFC",1,1,5,0)
  1.  ;;VASECTOMIES
  1.  ;;^TMP($J,"DFC",1,1,6,0)
  1.  ;;TUBAL LIGATIONS
  1.  ;;^TMP($J,"DFC",1,1,7,0)
  1.  ;;MAMMOGRAMS
  1.  ;;^TMP($J,"DFC",1,1,8,0)
  1.  ;;PODIATRY CARE FOR DIABETICS
  1.  ;;^TMP($J,"DFC",1,1,9,0)
  1.  ;;PAP SMEAR (ROUTINE)
  1.  ;;^TMP($J,"DFC",1,1,10,0)
  1.  ;;PHYSICAL THERAPY
  1.  ;;^TMP($J,"DFC",1,1,11,0)
  1.  ;;REFRACTIONS, GLASSES, CONTACT LENSES
  1.  ;;^TMP($J,"DFC",1,1,12,0)
  1.  ;;SEXUALLY TRANSMITTED DISEASE SERVICES
  1.  ;;^TMP($J,"DFC",1,1,13,0)
  1.  ;;OTHER
  1.  ;;^TMP($J,"DFC",2,0)
  1.  ;;B-ACUTE/CHRONIC PRI/SEC CARE
  1.  ;;^TMP($J,"DFC",2,1,0)
  1.  ;;^9002066.51^51^51
  1.  ;;^TMP($J,"DFC",2,1,1,0)
  1.  ;;CARDIAC CATH
  1.  ;;^TMP($J,"DFC",2,1,2,0)
  1.  ;;ARTERIOGRAM
  1.  ;;^TMP($J,"DFC",2,1,3,0)
  1.  ;;ANGIOGRAM
  1.  ;;^TMP($J,"DFC",2,1,4,0)
  1.  ;;OTHER CARDIAC PROCEDURES
  1.  ;;^TMP($J,"DFC",2,1,5,0)
  1.  ;;STRESS TESTS
  1.  ;;^TMP($J,"DFC",2,1,6,0)
  1.  ;;ORTHODONTICS (BRACES)
  1.  ;;^TMP($J,"DFC",2,1,7,0)
  1.  ;;PROSTHODONTICS (CROWN, BRIDGE)
  1.  ;;^TMP($J,"DFC",2,1,8,0)
  1.  ;;ENDODONTICS (ROOT CANAL)
  1.  ;;^TMP($J,"DFC",2,1,9,0)
  1.  ;;PERIODONTICS (GUM SURGERY)
  1.  ;;^TMP($J,"DFC",2,1,10,0)
  1.  ;;ORAL SURGERY
  1.  ;;^TMP($J,"DFC",2,1,11,0)
  1.  ;;OTHER DENTAL
  1.  ;;^TMP($J,"DFC",2,1,12,0)
  1.  ;;NON-ACUTE OTITIS MEDIA
  1.  ;;^TMP($J,"DFC",2,1,13,0)
  1.  ;;TYMPANOPLASTIES
  1.  ;;^TMP($J,"DFC",2,1,14,0)
  1.  ;;T & A'S
  1.  ;;^TMP($J,"DFC",2,1,15,0)
  1.  ;;SEPTO-RHINOPLASTIES
  1.  ;;^TMP($J,"DFC",2,1,16,0)
  1.  ;;P E TUBES
  1.  ;;^TMP($J,"DFC",2,1,17,0)
  1.  ;;OTHER ENT
  1.  ;;^TMP($J,"DFC",2,1,18,0)
  1.  ;;HYSTERECTOMY
  1.  ;;^TMP($J,"DFC",2,1,19,0)
  1.  ;;OTHER GYN ELECTIVE PROCEDURES
  1.  ;;^TMP($J,"DFC",2,1,20,0)
  1.  ;;DERMATOLOGY
  1.  ;;^TMP($J,"DFC",2,1,21,0)
  1.  ;;EEG/EMG
  1.  ;;^TMP($J,"DFC",2,1,22,0)
  1.  ;;INTERNAL MEDICINE
  1.  ;;^TMP($J,"DFC",2,1,23,0)
  1.  ;;NEPHROLOGY/IVP'S
  1.  ;;^TMP($J,"DFC",2,1,24,0)
  1.  ;;HEMATOLOGY
  1.  ;;^TMP($J,"DFC",2,1,25,0)
  1.  ;;ONCOLOGY
  1.  ;;^TMP($J,"DFC",2,1,26,0)
  1.  ;;GI/GASTROSCOPY
  1.  ;;^TMP($J,"DFC",2,1,27,0)
  1.  ;;PULMONARY
  1.  ;;^TMP($J,"DFC",2,1,28,0)
  1.  ;;CAT SCANS/NUCLEAR MED/MRI
  1.  ;;^TMP($J,"DFC",2,1,29,0)
  1.  ;;ENDROCRINOLOGY
  1.  ;;^TMP($J,"DFC",2,1,30,0)
  1.  ;;RHEUMATOLOGY
  1.  ;;^TMP($J,"DFC",2,1,31,0)
  1.  ;;PODIATRY
  1.  ;;^TMP($J,"DFC",2,1,32,0)
  1.  ;;GENETIC COUNSELLING
  1.  ;;^TMP($J,"DFC",2,1,33,0)
  1.  ;;OTHER REFERRALS/PROCEDURES
  1.  ;;^TMP($J,"DFC",2,1,34,0)
  1.  ;;CATARACT SURGERY
  1.  ;;^TMP($J,"DFC",2,1,35,0)
  1.  ;;DIABETIC RETINOPATHY/LASER
  1.  ;;^TMP($J,"DFC",2,1,36,0)
  1.  ;;OTHER OPTHALMOLOGIC
  1.  ;;^TMP($J,"DFC",2,1,37,0)
  1.  ;;ARTHROSCOPY
  1.  ;;^TMP($J,"DFC",2,1,38,0)
  1.  ;;TENDON REPAIR/CARPAL TUNNEL
  1.  ;;^TMP($J,"DFC",2,1,39,0)
  1.  ;;OTHER ORTHOPEDIC
  1.  ;;^TMP($J,"DFC",2,1,40,0)
  1.  ;;PROSTHETIC DEVICES V52 (ART. LIMBS, BRACES, ETC)
  1.  ;;^TMP($J,"DFC",2,1,41,0)
  1.  ;;OTHER DEVICES (SHOE INSERTS, SHOES, STOCKINGS)
  1.  ;;^TMP($J,"DFC",2,1,42,0)
  1.  ;;WHEELCHAIRS
  1.  ;;^TMP($J,"DFC",2,1,43,0)
  1.  ;;OTHER PROSTHETICS/ORTHOTICS
  1.  ;;^TMP($J,"DFC",2,1,44,0)
  1.  ;;PSYCHIATRIC EVALUATIONS
  1.  ;;^TMP($J,"DFC",2,1,45,0)
  1.  ;;HEMORRHOIDECTOMY
  1.  ;;^TMP($J,"DFC",2,1,46,0)
  1.  ;;CHOLECYSTECTOMY
  1.  ;;^TMP($J,"DFC",2,1,47,0)
  1.  ;;CIRCUMCISIONS
  1.  ;;^TMP($J,"DFC",2,1,48,0)
  1.  ;;COLONSCOPY
  1.  ;;^TMP($J,"DFC",2,1,49,0)
  1.  ;;HERNIA REPAIR
  1.  ;;^TMP($J,"DFC",2,1,50,0)
  1.  ;;UROLOGY/CYSTOSCOPY
  1.  ;;^TMP($J,"DFC",2,1,51,0)
  1.  ;;OTHER SURGICAL REFERRALS/PROCEDURES
  1.  ;;^TMP($J,"DFC",3,0)
  1.  ;;C-ACUTE/CHRONIC TERTIARY CARE
  1.  ;;^TMP($J,"DFC",3,1,0)
  1.  ;;^9002066.51^8^8
  1.  ;;^TMP($J,"DFC",3,1,1,0)
  1.  ;;CORONARY BYPASS & VASCULAR SURGERY
  1.  ;;^TMP($J,"DFC",3,1,2,0)
  1.  ;;TRANSPLANTS V42
  1.  ;;^TMP($J,"DFC",3,1,3,0)
  1.  ;;RESTORATIVE ORTHO (eg. HIP,KNEE REPLACEMENT)
  1.  ;;^TMP($J,"DFC",3,1,4,0)
  1.  ;;RECONSTRUCTIVE SURGERY (CLEFT PALATE, SKIN GRAFTS)
  1.  ;;^TMP($J,"DFC",3,1,5,0)
  1.  ;;PACEMAKER IMPLANTS
  1.  ;;^TMP($J,"DFC",3,1,6,0)
  1.  ;;KIDNEY STONES (LITHOTRIPSY, ETC)
  1.  ;;^TMP($J,"DFC",3,1,7,0)
  1.  ;;GALL STONES (LITHOTRIPSY, ETC)
  1.  ;;^TMP($J,"DFC",3,1,8,0)
  1.  ;;OTHER ACUTE/CHRONIC TERTIARY CARE
  1.  ;;