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

APCH2P14.m

Go to the documentation of this file. 
  1. APCH2P14 ; IHS/TUCSON/LAB - PCC HEALTH SUMMARY POST INIT PATCH 12 ;  [ 09/07/04  10:26 AM ]
  1.  ;;2.0;IHS RPMS/PCC Health Summary;**14,15**;JUN 24, 1997
  1.  ;
  1.  ;
  1.  ; The following line prevents the "Disable Options..." and "Move
  1.  ; Routines..." questions from being asked during the install.
  1.  I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0
  1.  ;
  1.  Q
  1. PRE ;EP
  1.  S DA=$O(^APCHSCMP("B","MENTAL HEALTH/SOCIAL SERVICES",0))
  1.  I DA S DIE="^APCHSCMP(",DR=".01///BEHAVIORAL HEALTH" D ^DIE K DIE,DA,DR
  1.  S DA=$O(^APCHSCMP("B","SCHEDULED ENCOUNTERS",0))
  1.  I DA S DIE="^APCHSCMP(",DR=".01///SCHEDULED ENCOUNTERS (W/CHART REQ&W/INS);3///SCHEDULED ENCOUNTERS (INCLUDES CHART REQ AND WALK INS)" D ^DIE K DIE,DA,DR
  1.  ;SAVE OFF STATUS FOR EACH REMINDER
  1.  ;K ^APCHTMP("HMR STATUS")
  1.  ;S X=0 F  S X=$O(^APCHSURV(X)) Q:X'=+X  S ^APCHTMP("HMR STATUS",X)=$P(^APCHSURV(X,0),U)_U_$P(^APCHSURV(X,0),U,3)
  1.  Q
  1. POST ;EP
  1.  NEW X
  1.  S DA=$O(^DIC(19,"B","APCH PATIENT HEALTH SUMMARY",0))
  1.  I DA S DIK="^DIC(19," D ^DIK
  1.  K DIK,DA
  1.  S X=$$DELETE^XPDMENU("APCHMENU","APCHPSUM")
  1.  S X=$$ADD^XPDMENU("APCHSBLD","APCHSTED FM","FMMT")
  1.  I 'X W "Attempt to add modify health summary option option failed." H 3
  1.  S X=$$ADD^XPDMENU("APCHSMAINT","APCHSTED FM","FMMT")
  1.  I 'X W "Attempt to add modify health summary option option failed." H 3
  1.  S X=$$ADD^XPDMENU("APCHSBLD","APCH SITE PARAMETER SETUP","HSSP")
  1.  I 'X W "Attempt to add health summary site parameter option failed." H 3
  1.  S X=$$ADD^XPDMENU("APCHSMAINT","APCH SITE PARAMETER SETUP","HSSP")
  1.  I 'X W "Attempt to add health summary site parameter option failed." H 3
  1.  S X=$$DELETE^XPDMENU("APCHSMAINT","APCHPSUM")
  1.  ;I 'X W "Attempt to add PATIENT health summary option failed." H 3
  1.  I '$O(^APCHSCMP("B","MEDS - CHRONIC & ACUTE W/ ISSU",0)) D
  1.  .D ^XBFMK S DIC="^APCHSCMP(",X="MEDS - CHRONIC & ACUTE W/ ISSUE HISTORY",DIC("DR")="2////Y",DIC(0)="L" K DD,DO,D0 D FILE^DICN
  1.  .I Y=-1 W !!,"adding health summary component MEDS - CHRONIC & ACUTE W/ ISSUE HISTORY failed." D ^XBFMK Q
  1.  .S $P(^APCHSCMP(+Y,0),U,2)="MEDSNDUP;APCHS78"
  1.  I '$O(^APCHSCMP("B","MEDS - CHRONIC BY NAME",0)) D
  1.  .D ^XBFMK S DIC="^APCHSCMP(",X="MEDS - CHRONIC BY NAME",DIC("DR")="2////Y;3////CHRONIC MEDICATIONS - SORTED BY DRUG NAME",DIC(0)="L" K DD,DO,D0 D FILE^DICN
  1.  .I Y=-1 W !!,"adding health summary component MEDS - CHRONIC BY NAME failed." D ^XBFMK Q
  1.  .S $P(^APCHSCMP(+Y,0),U,2)="MEDSCHRN;APCHS77"
  1.  I '$O(^APCHSCMP("B","MEDS - CURRENT BY NAME",0)) D
  1.  .D ^XBFMK S DIC="^APCHSCMP(",X="MEDS - CURRENT BY NAME",DIC("DR")="2////Y;3////CURRENT MEDICATIONS - SORTED BY DRUG NAME",DIC(0)="L" K DD,DO,D0 D FILE^DICN
  1.  .I Y=-1 W !!,"adding health summary component MEDS - CURRENT BY NAME failed." D ^XBFMK Q
  1.  .S $P(^APCHSCMP(+Y,0),U,2)="MEDSCURR;APCHS77"
  1.  I '$O(^APCHSCMP("B","RADIOLOGY EXAMS",0)) D
  1.  .D ^XBFMK S DIC="^APCHSCMP(",X="RADIOLOGY EXAMS",DIC("DR")="2////Y",DIC(0)="L" K DD,DO,D0 D FILE^DICN
  1.  .I Y=-1 W !!,"adding health summary component RADIOLOGY failed." D ^XBFMK Q
  1.  .S $P(^APCHSCMP(+Y,0),U,2)="RAD;APCHS3C"
  1.  I '$O(^APCHSCMP("B","EDUCATIONAL ASSESSMENT",0)) D
  1.  .D ^XBFMK S DIC="^APCHSCMP(",X="EDUCATIONAL ASSESSMENT",DIC("DR")="2////N",DIC(0)="L" K DD,DO,D0 D FILE^DICN
  1.  .I Y=-1 W !!,"adding health summary component EDUCATIONAL ASSESSMENT failed." D ^XBFMK Q
  1.  .S $P(^APCHSCMP(+Y,0),U,2)="EDUCASSE;APCHS4A"
  1.  I '$O(^APCHSCMP("B","INFANT FEEDING CHOICE PANEL",0)) D
  1.  .D ^XBFMK S DIC="^APCHSCMP(",X="INFANT FEEDING CHOICE PANEL",DIC(0)="L" K DD,DO,D0 D FILE^DICN
  1.  .I Y=-1 W !!,"adding health summary component INFANT FEEDING CHOICE PANEL failed." D ^XBFMK Q
  1.  .S $P(^APCHSCMP(+Y,0),U,2)="BIRTHM;APCHS8"
  1.  I '$O(^APCHSCMP("B","SCHEDULED ENCS (W/O CHART REQ ",0)) D
  1.  .D ^XBFMK S DIC="^APCHSCMP(",X="SCHEDULED ENCS (W/O CHART REQ & W/INS)",DIC("DR")="2////Y",DIC(0)="L" K DD,DO,D0 D FILE^DICN
  1.  .I Y=-1 W !!,"adding health summary component INFANT FEEDING CHOICE PANEL failed." D ^XBFMK Q
  1.  .S $P(^APCHSCMP(+Y,0),U,2)="SCHENC;APCHS2J"
  1.  .S $P(^APCHSCMP(+Y,0),U,4)="SCHEDULED ENCOUNTERS (EXCLUDES CHART REQ AND WALK INS)"
  1.  S DIK="^APCHSCTL(" D IXALL^DIK
  1.  S DIK="^APCHSURV(" D IXALL^DIK
  1.  D ^APCHTX
  1.  S DA=$O(^ATXAX("B","APCH GLUCOSE SCREENING LOINC",0))
  1.  I DA S $P(^ATXAX(DA,0),U,4)="n",$P(^ATXAX(DA,0),U,22)=1
  1.  S DA=$O(^ATXAX("B","APCH HCT/HGB LOINC CODES",0))
  1.  I DA S $P(^ATXAX(DA,0),U,4)="n",$P(^ATXAX(DA,0),U,22)=1
  1.  S DA=$O(^ATXAX("B","SURVEILLANCE PNEUMOCOCCAL RISK",0))
  1.  I DA S $P(^ATXAX(DA,0),U,4)="n",$P(^ATXAX(DA,0),U,22)=1
  1.  S DA=$O(^ATXAX("B","APCH PNEUMOVAX REVAX",0))
  1.  I DA S $P(^ATXAX(DA,0),U,4)="n",$P(^ATXAX(DA,0),U,22)=1
  1.  S DA=$O(^ATXAX("B","APCH ISCHEMIC HEART DISEASE",0))
  1.  I DA S $P(^ATXAX(DA,0),U,4)="n",$P(^ATXAX(DA,0),U,22)=1
  1.  S DA=$O(^ATXAX("B","DM AUDIT PRE-DIABETES DXS",0))
  1.  I DA S $P(^ATXAX(DA,0),U,4)="n",$P(^ATXAX(DA,0),U,22)=1
  1.  S DA=$O(^ATXAX("B","DM AUDIT ESTIMATED GFR LOINC",0))
  1.  I DA S $P(^ATXAX(DA,0),U,4)="n",$P(^ATXAX(DA,0),U,22)=1
  1. DUPE ;
  1.  K APCHY,APCHZ S APCHX=0,APCHC=0 F  S APCHX=$O(^APCHSCMP(APCHX)) Q:APCHX'=+APCHX  D
  1.  .I $P(^APCHSCMP(APCHX,0),U)'="MEDS - CHRONIC EXCLUDING D/C'ED MEDS" Q
  1.  .S APCHC=APCHC+1,APCHY(APCHC)=APCHX,APCHZ(APCHX)=""
  1.  I APCHC>1 D
  1.  .;loop through types and change to first one
  1.  .S APCHUSE=APCHY(1)
  1.  .K APCHZ(APCHY(1)),APCHY(1)
  1.  .S APCHT=0 F  S APCHT=$O(^APCHSCTL(APCHT)) Q:APCHT'=+APCHT  D
  1.  ..S APCH1=0 F  S APCH1=$O(^APCHSCTL(APCHT,1,APCH1)) Q:APCH1'=+APCH1  D
  1.  ...S APCH2=$P(^APCHSCTL(APCHT,1,APCH1,0),U,2)
  1.  ...Q:'$D(APCHZ(APCH2))
  1.  ...S DIE="^APCHSCTL("_APCHT_",1,",DA=APCH1,DA(1)=APCHT,DR="1////"_APCHUSE D ^DIE
  1.  .S DA=0 F  S DA=$O(APCHZ(DA)) Q:DA'=+DA  S DIK="^APCHSCMP(" D ^DIK
  1.  K APCHY,APCHZ S APCHX=0,APCHC=0 F  S APCHX=$O(^APCHSCMP(APCHX)) Q:APCHX'=+APCHX  D
  1.  .I $P(^APCHSCMP(APCHX,0),U)'="PATIENT ED - MOST RECENT BY TOPIC" Q
  1.  .S APCHC=APCHC+1,APCHY(APCHC)=APCHX,APCHZ(APCHX)=""
  1.  I APCHC>1 D
  1.  .;loop through types and change to first one
  1.  .S APCHUSE=APCHY(1)
  1.  .K APCHZ(APCHY(1)),APCHY(1)
  1.  .S APCHT=0 F  S APCHT=$O(^APCHSCTL(APCHT)) Q:APCHT'=+APCHT  D
  1.  ..S APCH1=0 F  S APCH1=$O(^APCHSCTL(APCHT,1,APCH1)) Q:APCH1'=+APCH1  D
  1.  ...S APCH2=$P(^APCHSCTL(APCHT,1,APCH1,0),U,2)
  1.  ...Q:'$D(APCHZ(APCH2))
  1.  ...S DIE="^APCHSCTL("_APCHT_",1,",DA=APCH1,DA(1)=APCHT,DR="1////"_APCHUSE D ^DIE
  1.  .S DA=0 F  S DA=$O(APCHZ(DA)) Q:DA'=+DA  S DIK="^APCHSCMP(" D ^DIK
  1.  S APCHST="CAT" F APCHSX=1:1:999 S APCH1=$P($T(@APCHST+APCHSX),";;",2,99) Q:APCH1=""  D
  1.  .K DIC S X=$P(APCH1,";;",1),DIC="^APCHSURV(",DIC(0)="M" D ^DIC K DIC
  1.  .I Y=-1 Q
  1.  .S DA=+Y,DR=".05///"_$P(APCH1,";;",2),DIE="^APCHSURV(" D ^DIE K DIE,DA,DR
  1.  .I $D(Y) W !,"category not updated. ",X
  1.  .Q
  1.  ;PUT STATUS BACK IN
  1.  ;S APCHX=0 F  S APCHX=$O(^APCHTMP("HMR STATUS",APCHX)) Q:APCHX'=+APCHX  D
  1.  ;.S X=$P(^APCHTMP("HMR STATUS",APCHX),U),APCHS=$P(^APCHTMP("HMR STATUS",APCHX),U,2),DIC="^APCHSURV(",DIC(0)="M" D ^DIC
  1.  ;.I Y=-1 W !!,"could not update status on ",X," hmr" Q
  1.  ;.S $P(^APCHSURV(+Y,0),U,3)=APCHS
  1.  ;I '$$INSTALLD("APCH*2.00*11") D
  1.  ;.S DA=$O(^APCHSURV("B","IHD-Elevated LDL Prompt",0))
  1.  ;.I DA S DR=".03///I",DIE="^APCHSURV(" D ^DIE K DIE,DA,DR
  1.  ;.S DA=$O(^APCHSURV("B","IHD-LDL Screening",0))
  1.  ;.I DA S DR=".03///I",DIE="^APCHSURV(" D ^DIE K DIE,DA,DR
  1.  ;.S DA=$O(^APCHSURV("B","ADULT MMR 1-DOSE VERSION",0))
  1.  ;.I DA S DR=".03///I",DIE="^APCHSURV(" D ^DIE K DIE,DA,DR
  1.  ;.S DA=$O(^APCHSURV("B","ADULT MMR 2-DOSE VERSION",0))
  1.  ;.;I DA S DR=".03///I",DIE="^APCHSURV(" D ^DIE K DIE,DA,DR
  1.  ;.S DA=$O(^APCHSURV("B","RUBELLA VACCINATION",0))
  1.  ;.I DA S DR=".03///I",DIE="^APCHSURV(" D ^DIE K DIE,DA,DR
  1. BUL ;
  1.  D SETTAXL
  1.  D CLNTAX
  1.  ;D SETPROT  ;NOT YET
  1.  D ^APCHBU14
  1.  Q
  1. TAXREAD ;
  1.  S ATXPNSP=""
  1.  S APCHTEXT="TAX" F APCHX=1:1 S APCHDATA=$P($T(@APCHTEXT+APCHX),";;",2) Q:APCHDATA=""  D
  1.  .S APCHDA=$O(^ATXAX("B",$P(APCHDATA,"|"),0))
  1.  .Q:APCHDA=""
  1.  .S $P(^ATXAX(APCHDA,0),U,4)="n" W !,$P(APCHDATA,"|")  ;SET NO DELETE
  1.  .S $P(^ATXAX(APCHDA,0),U,22)=$P(APCHDATA,"|",2) ;set read only
  1.  .;set packages in multiple
  1.  .K DIC,DA,DR
  1.  .S APCHP=$P(APCHDATA,"|",3)
  1.  .F APCHN=1:1 S APCHPP=$P(APCHP,"*",APCHN) Q:APCHPP=""  D
  1.  ..S APCHPI=$O(^DIC(9.4,"C",APCHPP,0))
  1.  ..Q:APCHPI=""  ;NO PACKAGE
  1.  ..S X="`"_APCHPI,DIC="^ATXAX("_APCHDA_",41,",DIC(0)="L",DIC("P")=$P(^DD(9002226,4101,0),U,2),DA(1)=APCHDA
  1.  ..D ^DIC
  1.  ..I Y=-1 W !,"updating package multiple for ",APCHPP," entry ",$P(^ATXAX(APCHDA,0),U)," failed"
  1.  ..K DIC,DA,Y,X
  1.  .Q
  1.  Q
  1. SET ;
  1.  S X=0 F  S X=$O(^ATXAX(X)) Q:X'=+X  D
  1.  .S Y=$P(^ATXAX(X,0),U)
  1.  .S L=$L(APCHPNSP)
  1.  .I $E(Y,1,L)=APCHPNSP S $P(^ATXAX(X,0),U,4)="n" W !,Y
  1.  .Q
  1.  Q
  1. SETPROT ;
  1.  S APCHE=$O(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0)) Q:'APCHE
  1.  S APCHITEM="APCH CHECK-IN PRINT PAT HS"
  1.  I $D(^ORD(101,"B",APCHITEM)) D           ;if protocol exists
  1.  . S APCHIEN=$O(^ORD(101,"B",APCHITEM,0)) Q:'APCHIEN
  1.  . Q:$D(^ORD(101,APCHE,10,"B",APCHIEN))   ;already added to event driver
  1.  . ;
  1.  . ; go ahead and add it
  1.  . S DIC="^ORD(101,"_APCHE_",10,",DIC(0)="L",DLAYGO=101.01
  1.  . S DA(1)=APCHE,DIC("P")="101.01PA",X=APCHIEN
  1.  . S DIC("DR")="3///31"
  1.  . K DD,DO D FILE^DICN
  1.  . Q
  1.  Q
  1. LAB1 ;
  1.  S APCHDA=$O(^ATXLAB("B",APCHX,0))
  1.  Q:APCHDA  ;taxonomy already exisits
  1.  W !,"Creating ",APCHX," Taxonomy..."
  1.  S X=APCHX,DIC="^ATXLAB(",DIC(0)="L",DIADD=1,DLAYGO=9002228 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1.  I Y=-1 W !!,"ERROR IN CREATING ",APCHX," TAX" Q
  1.  S APCHTX=+Y,$P(^ATXLAB(APCHTX,0),U,2)=APCHX,$P(^(0),U,5)=DUZ,$P(^(0),U,6)=DT,$P(^(0),U,8)="B",$P(^(0),U,9)=60,^ATXLAB(APCHTX,21,0)="^9002228.02101PA^0^0"
  1.  S DA=APCHTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1. SETTAXL ;
  1.  Q:'$D(^DD(9002228,4101,0))  ;taxonomy patch not yet installed
  1.  S APCHTEXT="LABTAX" F BGPX=1:1 S APCHDATA=$P($T(@APCHTEXT+APCHX),";;",2) Q:APCHDATA=""  D
  1.  .S APCHDA=$O(^ATXLAB("B",$P(APCHDATA,"|"),0))
  1.  .Q:APCHDA=""
  1.  .S $P(^ATXLAB(APCHDA,0),U,4)="n" W !,$P(APCHDATA,"|")  ;SET NO DELETE
  1.  .S $P(^ATXLAB(APCHDA,0),U,22)=$P(APCHDATA,"|",2) ;set read only
  1.  .;set packages in multiple
  1.  .K DIC,DA,DR
  1.  .S APCHP=$P(APCHDATA,"|",3)
  1.  .F APCHN=1:1 S APCHPP=$P(APCHP,"*",APCHN) Q:APCHPP=""  D
  1.  ..S APCHPI=$O(^DIC(9.4,"C",APCHPP,0))
  1.  ..Q:APCHPI=""  ;NO PACKAGE
  1.  ..S X="`"_APCHPI,DIC="^ATXLAB("_APCHDA_",41,",DIC(0)="L",DIC("P")=$P(^DD(9002228,4101,0),U,2),DA(1)=APCHDA
  1.  ..D ^DIC
  1.  ..I Y=-1 W !,"updating package multiple for ",APCHPP," entry ",$P(^ATXLAB(APCHDA,0),U)," failed"
  1.  ..K DIC,DA,Y,X
  1.  .Q
  1.  Q
  1. LABTAX ;
  1.  ;;BGP GPRA ESTIMATED GFR TAX|0|BGP*APCH
  1.  ;;APCH FECAL OCCULT BLOOD
  1.  ;;APCH HCT/HGB TESTS
  1.  ;;DM AUDIT 2 HR GTT TAX
  1.  ;;
  1. INSTALLD(APCHSTAL) ;EP - Determine if patch APCHSTAL was installed, where
  1.  ; APCHSTAL is the name of the INSTALL.  E.g "AG*6.0*11".
  1.  ;
  1.  NEW APCHY,DIC,X,Y
  1.  S X=$P(APCHSTAL,"*",1)
  1.  S DIC="^DIC(9.4,",DIC(0)="FM",D="C"
  1.  D IX^DIC
  1.  I Y<1 D IMES Q 0
  1.  S DIC=DIC_+Y_",22,",X=$P(APCHSTAL,"*",2)
  1.  D ^DIC
  1.  I Y<1 D IMES Q 0
  1.  S DIC=DIC_+Y_",""PAH"",",X=$P(APCHSTAL,"*",3)
  1.  D ^DIC
  1.  S APCHY=Y
  1.  D IMES
  1.  Q $S(APCHY<1:0,1:1)
  1. IMES ;
  1.  D MES^XPDUTL($$CJ^XLFSTR("Patch """_APCHSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))
  1.  Q
  1. CLNTAX ;
  1.  S ATXFLG=1
  1.  W !,"Creating Clinic exclusions taxonomy..."
  1.  S BGPDA=0 S BGPDA=$O(^ATXAX("B","APCH CLINIC STOP FOR PT HS",BGPDA))
  1.  I BGPDA Q  ;S DA=BGPDA S DIK="^ATXAX(" D ^DIK K DA,DIK
  1.  S X="APCH CLINIC STOP FOR PT HS",DIC="^ATXAX(",DIC(0)="L",DIADD=1,DLAYGO=9002226 D ^DIC K DIC,DA,DIADD,DLAYGO,I
  1.  I Y=-1 W !!,"ERROR IN CREATING APCH CLINIC STOP FOR PT HS TAX" Q
  1.  S BGPTX=+Y,$P(^ATXAX(BGPTX,0),U,2)="APCH CLINIC STOP FOR PT HS",$P(^(0),U,5)=DUZ,$P(^(0),U,8)=0,$P(^(0),U,9)=DT,$P(^(0),U,12)=172,$P(^(0),U,13)=0,$P(^(0),U,15)=40.7,^ATXAX(BGPTX,21,0)="^9002226.02101A^0^0"
  1.  D ^XBFMK K DIADD,DLAYGO S BGPTEXT="CLINICS" F BGPX=1:1:17 S X=$P($T(@BGPTEXT+BGPX),";;",2),Y=$O(^DIC(40.7,"C",X,0)) W !,Y," ",X I Y D
  1.  .S ^ATXAX(BGPTX,21,BGPX,0)=+Y,$P(^ATXAX(BGPTX,21,0),U,3)=BGPX,$P(^(0),U,4)=BGPX,^ATXAX(BGPTX,21,"AA",+Y,+Y)=""
  1.  .Q
  1.  S DA=BGPTX,DIK="^ATXAX(" D IX1^DIK
  1.  Q
  1.  ;
  1. CLINICS ;;
  1.  ;;77
  1.  ;;52
  1.  ;;56
  1.  ;;60
  1.  ;;68
  1.  ;;53
  1.  ;;09
  1.  ;;22
  1.  ;;90
  1.  ;;51
  1.  ;;99
  1.  ;;41
  1.  ;;42
  1.  ;;A9
  1.  ;;39
  1.  ;;45
  1.  ;;54
  1.  ;;
  1. CAT ;
  1.  ;;BREAST EXAM;;GENERAL
  1.  ;;DIABETES SCREENING;;DIABETES
  1.  ;;BLOOD PRESSURE;;GENERAL
  1.  ;;PAP SMEAR;;GENERAL
  1.  ;;RECTAL;;GENERAL
  1.  ;;TONOMETRY;;GENERAL
  1.  ;;URINALYSIS;;GENERAL
  1.  ;;PELVIC EXAM;;GENERAL
  1.  ;;VISUAL ACUITY EXAM;;GENERAL
  1.  ;;HEARING TEST;;GENERAL
  1.  ;;HCT/HGB;;GENERAL
  1.  ;;ENDEMIC TB;;GENERAL
  1.  ;;NON-ENDEMIC TB;;GENERAL
  1.  ;;HEAD CIRCUMFERENCE;;GENERAL
  1.  ;;HEIGHT;;GENERAL
  1.  ;;WEIGHT;;GENERAL
  1.  ;;IMMUNIZATIONS;;GENERAL
  1.  ;;HEARING TEST ANNUAL;;GENERAL
  1.  ;;MAMMOGRAM;;GENERAL
  1.  ;;PNEUMOVAX;;GENERAL
  1.  ;;DM FOOT EXAM;;
  1.  ;;DM EYE EXAM;;
  1.  ;;SCREEN FOR ALCOHOL USE;;GENERAL
  1.  ;;SCREEN FOR TOBACCO USE;;GENERAL
  1.  ;;DM CHOLESTEROL;;
  1.  ;;DM CREATININE;;
  1.  ;;DM TRIGLYCERIDE;;
  1.  ;;DM DENTAL EXAM;;
  1.  ;;PHYSICAL EXAM;;GENERAL
  1.  ;;TD-ADULT;;GENERAL
  1.  ;;INFLUENZA;;GENERAL
  1.  ;;COLORECTAL CA SCRN-FOBT;;GENERAL
  1.  ;;CHOLESTEROL;;GENERAL
  1.  ;;DM URINE PROTEIN;;
  1.  ;;COLORECTAL CA-SCOPE/XRAY;;GENERAL
  1.  ;;ALASKA DOMESTIC VIOLENCE;;GENERAL
  1.  ;;HEARING INQUIRY;;GENERAL
  1.  ;;STRABISMUS/AMBLYOPIA SCREEN;;GENERAL
  1.  ;;PPD - TUBERCULOSIS;;GENERAL
  1.  ;;ANMC DEPRESSION SCREEN SCORE;;GENERAL
  1.  ;;REHAB/FUNCTIONAL SCREEN;;GENERAL
  1.  ;;ANMC COLORECTAL;;GENERAL
  1.  ;;ASTHMA - ADD/INCREASE INHALED STERIODS;;ASTHMA
  1.  ;;ASTHMA - PRIMARY CARE PROVIDER;;ASTHMA
  1.  ;;ASTHMA - SEVERITY CLASSIFICATION;;ASTHMA
  1.  ;;ASTHMA - MANAGEMENT PLAN;;ASTHMA
  1.  ;;ASTHMA PATIENT-FLU SHOT;;ASTHMA
  1.  ;;IHD-LDL Screening;;CARDIOVASCULAR DISEASE
  1.  ;;IHD-Elevated LDL Prompt;;CARDIOVASCULAR DISEASE
  1.  ;;ADULT MMR 1-DOSE VERSION;;GENERAL
  1.  ;;ADULT MMR 2-DOSE VERSION;;GENERAL
  1.  ;;RUBELLA VACCINATION;;GENERAL
  1.  ;;
  1. TAX ;
  1.  ;;APCH GLUCOSE SCREENING LOINC|1|APCH
  1.  ;;APCH DM ADA EXAMS|0|APCH
  1.  ;;APCH CLINIC STOP FOR PT HS|1|APCH
  1.  ;;APCH HCT/HGB LOINC CODES|1|APCH
  1.  ;;APCH ISCHEMIC HEART DISEASE|1|APCH
  1.  ;;APCH PNEUMOVAX REVAX|1|APCH
  1.  ;;DM AUDIT ESTIMATED GFR LOINC|1|APCH*APCL
  1.  ;;