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

WV1024P.m

Go to the documentation of this file. 
  1. WV1024P ;ISP/RFR - PATCH 24 INSTALLATION TASKS;03/25/2020
  1.  ;;1.0;WOMEN'S HEALTH;**24**;Sep 30, 1998;Build 582
  1.  I '$$PATCH^XPDUTL("WV*1.0*24") D
  1.  .N X
  1.  .F X=42,45,46,47 D
  1.  ..I $P($G(^WV(790.2,X,0)),U)'="" D
  1.  ...W !,"WV Procedure Type entry found at IEN: "_X S XPDABORT=2
  1.  Q
  1.  ;
  1. PRE ;PRE-INSTALL ACTIONS
  1.  D BMES^XPDUTL("  Deleting data dictionaries:")
  1.  D MES^XPDUTL("    WV PREGNANCY LOG (#790.05)")
  1.  N DIU
  1.  S DIU=790.05,DIU(0)="T"
  1.  D EN^DIU2
  1.  D MES^XPDUTL("    WV CASE MANAGER (#790.01)")
  1.  S DIU=790.01,DIU(0)=""
  1.  D EN^DIU2
  1.  D MES^XPDUTL("    CURRENTLY PREGNANT FIELD (#.13) IN WV PATIENT FILE")
  1.  N DIK,DA
  1.  S DIK="^DD(790,",DA=.13,DA(1)=790
  1.  D ^DIK
  1.  D MES^XPDUTL("    EDC FIELD (#.14) IN WV PATIENT FILE")
  1.  S DIK="^DD(790,",DA=.14,DA(1)=790
  1.  D ^DIK
  1.  D MES^XPDUTL("  Finished deleting data dictionaries")
  1.  I $$LKOPT^XPDMENU("WV EDIT PREGNANCY LOG")>0 D
  1.  .D BMES^XPDUTL("  Renaming option WV EDIT PREGNANCY LOG")
  1.  .D RENAME^XPDMENU("WV EDIT PREGNANCY LOG","WV EDIT PREG/LAC STATUS DATA")
  1.  .D MES^XPDUTL("  Finished renaming option WV EDIT PREGNANCY LOG")
  1.  N WVMSGS,WVSTAT
  1.  S WVMSGS(1)=" "
  1.  S WVMSGS(2)="  Removing the Transfer a Case Manager's Patients option"
  1.  S WVMSGS(3)="   from the FILE MAINTENANCE MENU"
  1.  D BMES^XPDUTL(.WVMSGS)
  1.  S WVSTAT=$$DELETE^XPDMENU("WV MENU-FILE MAINTENANCE","WV TRANSFER CASE MANAGER")
  1.  I WVSTAT D MES^XPDUTL("    Option successfully removed")
  1.  I 'WVSTAT D MES^XPDUTL("    Option not removed")
  1.  D SETMRI,GETACC,GETCOM
  1.  D SETBTOMO
  1.  Q
  1.  ;
  1. GETACC ;
  1.  N IEN,NODE,SUB
  1.  S SUB="WV ACCESS#"
  1.  K ^XTMP(SUB)
  1.  S ^XTMP(SUB,0)=$$FMADD^XLFDT(DT,30)_U_DT_U_"WV Patch 24 Accession #"
  1.  S IEN=$O(^WV(790.2,"B","BREAST MRI","")) Q:IEN'>0
  1.  S ^XTMP(SUB,"BREAST MRI")=$P($G(^WV(790.2,IEN,0)),U,6)
  1.  Q
  1.  ;
  1. GETCOM ;
  1.  N DA,DIE,DR,CNT,WVIEN,WVXTMP
  1.  S WVXTMP="WV COMMENTS CONVERSION"
  1.  K ^XTMP(WVXTMP)
  1.  S ^XTMP(WVXTMP,0)=$$FMADD^XLFDT(DT,30)_U_DT_U_"WV Patch 24 Comment Conversion"
  1.  S WVIEN=0 F  S WVIEN=$O(^WV(790.1,WVIEN)) Q:WVIEN'>0  D
  1.  .S CNT=0 F  S CNT=$O(^WV(790.1,WVIEN,10,CNT)) Q:CNT'>0  D
  1.  ..I $P($G(^WV(790.1,WVIEN,10,CNT,1)),U)="" Q
  1.  ..S ^XTMP(WVXTMP,WVIEN,CNT)=$P($G(^WV(790.1,WVIEN,10,CNT,1)),U)
  1.  ..S DA(1)=WVIEN,DA=CNT
  1.  ..S DIE="^WV(790.1,"_DA(1)_",10,",DR="3///@" D ^DIE
  1.  Q
  1.  ;
  1. POST ;POST-INSTALL ACTIONS
  1.  N WVIEN,WVMSGS,WVSTAT,%DT,X,Y,DTOUT,WVPARAMS,WVPARAM,WVINST
  1.  D BMES^XPDUTL("  Clearing field values from existing WV PATIENT file entries:")
  1.  D MES^XPDUTL("    CURRENTLY PREGNANT (#.13)")
  1.  D MES^XPDUTL("    EDC (#.14)")
  1.  S WVIEN=0 F  S WVIEN=$O(^WV(790,WVIEN)) Q:'WVIEN  D
  1.  .I $P(^WV(790,WVIEN,0),U,13)'="" S $P(^(0),U,13)=""
  1.  .I $P(^WV(790,WVIEN,0),U,14)'="" S $P(^(0),U,14)=""
  1.  D MES^XPDUTL("  Finished clearing existing values")
  1.  D CONVERT
  1.  S %DT="P",X="T-1M" D ^%DT
  1.  I $G(Y)>0 S WVPARAMS("WV IMAGING ORDER START DT",1)=1_U_Y
  1.  E  S WVMSGS(1)="  Unable to calculate imaging order start date.",WVMSGS(2)="  Unknown date calculation error." D MES^XPDUTL(.WVMSGS)
  1.  S WVPARAMS("WV COVER SHEET WEBSITES",1)="U. S. MEC for Contraceptive Use"_U_"http://www.cdc.gov/reproductivehealth/unintendedpregnancy/usmec.htm"
  1.  S WVPARAMS("WV COVER SHEET WEBSITES",2)="U. S. SPR for Contraceptive Use"_U_"http://www.cdc.gov/reproductivehealth/unintendedpregnancy/usspr.htm"
  1.  S WVPARAMS("WV ENTERED IN ERROR REASONS",1)=1_U_"Wrong patient"
  1.  S WVPARAM="" F  S WVPARAM=$O(WVPARAMS(WVPARAM)) Q:WVPARAM=""  D
  1.  .S WVMSGS(1)=" ",WVMSGS(2)="  Setting parameter "_WVPARAM_"..."
  1.  .D BMES^XPDUTL(.WVMSGS)
  1.  .S WVINST=0 F  S WVINST=$O(WVPARAMS(WVPARAM,WVINST)) Q:'+WVINST!(+$G(WVSTAT)>0)  D
  1.  ..D EN^XPAR("PKG",WVPARAM,$P(WVPARAMS(WVPARAM,WVINST),U),$P(WVPARAMS(WVPARAM,WVINST),U,2),.WVSTAT)
  1.  ..I +WVSTAT>0 K WVMSGS S WVMSGS(1)="  FAILED",WVMSGS(2)="  "_$P(WVSTAT,U,2) D MES^XPDUTL(.WVMSGS)
  1.  .I +WVSTAT=0 D MES^XPDUTL("  DONE")
  1.  D POSTACC,POSTCOM
  1.  Q
  1.  ;
  1. CONVERT ;CONVERT EXISTING PREGNANCY DATA INTO NEW FORMAT
  1.  I '$D(^WV(790.05)) Q
  1.  I $O(^WV(790.05,0))="" K ^WV(790.05) Q
  1.  D BMES^XPDUTL("  Converting existing pregnancy data...")
  1.  N WVNOALRT,WVIEN,WVFDA,WVPNUM,%DT,X,Y,DTOUT,WVEXIT,WVDFN,WVNODE,WVNIEN,WVERROR,WVMSGS,WVPKG
  1.  S %DT="TS",WVNOALRT=1,WVPKG=+$$FIND1^DIC(9.4,,,"WOMEN'S HEALTH",,"I $P($G(^(0)),U,2)=""WV""","WVERROR")
  1.  I 'WVPKG D  Q
  1.  .S WVMSGS(1)="    ERROR encountered:",WVMSGS(2)="    "_$$FMERROR^WVUTL11(.WVERROR)
  1.  .S WVMSGS(3)="    Could not find the WOMEN'S HEALTH entry in the PACKAGE file (#9.4)."
  1.  .S WVMSGS(4)="    Please contact the national help desk for assistance."
  1.  .D MES^XPDUTL(.WVMSGS)
  1.  S WVIEN=0 F  S WVIEN=$O(^WV(790.05,WVIEN)) Q:'+WVIEN!($D(WVERROR))  D
  1.  .S WVNODE=$G(^WV(790.05,WVIEN,0)),WVDFN=$P(WVNODE,U,2)
  1.  .I '$D(^WV(790,WVDFN,0)) K ^WV(790.05,WVIEN) Q
  1.  .F WVPNUM=1,4 S X=$P(WVNODE,U,WVPNUM) D
  1.  ..I +X'>0 S $P(WVNODE,U,WVPNUM)="" Q
  1.  ..D ^%DT I Y'>0 S $P(WVNODE,U,WVPNUM)=""
  1.  .I $P(WVNODE,U)="" K ^WV(790.05,WVIEN) Q
  1.  .S WVFDA(790.05,"+1,"_WVDFN_",",.01)=$P(WVNODE,U),WVFDA(790.05,"+1,"_WVDFN_",",3)=WVPKG
  1.  .S WVFDA(790.05,"+1,"_WVDFN_",",21)=$P(WVNODE,U,3)
  1.  .S:$P(WVNODE,U,4)'="" WVFDA(790.05,"+1,"_WVDFN_",",42)=$P(WVNODE,U,4)
  1.  .D UPDATE^DIE(,"WVFDA","WVNIEN","WVERROR")
  1.  .I $D(WVERROR) D  Q
  1.  ..S WVMSGS(1)="    ERROR encountered while converting record #"_WVIEN_":"
  1.  ..S WVMSGS(2)="    "_$$FMERROR^WVUTL11(.WVERROR)
  1.  ..S WVMSGS(3)="    The data conversion is incomplete; please"
  1.  ..S WVMSGS(4)="    contact the national help desk for assistance."
  1.  ..D MES^XPDUTL(.WVMSGS)
  1.  .S $P(^WV(790,WVDFN,4,WVNIEN(1),0),U,2)=""
  1.  .K WVNIEN
  1.  I '$D(WVERROR) K ^WV(790.05) D MES^XPDUTL("  DONE")
  1.  Q
  1.  ;
  1. POSTACC ;
  1.  N ACCESS,FDA,IEN,MSG,SUB
  1.  S SUB="WV ACCESS#"
  1.  S IEN=$O(^WV(790.2,"B","BREAST MRI","")) Q:IEN'>0
  1.  I '$D(^XTMP(SUB)) D  Q
  1.  .S FDA(790.2,"42,",.06)=""
  1.  .D FILE^DIE("","FDA","MSG")
  1.  S ACCESS=$G(^XTMP(SUB,"BREAST MRI")) I ACCESS="" Q
  1.  S IEN=$O(^WV(790.2,"B","BREAST MRI","")) Q:IEN'>0
  1.  S FDA(790.2,"42,",.06)=ACCESS
  1.  D FILE^DIE("","FDA","MSG")
  1.  I $D(MSG) D MES^XPDUTL("Error Updating BREAST MRI Last Accession #") Q
  1.  K ^XTMP(SUB)
  1.  Q
  1.  ;
  1. POSTCOM ;
  1.  N COM,DA,DIE,DR,WVIEN,WVXTMP
  1.  S WVXTMP="WV COMMENTS CONVERSION"
  1.  I '$D(^XTMP(WVXTMP)) Q
  1.  S DA(1)=0 F  S DA(1)=$O(^XTMP(WVXTMP,DA(1))) Q:DA(1)'>0  D
  1.  .S DA=0 F  S DA=$O(^XTMP(WVXTMP,DA(1),DA)) Q:DA'>0  D
  1.  ..S COM=$G(^XTMP(WVXTMP,DA(1),DA)) Q:COM=""
  1.  ..S DIE="^WV(790.1,"_DA(1)_",10,",DR="15///^S X=COM" D ^DIE
  1.  K ^XTMP(WVXTMP)
  1.  Q
  1.  ;
  1. GETLIST(ARRAY,WHAT) ;
  1.  N LINE
  1.  I WHAT="PURPOSE" D  Q
  1.  .F LINE=1:1 Q:$L($T(PURLIST+LINE))<3  D
  1.  ..N TEXT
  1.  ..S TEXT=$P($T(PURLIST+LINE),";;",2)
  1.  ..S ARRAY(TEXT)=""
  1.  I WHAT="TYPE" D  Q
  1.  .F LINE=1:1 Q:$L($T(TYPELIST+LINE))<3  D
  1.  ..N TEXT
  1.  ..S TEXT=$P($T(TYPELIST+LINE),";;",2)
  1.  ..S ARRAY(TEXT)=""
  1.  I WHAT="DIAGNOSIS" D  Q
  1.  .F LINE=1:1 Q:$L($T(DIAGLIST+LINE))<3  D
  1.  ..N TEXT
  1.  ..S TEXT=$P($T(DIAGLIST+LINE),";;",2)
  1.  ..S ARRAY(TEXT)=""
  1.  I WHAT="TRANSLATION" D  Q
  1.  .F LINE=1:1 Q:$L($T(TRANS+LINE))<3  D
  1.  ..N TEXT
  1.  ..S TEXT=$P($T(TRANS+LINE),";;",2)
  1.  ..S ARRAY(TEXT)=""
  1.  Q
  1.  ;
  1. REPRES ;
  1.  N FDA,IEN,NAME,NODE,TEMP,X,VALUE,ID
  1.  S IEN=0 F  S IEN=$O(^XTMP("WV MRI RECORDS","IENS",IEN)) Q:IEN'>0  D
  1.  .I '$D(^WV(790.31,"P",IEN)) Q
  1.  .S ID=0 F  S ID=$O(^WV(790.31,"P",IEN,ID)) Q:ID'>0  D
  1.  ..K TEMP
  1.  ..D GETS^DIQ(790.31,ID,"**","I","TEMP","MSG")
  1.  ..K FDA
  1.  ..S X=.02 F  S X=$O(TEMP(790.31,ID_",",X)) Q:X'>0!(X>.19)  D
  1.  ...I $G(TEMP(790.31,ID_",",X,"I"))'=IEN Q
  1.  ...K FDA
  1.  ...S FDA(790.31,ID_",",X)=42
  1.  ..I '$D(FDA) Q
  1.  ..S FDA(790.31,ID_",",.01)=$G(TEMP(790.31,ID_",",.01,"I"))
  1.  ..D UPDATE^DIE("","FDA","","MSG")
  1.  ..I $D(MSG) D MES^XPDUTL("Error updating file 790.31: "_ID) Q
  1.  Q
  1.  ;
  1. SETMRI ;
  1.  I $P($G(^WV(790.2,42,0)),U)="BREAST MRI" Q
  1.  N FDA,MSG,WVAIEN
  1.  S FDA(790.2,"+1,",.01)="BREAST MRI"
  1.  S WVAIEN(1)=42
  1.  D UPDATE^DIE("","FDA","WVAIEN","MSG")
  1.  I $D(MSG) D MES^XPDUTL("Error setting BREAST MRI entry") Q
  1.  I +$G(WVAIEN(1))'=42 D MES^XPDUTL("BREAST MRI not set to the correct entry") Q
  1.  Q
  1.  ;
  1. SETBTOMO ;
  1.  I $P($G(^WV(790.2,45,0)),U)="BREAST TOMOSYNTHESIS BILAT" Q
  1.  N FDA,MSG,WVAIEN
  1.  S FDA(790.2,"+1,",.01)="BREAST TOMOSYNTHESIS BILAT"
  1.  S WVAIEN(1)=45
  1.  D UPDATE^DIE("","FDA","WVAIEN","MSG")
  1.  I $D(MSG) D MES^XPDUTL("Error setting BREAST TOMOSYNTHESIS BILAT entry") Q
  1.  I +$G(WVAIEN(1))'=45 D MES^XPDUTL("BREAST TOMOSYNTHESIS BILAT not set to the correct entry") Q
  1.  ;
  1.  I $P($G(^WV(790.2,46,0)),U)="BREAST TOMOSYNTHESIS SCREENING" Q
  1.  N FDA,MSG,WVAIEN
  1.  S FDA(790.2,"+1,",.01)="BREAST TOMOSYNTHESIS SCREENING"
  1.  S WVAIEN(1)=46
  1.  D UPDATE^DIE("","FDA","WVAIEN","MSG")
  1.  I $D(MSG) D MES^XPDUTL("Error setting BREAST TOMOSYNTHESIS SCREENING entry") Q
  1.  I +$G(WVAIEN(1))'=46 D MES^XPDUTL("BREAST TOMOSYNTHESIS SCREENING not set to the correct entry") Q
  1.  ;
  1.  I $P($G(^WV(790.2,47,0)),U)="BREAST TOMOSYNTHESIS UNILAT" Q
  1.  N FDA,MSG,WVAIEN
  1.  S FDA(790.2,"+1,",.01)="BREAST TOMOSYNTHESIS UNILAT"
  1.  S WVAIEN(1)=47
  1.  D UPDATE^DIE("","FDA","WVAIEN","MSG")
  1.  I $D(MSG) D MES^XPDUTL("Error setting BREAST TOMOSYNTHESIS UNILAT entry") Q
  1.  I +$G(WVAIEN(1))'=47 D MES^XPDUTL("BREAST TOMOSYNTHESIS UNILAT not set to the correct entry") Q
  1.  Q
  1.  ;
  1. SENDDIAG(ANAME) ;
  1.  N ARRAY
  1.  D GETLIST(.ARRAY,"DIAGNOSIS")
  1.  I $D(ARRAY(ANAME)) Q 1
  1.  Q 0
  1.  ;
  1. SENDDX(ANAME) ;
  1.  N ARRAY
  1.  D GETLIST(.ARRAY,"TRANSLATION")
  1.  I $D(ARRAY(ANAME)) Q 1
  1.  Q 0
  1.  ;
  1. SENDPUR(ANAME) ;
  1.  N ARRAY
  1.  D GETLIST(.ARRAY,"PURPOSE")
  1.  I $D(ARRAY(ANAME)) Q 1
  1.  Q 0
  1.  ;
  1. SENDTYPE(ANAME) ;
  1.  N ARRAY
  1.  D GETLIST(.ARRAY,"TYPE")
  1.  I $D(ARRAY(ANAME)) Q 1
  1.  Q 0
  1.  ;
  1. DIAGLIST ;
  1.  ;;BI-RADS CATEGORY 0
  1.  ;;BI-RADS CATEGORY 1
  1.  ;;BI-RADS CATEGORY 2
  1.  ;;BI-RADS CATEGORY 3
  1.  ;;BI-RADS CATEGORY 4
  1.  ;;BI-RADS CATEGORY 5
  1.  ;;BI-RADS CATEGORY 6
  1.  ;;Abnormal
  1.  ;;No Evidence of Malignancy
  1.  ;;Unsatisfactory for Dx
  1.  Q
  1.  ;
  1. PURLIST ;
  1.  ;;BR 0 BIOPSY ALREADY OBTAIN
  1.  ;;BR 0 CURRENTLY UNDER TREATMENT
  1.  ;;BR 0 REFER FOR BIOPSY
  1.  ;;BR 0 REFER TO ONCOLOGIST
  1.  ;;BR 0 REFER TO SURGEON
  1.  ;;BR 3 BIOPSY ALREADY OBTAIN
  1.  ;;BR 3 CURRENTLY UNDER TREATMENT
  1.  ;;BR 3 REFER FOR BIOPSY
  1.  ;;BR 3 REFER TO ONCOLOGIST
  1.  ;;BR 3 REFER TO SURGEON
  1.  ;;BR 4 BIOPSY ALREADY OBTAIN
  1.  ;;BR 4 CURRENTLY UNDER TREATMENT
  1.  ;;BR 4 REFER FOR BIOPSY
  1.  ;;BR 4 REFER TO ONCOLOGIST
  1.  ;;BR 4 REFER TO SURGEON
  1.  ;;BR 5 BIOPSY ALREADY OBTAIN
  1.  ;;BR 5 CURRENTLY UNDER TREATMENT
  1.  ;;BR 5 REFER FOR BIOPSY
  1.  ;;BR 5 REFER TO ONCOLOGIST
  1.  ;;BR 5 REFER TO SURGEON
  1.  ;;BR 6 BIOPSY ALREADY OBTAIN
  1.  ;;BR 6 CURRENTLY UNDER TREATMENT
  1.  ;;BR 6 REFER FOR BIOPSY
  1.  ;;BR 6 REFER TO ONCOLOGIST
  1.  ;;BR 6 REFER TO SURGEON
  1.  ;;BR ABNORMAL BIOPSY ALREADY OBTAIN
  1.  ;;BR ABNORMAL CONSULT
  1.  ;;BR ABNORMAL CURRENTLY UNDER TREATMENT
  1.  ;;BR ABNORMAL OBTAIN PRIOR FILMS
  1.  ;;BR ABNORMAL REFER FOR BIOPSY
  1.  ;;BR ABNORMAL REFER TO ONCOLOGIST
  1.  ;;BR ABNORMAL REFER TO SURGEON
  1.  ;;BR ABNORMAL, ORDER MRI
  1.  ;;BR ABNORMAL, ORDER ULTRASOUND
  1.  ;;BR BIRAD 0 CONSULT
  1.  ;;BR BIRAD 0 OBTAIN PRIOR FILMS
  1.  ;;BR BIRAD 0, ORDER MRI
  1.  ;;BR BIRAD 0, ORDER ULTRASOUND
  1.  ;;BR BIRAD 0, next MAM 1M
  1.  ;;BR BIRAD 0, next MAM 2M
  1.  ;;BR BIRAD 0, next MAM 3M
  1.  ;;BR BIRAD 0, next MAM 4M
  1.  ;;BR BIRAD 0, next MAM 5M
  1.  ;;BR BIRAD 0, next MAM 6M
  1.  ;;BR BIRAD 1, next MAM 1Y
  1.  ;;BR BIRAD 1, next MAM 2Y
  1.  ;;BR BIRAD 2, next MAM 1Y
  1.  ;;BR BIRAD 2, next MAM 2Y
  1.  ;;BR BIRAD 3 CONSULT
  1.  ;;BR BIRAD 3 OBTAIN PRIOR FILMS
  1.  ;;BR BIRAD 3, ORDER MRI
  1.  ;;BR BIRAD 3, ORDER ULTRASOUND
  1.  ;;BR BIRAD 3, next MAM 1M
  1.  ;;BR BIRAD 3, next MAM 2M
  1.  ;;BR BIRAD 3, next MAM 3M
  1.  ;;BR BIRAD 3, next MAM 4M
  1.  ;;BR BIRAD 3, next MAM 5M
  1.  ;;BR BIRAD 3, next MAM 6M
  1.  ;;BR BIRAD 3, next MAM 12M
  1.  ;;BR BIRAD 4 CONSULT
  1.  ;;BR BIRAD 4 OBTAIN PRIOR FILMS
  1.  ;;BR BIRAD 4, ORDER MRI
  1.  ;;BR BIRAD 4, ORDER ULTRASOUND
  1.  ;;BR BIRAD 4, next MAM 1M
  1.  ;;BR BIRAD 4, next MAM 2M
  1.  ;;BR BIRAD 4, next MAM 3M
  1.  ;;BR BIRAD 4, next MAM 4M
  1.  ;;BR BIRAD 4, next MAM 5M
  1.  ;;BR BIRAD 4, next MAM 6M
  1.  ;;BR BIRAD 5 CONSULT
  1.  ;;BR BIRAD 5 OBTAIN PRIOR FILMS
  1.  ;;BR BIRAD 5, ORDER MRI
  1.  ;;BR BIRAD 5, ORDER ULTRASOUND
  1.  ;;BR BIRAD 5, next MAM 1M
  1.  ;;BR BIRAD 5, next MAM 2M
  1.  ;;BR BIRAD 5, next MAM 3M
  1.  ;;BR BIRAD 5, next MAM 4M
  1.  ;;BR BIRAD 5, next MAM 5M
  1.  ;;BR BIRAD 5, next MAM 6M
  1.  ;;BR BIRAD 6
  1.  ;;BR BIRAD 6 CONSULT
  1.  ;;BR BIRAD 6 OBTAIN PRIOR FILMS
  1.  ;;BR BIRAD 6, next MAM 1M
  1.  ;;BR BIRAD 6, next MAM 2M
  1.  ;;BR BIRAD 6, next MAM 3M
  1.  ;;BR BIRAD 6, next MAM 4M
  1.  ;;BR BIRAD 6, next MAM 5M
  1.  ;;BR BIRAD 6, next MAM 6M
  1.  ;;BR BIRAD 6, ORDER MRI
  1.  ;;BR BIRAD 6, ORDER ULTRASOUND
  1.  ;;BR NOT INDICATED
  1.  ;;BR RESULT ABNORMAL, NEXT MAM 1M
  1.  ;;BR RESULT ABNORMAL, NEXT MAM 2M
  1.  ;;BR RESULT ABNORMAL, NEXT MAM 3M
  1.  ;;BR RESULT ABNORMAL, NEXT MAM 4M
  1.  ;;BR RESULT ABNORMAL, NEXT MAM 5M
  1.  ;;BR RESULT ABNORMAL, NEXT MAM 6M
  1.  ;;BR RESULT NEM, NEXT MAM 1Y
  1.  ;;BR RESULT NEM, NEXT MAM 2Y
  1.  ;;BR RESULT UNSATISFACTORY, NEXT MAM 1M
  1.  ;;BR RESULT UNSATISFACTORY, NEXT MAM 2M
  1.  ;;BR RESULT UNSATISFACTORY, NEXT MAM 3M
  1.  ;;BR RESULT UNSATISFACTORY, NEXT MAM 4M
  1.  ;;BR RESULT UNSATISFACTORY, NEXT MAM 5M
  1.  ;;BR RESULT UNSATISFACTORY, NEXT MAM 6M
  1.  ;;BR UNSATISFACTORY BIOPSY ALREADY OBTAIN
  1.  ;;BR UNSATISFACTORY CONSULT
  1.  ;;BR UNSATISFACTORY CURRENTLY UNDER TREATMENT
  1.  ;;BR UNSATISFACTORY OBTAIN PRIOR FILMS
  1.  ;;BR UNSATISFACTORY REFER FOR BIOPSY
  1.  ;;BR UNSATISFACTORY REFER TO ONCOLOGIST
  1.  ;;BR UNSATISFACTORY REFER TO SURGEON
  1.  ;;BR UNSATISFACTORY, ORDER MRI
  1.  ;;BR UNSATISFACTORY, ORDER ULTRASOUND
  1.  ;;MAM unsatisfactory, need repeat
  1.  ;;BR BIRAD 1, next MAM AGE AT START AGE
  1.  ;;BR BIRAD 1, next MAM AGE 1Y
  1.  ;;BR BIRAD 1, next MAM AGE 2Y
  1.  ;;BR BIRAD 2, next MAM AGE AT START AGE
  1.  ;;BR BIRAD 2, next MAM AGE 1Y
  1.  ;;BR BIRAD 2, next MAM AGE 2Y
  1.  ;;BR NEM, next MAM AGE AT START AGE
  1.  ;;BR NEM, next MAM AGE 1Y
  1.  ;;BR NEM, next MAM AGE 2Y
  1.  ;;BR RETURN FOR MAM AT START AGE
  1.  ;;BR RETURN FOR MAM 1Y
  1.  Q
  1.  ;
  1. TRANS ;
  1.  ;;162
  1.  ;;163
  1.  ;;164
  1.  ;;165
  1.  ;;166
  1.  ;;167
  1.  ;;168
  1.  Q
  1.  ;
  1. TYPELIST ;
  1.  ;;CONVERSATION WITH PATIENT
  1.  ;;LETTER (CERTIFIED)
  1.  ;;LETTER, FIRST
  1.  ;;PHONE CALL, 1ST
  1.  ;;SECURE MESSAGING
  1.  Q
  1.  ;