- HMPDJFSD ;SLC/KCM,ASMR/RRB,MBS -- Domain Lists for Extract and Freshness Stream;Sep 1, 2016 17:28:47
- ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2,3**;Sep 01, 2011;Build 15
- ;Per VA Directive 6402, this routine should not be modified.
- ;
- ; DE2818/RRB: SQA findings 1st 3 lines
- ;
- ; DE6652 - JD - 9/1/16: Removed sign-symptom domain from the list for operational data.
- ; OPDOMS tag.
- ;
- Q
- ;
- PTDOMS(LIST) ; load default patient domains (put in parameter?); cpc modded order 9/29/2015; DE4879 - Removed "factor" entry
- ;;order
- ;;vital
- ;;lab
- ;;med
- ;;document
- ;;allergy
- ;;auxiliary
- ;;appointment
- ;;diagnosis
- ;;visit
- ;;immunization
- ;;obs
- ;;problem
- ;;procedure
- ;;consult
- ;;image
- ;;surgery
- ;;task
- ;;ptf
- ;;exam
- ;;cpt
- ;;education
- ;;pov
- ;;skin
- ;;treatment
- ;;roadtrip
- ;;patient
- ;;zzzzz
- ;
- ;;mh
- ;
- N I,X
- F I=1:1 S X=$P($T(PTDOMS+I),";;",2,99) Q:X="zzzzz" S LIST(I)=X
- Q
- ;
- OPDOMS(LIST) ; load default operational domains (put in parameter?)
- ;;asu-class;^USR(8930)
- ;;asu-rule;^USR(8930.1)
- ;;category;^HMP(800000.11)
- ;;charttab;^HMP(800000.11)
- ;;displaygroup;^ORD(100.98)
- ;;doc-def;^TIU(8925.1)
- ;;labgroup;^LAB(64.5,1,1)
- ;;labpanel;^LAB(60)
- ;;location;^SC
- ;;orderable;^ORD(101.43)
- ;;page;^HMP(800000.11)
- ;;pt-select;^DPT
- ;;personphoto;^HMP(800000.11)
- ;;pointofcare;^HMP(800000.11)
- ;;quick;^ORD(101.41)
- ;;roster;^HMPROSTR
- ;;route;^PS(51.2)
- ;;schedule;^PS(51.1)
- ;;team;^HMP(800000.11)
- ;;teamposition;^HMP(800000.11)
- ;;user;^VA(200)
- ;;usertabprefs;^HMP(800000.11)
- ;;viewdefdef;^HMP(800000.11)
- ;;viewdefdefcoldefconfigtemplate;^HMP(800000.11)
- ;;immunization;^AUTTIMM
- ;;allergy-list;^GMRD(120.82)
- ;;vital-type;^GMRD(120.51)
- ;;vital-qualifier;^GMRD(120.52)
- ;;vital-category;^GMRD(120.53)
- ;;zzzzz
- ;
- ;;problem-list;^LEX(757.01)
- ;;clioterminology
- ;;doc-action
- ;;doc-status
- ;;sign-symptom;^GMRD(120.83) ;DE6652 - Removed from OPDOMS list
- ;
- N I,X
- F I=1:1 S X=$P($T(OPDOMS+I),";",3) Q:X="zzzzz" S LIST(I)=X
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHMPDJFSD 2076 printed Feb 18, 2025@23:19:55 Page 2
- HMPDJFSD ;SLC/KCM,ASMR/RRB,MBS -- Domain Lists for Extract and Freshness Stream;Sep 1, 2016 17:28:47
- +1 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2,3**;Sep 01, 2011;Build 15
- +2 ;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; DE2818/RRB: SQA findings 1st 3 lines
- +5 ;
- +6 ; DE6652 - JD - 9/1/16: Removed sign-symptom domain from the list for operational data.
- +7 ; OPDOMS tag.
- +8 ;
- +9 QUIT
- +10 ;
- PTDOMS(LIST) ; load default patient domains (put in parameter?); cpc modded order 9/29/2015; DE4879 - Removed "factor" entry
- +1 ;;order
- +2 ;;vital
- +3 ;;lab
- +4 ;;med
- +5 ;;document
- +6 ;;allergy
- +7 ;;auxiliary
- +8 ;;appointment
- +9 ;;diagnosis
- +10 ;;visit
- +11 ;;immunization
- +12 ;;obs
- +13 ;;problem
- +14 ;;procedure
- +15 ;;consult
- +16 ;;image
- +17 ;;surgery
- +18 ;;task
- +19 ;;ptf
- +20 ;;exam
- +21 ;;cpt
- +22 ;;education
- +23 ;;pov
- +24 ;;skin
- +25 ;;treatment
- +26 ;;roadtrip
- +27 ;;patient
- +28 ;;zzzzz
- +29 ;
- +30 ;;mh
- +31 ;
- +32 NEW I,X
- +33 FOR I=1:1
- SET X=$PIECE($TEXT(PTDOMS+I),";;",2,99)
- if X="zzzzz"
- QUIT
- SET LIST(I)=X
- +34 QUIT
- +35 ;
- OPDOMS(LIST) ; load default operational domains (put in parameter?)
- +1 ;;asu-class;^USR(8930)
- +2 ;;asu-rule;^USR(8930.1)
- +3 ;;category;^HMP(800000.11)
- +4 ;;charttab;^HMP(800000.11)
- +5 ;;displaygroup;^ORD(100.98)
- +6 ;;doc-def;^TIU(8925.1)
- +7 ;;labgroup;^LAB(64.5,1,1)
- +8 ;;labpanel;^LAB(60)
- +9 ;;location;^SC
- +10 ;;orderable;^ORD(101.43)
- +11 ;;page;^HMP(800000.11)
- +12 ;;pt-select;^DPT
- +13 ;;personphoto;^HMP(800000.11)
- +14 ;;pointofcare;^HMP(800000.11)
- +15 ;;quick;^ORD(101.41)
- +16 ;;roster;^HMPROSTR
- +17 ;;route;^PS(51.2)
- +18 ;;schedule;^PS(51.1)
- +19 ;;team;^HMP(800000.11)
- +20 ;;teamposition;^HMP(800000.11)
- +21 ;;user;^VA(200)
- +22 ;;usertabprefs;^HMP(800000.11)
- +23 ;;viewdefdef;^HMP(800000.11)
- +24 ;;viewdefdefcoldefconfigtemplate;^HMP(800000.11)
- +25 ;;immunization;^AUTTIMM
- +26 ;;allergy-list;^GMRD(120.82)
- +27 ;;vital-type;^GMRD(120.51)
- +28 ;;vital-qualifier;^GMRD(120.52)
- +29 ;;vital-category;^GMRD(120.53)
- +30 ;;zzzzz
- +31 ;
- +32 ;;problem-list;^LEX(757.01)
- +33 ;;clioterminology
- +34 ;;doc-action
- +35 ;;doc-status
- +36 ;;sign-symptom;^GMRD(120.83) ;DE6652 - Removed from OPDOMS list
- +37 ;
- +38 NEW I,X
- +39 FOR I=1:1
- SET X=$PIECE($TEXT(OPDOMS+I),";",3)
- if X="zzzzz"
- QUIT
- SET LIST(I)=X
- +40 QUIT
- +41 ;
