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 Dec 13, 2024@01:53:34 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 ;
