MAGIPO61 ;WOIFO/JSL - Post init routine to queue site activity at install; 29 Sep 2005 9:00 AM
;;3.0;IMAGING;**61**;Feb 07, 2006
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
WARNMSG ;
N DIWR,DIWL,DIWF K ^UTILITY($J,"W")
S ANS="",DIWR=80,DIWL=1
U IO(0) W !
S X="|NOWRAP|" D ^DIWP
S X="======================================================================" D ^DIWP
S X=">>> PATIENT SAFETY WARNING <<<" D ^DIWP
S X=">>> Read This Notice Before Installing the Term Update File <<<" D ^DIWP
S X="======================================================================" D ^DIWP
S X="|WRAP|" D ^DIWP
S X="Index term files are nationally standard files that are maintained by the VistA Imaging Team. Sites are only permitted to modify the value of the STATUS" D ^DIWP
S X="(active/inactive) field on two index term files : IMAGE INDEX FOR PROCEDRUE/EVENT and IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY." D ^DIWP
S X="Except for these two STATUS fields, NO LOCAL ADDITIONS, DELETIONS, OR MODIFICATIONS ARE PERMITTED to the index term files. Files to which additions, deletions and modifications are NOT to be made locally" D ^DIWP
S X="include the following:" D ^DIWP
S X="|NOWRAP|" D ^DIWP
S X=" IMAGE INDEX FOR CLASS (#2005.82)" D ^DIWP
S X=" IMAGE INDEX FOR TYPES (#2005.83)" D ^DIWP
S X=" IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY (#2005.84) (except the STATUS field)" D ^DIWP
S X=" IMAGE INDEX FOR PROCEDURE/EVENT (#2005.85) (except the STATUS field)" D ^DIWP
S X="|WRAP|" D ^DIWP
S X="Additions, deletions or modifications to index term files by local sites risk overwriting or other loss of information as distributions from the VistA Imaging Team are installed." D ^DIWP
S X="Loss of information that is used to make patient treatment decisions could have a negative impact on patient safety." D ^DIWP
S X="If you believe that any entries on your index term files may have been added, deleted or modified locally, DO NOT INSTALL THIS UPDATE!" D ^DIWP
S X="Instead, please place a Remedy call IMMEDIATELY to VistA Imaging Support." D ^DIWP
D ^DIWW H 5
Q
POST ;
N FILE
F FILE=2005.82,2005.83,2005.84,2005.85,2005.852 D
. I $P(^DD(FILE,.01,0),U,2)'["I" S $P(^(0),U,2)=$P(^(0),U,2)_"I" ;no del
. S ^DD(FILE,.01,"LAYGO",1,0)="I 0" ;no add
. Q
;
; disable 'Write' access for certain fields in the files
S ^DD(2005.82,1,9)="^" ;Class: Status
S ^DD(2005.83,1,9)="^" ;Type: Class
S ^DD(2005.83,2,9)="^" ;Type: Status
S ^DD(2005.83,3,9)="^" ;Type: Abbreviation
S ^DD(2005.84,1,9)="^" ;Spec/SubSpec: Class
S ^DD(2005.84,2,9)="^" ;Spec/SubSpec: Spec Level
S ^DD(2005.84,3,9)="^" ;Spec/SubSpec: Abbreviation
; ^DD(2005.84,4) = ; STATUS - Leave Write access
S ^DD(2005.85,1,9)="^" ;Proc/Event: Class
S ^DD(2005.85,2,9)="^" ;Proc/Event: Specialty
S ^DD(2005.85,3,9)="^" ;Proc/Event: Abbreviation
; ^DD(2005.85,4) = ; STATUS - Leave Write access
; create and send the site installation message
D REMTASK^MAGQE4
D STTASK^MAGQE4
D INS(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
Q
;
INS(XP,DUZ,DATE,IDA) ;
N CT,CNT,COM,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,XMID,XMY
D GETENV^%ZOSV
S CNT=0
S CNT=CNT+1,MAGMSG(CNT)="PACKAGE INSTALL"
S CNT=CNT+1,MAGMSG(CNT)="SITE: "_$$KSP^XUPARAM("WHERE")
S CNT=CNT+1,MAGMSG(CNT)="PACKAGE: "_XP
S CNT=CNT+1,MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XP)
S ST=$$GET1^DIQ(9.7,IDA,11,"I")
S CNT=CNT+1,MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
S CT=$$GET1^DIQ(9.7,IDA,17,"I") S:+CT'=CT CT=$$NOW^XLFDT
S CNT=CNT+1,MAGMSG(CNT)="Completion time: "_$$FMTE^XLFDT(CT)
S CNT=CNT+1,MAGMSG(CNT)="Run time: "_$$FMDIFF^XLFDT(CT,ST,3)
S CNT=CNT+1,MAGMSG(CNT)="Environment: "_Y
S COM=$$GET1^DIQ(9.7,IDA,6,"I")
S CNT=CNT+1,MAGMSG(CNT)="FILE COMMENT: "_COM
S CNT=CNT+1,MAGMSG(CNT)="DATE: "_DATE
S CNT=CNT+1,MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,IDA,9,"E")
S CNT=CNT+1,MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,IDA,.01,"E")
S DDATE=$$GET1^DIQ(9.7,IDA,51,"I")
S CNT=CNT+1,MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
S XMSUB=XP_" INSTALLATION"
S XMID=$G(DUZ) S:'XMID XMID=.5
S XMY(XMID)=""
S XMY("G.MAG SERVER")=""
S:$G(MAGDUZ) XMY(MAGDUZ)=""
S XMSUB=$E(XMSUB,1,63)
D SENDMSG^XMXAPI(XMID,XMSUB,"MAGMSG",.XMY,,.XMZ,)
I $G(XMERR) M XMERR=^TMP("XMERR",$J) S $EC=",U13-Cannot send MailMan message,"
Q
BASE ;baseline
;;(2005.82,1,0)|CLIN
;;(2005.82,7,0)|CLIN/ADMIN
;;(2005.82,1,0)|CLIN
;;(2005.82,7,0)|CLIN/ADMIN
;;(2005.82,8,0)|ADMIN
;;(2005.82,9,0)|ADMIN/CLIN
;;(2005.83,6,0)|INSURANCE FORM^8
;;(2005.83,7,0)|ELIGIBILITY/VA FORM 10-7131^8
;;(2005.83,11,0)|PATIENT RIGHTS AND RESPONSIBILITIES^8
;;(2005.83,45,0)|MISCELLANEOUS DOCUMENT^1
;;(2005.83,46,0)|MEANS TEST (10-10EZ)^8
;;(2005.83,47,0)|MEANS TEST (10-10F)^8
;;(2005.83,48,0)|ALLIED VETERAN^8
;;(2005.83,49,0)|APPT OF VSO AS CLAIMANT'S REP^8
;;(2005.83,50,0)|CORRESPONDENCE^8
;;(2005.83,51,0)|DD214 ENLISTED RECORD & RPT OF SEP^8
;;(2005.83,52,0)|DEATH CERTIFICATE^8
;;(2005.83,53,0)|DENIAL LETTER^8
;;(2005.83,54,0)|DISCHARGE AGAINST MEDICAL ADVICE^8
;;(2005.83,56,0)|FINANCIAL WORKSHEET^8
;;(2005.83,57,0)|INVENTORY OF FUNDS AND EFFECTS^8
;;(2005.83,58,0)|MEDICAL CERTIFICATE^8
;;(2005.83,59,0)|HEALTH INSURANCE CARDS^8
;;(2005.83,60,0)|PLENARY GUARDIANSHIP^8
;;(2005.83,61,0)|POWER OF ATTORNEY^8
;;(2005.83,62,0)|REPORT OF CONTACT^8
;;(2005.83,63,0)|REQUEST FOR INFORMATION^8
;;(2005.83,64,0)|VALUABLES / BELONGINGS CHECKLIST^8
;;(2005.83,65,0)|DESIGNATION OF HEALTHCARE SURROGATE^8
;;(2005.83,66,0)|CONSENT^1
;;(2005.83,67,0)|ADVANCE DIRECTIVE^7
;;(2005.83,68,0)|OUTSIDE MEDICAL RECORD (FEE)^1^I
;;(2005.83,69,0)|MEDICAL RECORD^1
;;(2005.83,70,0)|OUTSIDE MEDICAL RECORD (DOD)^1^I
;;(2005.83,71,0)|MEDICATION RECORD^1
;;(2005.83,72,0)|FLOWSHEET^1
;;(2005.83,73,0)|VISIT RECORD^1
;;(2005.83,74,0)|PROCEDURE RECORD^1
;;(2005.83,75,0)|IMAGE^1
;;(2005.83,76,0)|DIAGRAM^1
;;(2005.83,77,0)|MISCELLANEOUS^8
;;(2005.83,78,0)|DISCHARGE SUMMARY^1
;;(2005.83,80,0)|CONSULT^1
;;(2005.83,81,0)|COMMITMENT^9^A
;;(2005.83,82,0)|REQUEST FOR AUTOPSY^9
;;(2005.83,83,0)|RELEASE OF INFORMATION^9
;;(2005.83,84,0)|PHOTO ID^9^A
;;(2005.83,85,0)|PROGRESS NOTE^1^A
;;(2005.84,1,0)|INTERNAL MEDICINE^1
;;(2005.84,2,0)|CARDIOLOGY^1^1
;;(2005.84,3,0)|GASTROENTEROLOGY^1^1
;;(2005.84,4,0)|HEMATOLOGY, MEDICAL^1^1
;;(2005.84,5,0)|INFECTIOUS DISEASE^1^1
;;(2005.84,6,0)|ONCOLOGY^1^1
;;(2005.84,7,0)|NEPHROLOGY^1^1
;;(2005.84,8,0)|PULMONARY^1^1
;;(2005.84,9,0)|RHEUMATOLOGY^1^1
;;(2005.84,10,0)|CRITICAL CARE, MED^1^1
;;(2005.84,11,0)|GERIATRICS^1^47
;;(2005.84,12,0)|ENDOCRINOLOGY, DIABETES, METAB^1^1
;;(2005.84,14,0)|THORACIC SURGERY^1^48
;;(2005.84,15,0)|UROLOGY^1^48
;;(2005.84,16,0)|ORTHOPEDICS^1^48
;;(2005.84,17,0)|OPHTHALMOLOGY^1^57
;;(2005.84,18,0)|NEUROLOGIC SURGERY^1^48
;;(2005.84,19,0)|DERMATOLOGY^1^1
;;(2005.84,20,0)|COLON & RECTAL SURGERY^1^48
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGIPO61 8012 printed Dec 13, 2024@02:06:11 Page 2
MAGIPO61 ;WOIFO/JSL - Post init routine to queue site activity at install; 29 Sep 2005 9:00 AM
+1 ;;3.0;IMAGING;**61**;Feb 07, 2006
+2 ;; +---------------------------------------------------------------+
+3 ;; | Property of the US Government. |
+4 ;; | No permission to copy or redistribute this software is given. |
+5 ;; | Use of unreleased versions of this software requires the user |
+6 ;; | to execute a written test agreement with the VistA Imaging |
+7 ;; | Development Office of the Department of Veterans Affairs, |
+8 ;; | telephone (301) 734-0100. |
+9 ;; | |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
WARNMSG ;
+1 NEW DIWR,DIWL,DIWF
KILL ^UTILITY($JOB,"W")
+2 SET ANS=""
SET DIWR=80
SET DIWL=1
+3 USE IO(0)
WRITE !
+4 SET X="|NOWRAP|"
DO ^DIWP
+5 SET X="======================================================================"
DO ^DIWP
+6 SET X=">>> PATIENT SAFETY WARNING <<<"
DO ^DIWP
+7 SET X=">>> Read This Notice Before Installing the Term Update File <<<"
DO ^DIWP
+8 SET X="======================================================================"
DO ^DIWP
+9 SET X="|WRAP|"
DO ^DIWP
+10 SET X="Index term files are nationally standard files that are maintained by the VistA Imaging Team. Sites are only permitted to modify the value of the STATUS"
DO ^DIWP
+11 SET X="(active/inactive) field on two index term files : IMAGE INDEX FOR PROCEDRUE/EVENT and IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY."
DO ^DIWP
+12 SET X="Except for these two STATUS fields, NO LOCAL ADDITIONS, DELETIONS, OR MODIFICATIONS ARE PERMITTED to the index term files. Files to which additions, deletions and modifications are NOT to be made locally"
DO ^DIWP
+13 SET X="include the following:"
DO ^DIWP
+14 SET X="|NOWRAP|"
DO ^DIWP
+15 SET X=" IMAGE INDEX FOR CLASS (#2005.82)"
DO ^DIWP
+16 SET X=" IMAGE INDEX FOR TYPES (#2005.83)"
DO ^DIWP
+17 SET X=" IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY (#2005.84) (except the STATUS field)"
DO ^DIWP
+18 SET X=" IMAGE INDEX FOR PROCEDURE/EVENT (#2005.85) (except the STATUS field)"
DO ^DIWP
+19 SET X="|WRAP|"
DO ^DIWP
+20 SET X="Additions, deletions or modifications to index term files by local sites risk overwriting or other loss of information as distributions from the VistA Imaging Team are installed."
DO ^DIWP
+21 SET X="Loss of information that is used to make patient treatment decisions could have a negative impact on patient safety."
DO ^DIWP
+22 SET X="If you believe that any entries on your index term files may have been added, deleted or modified locally, DO NOT INSTALL THIS UPDATE!"
DO ^DIWP
+23 SET X="Instead, please place a Remedy call IMMEDIATELY to VistA Imaging Support."
DO ^DIWP
+24 DO ^DIWW
HANG 5
+25 QUIT
POST ;
+1 NEW FILE
+2 FOR FILE=2005.82,2005.83,2005.84,2005.85,2005.852
Begin DoDot:1
+3 ;no del
IF $PIECE(^DD(FILE,.01,0),U,2)'["I"
SET $PIECE(^(0),U,2)=$PIECE(^(0),U,2)_"I"
+4 ;no add
SET ^DD(FILE,.01,"LAYGO",1,0)="I 0"
+5 QUIT
End DoDot:1
+6 ;
+7 ; disable 'Write' access for certain fields in the files
+8 ;Class: Status
SET ^DD(2005.82,1,9)="^"
+9 ;Type: Class
SET ^DD(2005.83,1,9)="^"
+10 ;Type: Status
SET ^DD(2005.83,2,9)="^"
+11 ;Type: Abbreviation
SET ^DD(2005.83,3,9)="^"
+12 ;Spec/SubSpec: Class
SET ^DD(2005.84,1,9)="^"
+13 ;Spec/SubSpec: Spec Level
SET ^DD(2005.84,2,9)="^"
+14 ;Spec/SubSpec: Abbreviation
SET ^DD(2005.84,3,9)="^"
+15 ; ^DD(2005.84,4) = ; STATUS - Leave Write access
+16 ;Proc/Event: Class
SET ^DD(2005.85,1,9)="^"
+17 ;Proc/Event: Specialty
SET ^DD(2005.85,2,9)="^"
+18 ;Proc/Event: Abbreviation
SET ^DD(2005.85,3,9)="^"
+19 ; ^DD(2005.85,4) = ; STATUS - Leave Write access
+20 ; create and send the site installation message
+21 DO REMTASK^MAGQE4
+22 DO STTASK^MAGQE4
+23 DO INS(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
+24 QUIT
+25 ;
INS(XP,DUZ,DATE,IDA) ;
+1 NEW CT,CNT,COM,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,XMID,XMY
+2 DO GETENV^%ZOSV
+3 SET CNT=0
+4 SET CNT=CNT+1
SET MAGMSG(CNT)="PACKAGE INSTALL"
+5 SET CNT=CNT+1
SET MAGMSG(CNT)="SITE: "_$$KSP^XUPARAM("WHERE")
+6 SET CNT=CNT+1
SET MAGMSG(CNT)="PACKAGE: "_XP
+7 SET CNT=CNT+1
SET MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XP)
+8 SET ST=$$GET1^DIQ(9.7,IDA,11,"I")
+9 SET CNT=CNT+1
SET MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
+10 SET CT=$$GET1^DIQ(9.7,IDA,17,"I")
if +CT'=CT
SET CT=$$NOW^XLFDT
+11 SET CNT=CNT+1
SET MAGMSG(CNT)="Completion time: "_$$FMTE^XLFDT(CT)
+12 SET CNT=CNT+1
SET MAGMSG(CNT)="Run time: "_$$FMDIFF^XLFDT(CT,ST,3)
+13 SET CNT=CNT+1
SET MAGMSG(CNT)="Environment: "_Y
+14 SET COM=$$GET1^DIQ(9.7,IDA,6,"I")
+15 SET CNT=CNT+1
SET MAGMSG(CNT)="FILE COMMENT: "_COM
+16 SET CNT=CNT+1
SET MAGMSG(CNT)="DATE: "_DATE
+17 SET CNT=CNT+1
SET MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,IDA,9,"E")
+18 SET CNT=CNT+1
SET MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,IDA,.01,"E")
+19 SET DDATE=$$GET1^DIQ(9.7,IDA,51,"I")
+20 SET CNT=CNT+1
SET MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
+21 SET XMSUB=XP_" INSTALLATION"
+22 SET XMID=$GET(DUZ)
if 'XMID
SET XMID=.5
+23 SET XMY(XMID)=""
+24 SET XMY("G.MAG SERVER")=""
+25 if $GET(MAGDUZ)
SET XMY(MAGDUZ)=""
+26 SET XMSUB=$EXTRACT(XMSUB,1,63)
+27 DO SENDMSG^XMXAPI(XMID,XMSUB,"MAGMSG",.XMY,,.XMZ,)
+28 IF $GET(XMERR)
MERGE XMERR=^TMP("XMERR",$JOB)
SET $ECODE=",U13-Cannot send MailMan message,"
+29 QUIT
BASE ;baseline
+1 ;;(2005.82,1,0)|CLIN
+2 ;;(2005.82,7,0)|CLIN/ADMIN
+3 ;;(2005.82,1,0)|CLIN
+4 ;;(2005.82,7,0)|CLIN/ADMIN
+5 ;;(2005.82,8,0)|ADMIN
+6 ;;(2005.82,9,0)|ADMIN/CLIN
+7 ;;(2005.83,6,0)|INSURANCE FORM^8
+8 ;;(2005.83,7,0)|ELIGIBILITY/VA FORM 10-7131^8
+9 ;;(2005.83,11,0)|PATIENT RIGHTS AND RESPONSIBILITIES^8
+10 ;;(2005.83,45,0)|MISCELLANEOUS DOCUMENT^1
+11 ;;(2005.83,46,0)|MEANS TEST (10-10EZ)^8
+12 ;;(2005.83,47,0)|MEANS TEST (10-10F)^8
+13 ;;(2005.83,48,0)|ALLIED VETERAN^8
+14 ;;(2005.83,49,0)|APPT OF VSO AS CLAIMANT'S REP^8
+15 ;;(2005.83,50,0)|CORRESPONDENCE^8
+16 ;;(2005.83,51,0)|DD214 ENLISTED RECORD & RPT OF SEP^8
+17 ;;(2005.83,52,0)|DEATH CERTIFICATE^8
+18 ;;(2005.83,53,0)|DENIAL LETTER^8
+19 ;;(2005.83,54,0)|DISCHARGE AGAINST MEDICAL ADVICE^8
+20 ;;(2005.83,56,0)|FINANCIAL WORKSHEET^8
+21 ;;(2005.83,57,0)|INVENTORY OF FUNDS AND EFFECTS^8
+22 ;;(2005.83,58,0)|MEDICAL CERTIFICATE^8
+23 ;;(2005.83,59,0)|HEALTH INSURANCE CARDS^8
+24 ;;(2005.83,60,0)|PLENARY GUARDIANSHIP^8
+25 ;;(2005.83,61,0)|POWER OF ATTORNEY^8
+26 ;;(2005.83,62,0)|REPORT OF CONTACT^8
+27 ;;(2005.83,63,0)|REQUEST FOR INFORMATION^8
+28 ;;(2005.83,64,0)|VALUABLES / BELONGINGS CHECKLIST^8
+29 ;;(2005.83,65,0)|DESIGNATION OF HEALTHCARE SURROGATE^8
+30 ;;(2005.83,66,0)|CONSENT^1
+31 ;;(2005.83,67,0)|ADVANCE DIRECTIVE^7
+32 ;;(2005.83,68,0)|OUTSIDE MEDICAL RECORD (FEE)^1^I
+33 ;;(2005.83,69,0)|MEDICAL RECORD^1
+34 ;;(2005.83,70,0)|OUTSIDE MEDICAL RECORD (DOD)^1^I
+35 ;;(2005.83,71,0)|MEDICATION RECORD^1
+36 ;;(2005.83,72,0)|FLOWSHEET^1
+37 ;;(2005.83,73,0)|VISIT RECORD^1
+38 ;;(2005.83,74,0)|PROCEDURE RECORD^1
+39 ;;(2005.83,75,0)|IMAGE^1
+40 ;;(2005.83,76,0)|DIAGRAM^1
+41 ;;(2005.83,77,0)|MISCELLANEOUS^8
+42 ;;(2005.83,78,0)|DISCHARGE SUMMARY^1
+43 ;;(2005.83,80,0)|CONSULT^1
+44 ;;(2005.83,81,0)|COMMITMENT^9^A
+45 ;;(2005.83,82,0)|REQUEST FOR AUTOPSY^9
+46 ;;(2005.83,83,0)|RELEASE OF INFORMATION^9
+47 ;;(2005.83,84,0)|PHOTO ID^9^A
+48 ;;(2005.83,85,0)|PROGRESS NOTE^1^A
+49 ;;(2005.84,1,0)|INTERNAL MEDICINE^1
+50 ;;(2005.84,2,0)|CARDIOLOGY^1^1
+51 ;;(2005.84,3,0)|GASTROENTEROLOGY^1^1
+52 ;;(2005.84,4,0)|HEMATOLOGY, MEDICAL^1^1
+53 ;;(2005.84,5,0)|INFECTIOUS DISEASE^1^1
+54 ;;(2005.84,6,0)|ONCOLOGY^1^1
+55 ;;(2005.84,7,0)|NEPHROLOGY^1^1
+56 ;;(2005.84,8,0)|PULMONARY^1^1
+57 ;;(2005.84,9,0)|RHEUMATOLOGY^1^1
+58 ;;(2005.84,10,0)|CRITICAL CARE, MED^1^1
+59 ;;(2005.84,11,0)|GERIATRICS^1^47
+60 ;;(2005.84,12,0)|ENDOCRINOLOGY, DIABETES, METAB^1^1
+61 ;;(2005.84,14,0)|THORACIC SURGERY^1^48
+62 ;;(2005.84,15,0)|UROLOGY^1^48
+63 ;;(2005.84,16,0)|ORTHOPEDICS^1^48
+64 ;;(2005.84,17,0)|OPHTHALMOLOGY^1^57
+65 ;;(2005.84,18,0)|NEUROLOGIC SURGERY^1^48
+66 ;;(2005.84,19,0)|DERMATOLOGY^1^1
+67 ;;(2005.84,20,0)|COLON & RECTAL SURGERY^1^48
