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

RORP011.m

Go to the documentation of this file.
  1. RORP011 ;BP/ACS CCR POST-INIT PATCH 11 ;08/31/09
  1. ;;1.5;CLINICAL CASE REGISTRIES;**11**;Feb 17, 2006;Build 26
  1. ;
  1. ; This routine uses the following IAs:
  1. ;
  1. ; #2053 UPDATE^DIE (supported)
  1. ; #10075 OPTION file r/w
  1. ;
  1. N RORPARM S RORPARM("DEVELOPER")=1
  1. ;
  1. ;******************************************************************************
  1. ;Add new LOINC code 57006-9 to the VA HEPC lab search criterion in the
  1. ;ROR LAB SEARCH file #798.9. Do not add the 'dash' or the number following it
  1. ;******************************************************************************
  1. N I,HEPCIEN,RORDATA,RORLOINC K RORMSG
  1. S HEPCIEN=$O(^ROR(798.9,"B","VA HEPC",0)) ;HEPC Registry top level IEN
  1. ;--- add LOINC code to the VA HEPC search criteria
  1. S RORLOINC=57006
  1. ;add if it isn't already in the global
  1. I '$D(^ROR(798.9,HEPCIEN,1,"B",RORLOINC)) D
  1. . S RORDATA(1,798.92,"+2,"_HEPCIEN_",",.01)=$G(RORLOINC)
  1. . S RORDATA(1,798.92,"+2,"_HEPCIEN_",",1)=6
  1. . D UPDATE^DIE("","RORDATA(1)",,"RORMSG")
  1. . K RORDATA,RORMSG
  1. ;
  1. ;******************************************************************************
  1. ;Add new Non-VA Meds data area to file ROR DATA AREA
  1. ;******************************************************************************
  1. ;remove old entry if it exists
  1. N DIK S DIK="^ROR(799.33,",DA=$O(^ROR(799.33,"B","Non-VA Meds",0)) I $G(DA)>0 D ^DIK
  1. N RORFDA,RORERR,RORIEN
  1. S RORFDA(799.33,"+1,",.01)="Non-VA Meds"
  1. S RORIEN(1)=19 ;set IEN to 19
  1. D UPDATE^DIE(,"RORFDA","RORIEN","RORERR")
  1. K RORFDA,RORERR,RORIEN
  1. ;
  1. ;******************************************************************************
  1. ;Update the NON-VA MEDS backpull entry in the ROR HISTORICAL DATA
  1. ;EXTRACT file with END DATE and ACTIVATION DATE = current date.
  1. ;******************************************************************************
  1. N RORIEN S RORIEN=$O(^RORDATA(799.6,"B","NON-VA MEDS",0))
  1. I $G(RORIEN) D
  1. . N DIE,DA,DR
  1. . S DIE="^RORDATA(799.6,",DA=RORIEN,DR=".04///"_DT_";.07///"_DT D ^DIE
  1. ;
  1. ;******************************************************************************
  1. ;Add new entries to the ROR XML ITEM file (#799.31)
  1. ;******************************************************************************
  1. N RORXML,RORTAG,RORFDA,RORERR
  1. ;--- add codes
  1. F I="REFILLS","ALL_FILLS","RECENT_FILLS" D
  1. . S RORXML=I
  1. . ;don't add if it's already in the global
  1. . Q:$D(^ROR(799.31,"B",RORXML))
  1. . S RORFDA(799.31,"+1,",.01)=RORXML
  1. . D UPDATE^DIE(,"RORFDA",,"RORERR")
  1. K RORFDA,RORERR
  1. ;
  1. ;******************************************************************************
  1. ;Update report parameter panels in ROR REPORT PARAMETERS file (#799.34) for
  1. ;reports impacted by the Clinic, Division, or Patient panels
  1. ;******************************************************************************
  1. N RORIEN,RORPANEL,DIE,DA,DR
  1. F RORIEN=3,4,5,6,7,9,10,11,12,13,14,15,16,17,18,19,20 D
  1. . S RORTAG="RP"_RORIEN
  1. . S RORPANEL=$P($T(@RORTAG),";;",2)
  1. . Q:'RORPANEL
  1. . S DIE="^ROR(799.34,",DA=RORIEN,DR="1///"_RORPANEL D ^DIE
  1. ;
  1. ;******************************************************************************
  1. ;Add RPC 'ROR GET M VERSION' to OPTION 'ROR GUI' in file 19.
  1. ;******************************************************************************
  1. N VALUE,IEN S VALUE="ROR GUI" S IEN=$$FIND1^DIC(19,,"X",.VALUE)
  1. I $G(IEN) D
  1. . N DIC,X,Y
  1. . K DA S DA(1)=IEN
  1. . S DIC="^DIC(19,"_DA(1)_",""RPC"","
  1. . S DIC(0)="XL",X="ROR GET M VERSION"
  1. . D ^DIC
  1. ;
  1. Q
  1. ;******************************************************************************
  1. ;updated report panels in 799.34
  1. ;******************************************************************************
  1. RP3 ;;10,14,22,62,35,30,34,50,140,180,70,100;;General Utilization & Demographics
  1. RP4 ;;10,14,22,60,66,50,34,140,180,70,100;;Clinic Follow Up
  1. RP5 ;;10,14,22,170,110,46,34,140,180,70,100;;Inpatient Utilization
  1. RP6 ;;10,14,22,110,120,52,34,50,140,180,70,100;;Lab Utilization
  1. RP7 ;;10,14,22,110,120,34,50,140,180,70,100;;Radiology Utilization
  1. RP9 ;;10,14,22,170,26,110,46,54,44,90,34,50,140,180,70,100;;Pharmacy Prescription Utilization
  1. RP10 ;;10,14,22,47,34,50,140,180,70,100;;Registry Lab Tests by Range
  1. RP11 ;;10,14,170,26,45,54,34,50,140,180,70,100;;Patient Medication History
  1. RP12 ;;14,22,64,66,10,54,44,11,53,12,34,50,140,180,70,100;;Combined Meds and Labs
  1. RP13 ;;10,14,22,62,160,34,50,140,70,100;;Diagnoses
  1. RP14 ;;10,14,22,170,26,62,84,56,34,50,140,180,70,100;;Registry Medications
  1. RP15 ;;10,14,22,150,65,66,62,160,59,12,34,50,140,180,70,100;;Procedures
  1. RP16 ;;10,14,22,170,110,46,34,140,180,70,100;;Outpatient Utilization
  1. RP17 ;;10,14,22,24,28,84,56,34,50,140,180,70,100;;VERA Reimbursement
  1. RP18 ;;14,22,62,201,47,12,34,50,140,180,70,100;;BMI
  1. RP19 ;;14,22,201,47,12,34,50,140,180,70,100;;MELD
  1. RP20 ;;14,22,62,201,47,12,34,50,140,180,70,100;;Renal Function by Range