Routine: ORXPAR07

ORXPAR07 ; ; Dec 17, 1997@11:35:35

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

;;

LOAD ; load data into ^TMP (expects ROOT to be defined)

 S I=1 F  S REF=$T(DATA+I) Q:REF=""  S VAL=$T(DATA+I+1) D

 . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)

 . S @(ROOT_REF)=VAL

 G ^ORXPAR08

DATA ; parameter data

 ;;885,"VAL",26,0)

 ;;any time during a session by this method. The defined filters remain in

 ;;885,"VAL",27,0)

 ;;effect for the duration of the session or until changed again. To quickly

 ;;885,"VAL",28,0)

 ;;return to the user's default or preferred view, Click the Preferred View

 ;;885,"VAL",29,0)

 ;;button.

 ;;886,"KEY")

 ;;ORWUH WHATSTHIS^wgProbData

 ;;886,"VAL")

 ;;Patient Problem List

 ;;886,"VAL",1,0)

 ;;Patient Problem List

 ;;886,"VAL",2,0)

;;

 ;;886,"VAL",3,0)

 ;;This grid displays the current patient's problems. It may be

 ;;886,"VAL",4,0)

 ;;filtered to display All problems, Active Problems, Inactive Problems

 ;;886,"VAL",5,0)

 ;;or Removed problems by selecting the appropriate item from the

 ;;886,"VAL",6,0)

 ;;View menu. The ability to use certain display filters may be

 ;;886,"VAL",7,0)

 ;;restricted for some users.

 ;;886,"VAL",8,0)

;;

 ;;886,"VAL",9,0)

 ;;The actions Change (or Edit), Inactivate, Verify, Annotate, Remove

 ;;886,"VAL",10,0)

 ;;and Restore may be selected from the upper Action menu. They are also

 ;;886,"VAL",11,0)

 ;;available via a popup menu that appears with a right mouse button click.

 ;;886,"VAL",12,0)

 ;;As is the case for display filters, some actions are restricted for

 ;;886,"VAL",13,0)

 ;;certain users. If an action is restricted, the user will not be able to

 ;;886,"VAL",14,0)

 ;;select it.

 ;;886,"VAL",15,0)

;;

 ;;886,"VAL",16,0)

 ;;NOTE: A PROBLEM MUST BE SELECTED BEFORE ANY ACTIONS ARE AVAILABLE.

 ;;886,"VAL",17,0)

 ;;If you select the Action Menu, or right click and find all options grayed,

 ;;886,"VAL",18,0)

 ;;then you have not selected a problem to act on. Select a problem from the

 ;;886,"VAL",19,0)

 ;;list by clicking on it.

 ;;886,"VAL",20,0)

;;

 ;;886,"VAL",21,0)

 ;;As a convenience, you may double click on a problem in the list to Change

 ;;886,"VAL",22,0)

 ;;(Edit) it.

 ;;886,"VAL",23,0)

;;

 ;;886,"VAL",24,0)

 ;;The Change, Annotate, Remove and Restore options cause a form to appear on

 ;;886,"VAL",25,0)

 ;;the right. Use the form to further characterize and describe the problem.

 ;;886,"VAL",26,0)

;;

 ;;886,"VAL",27,0)

 ;;The inactivate action will either cause a list item to disappear (this

 ;;886,"VAL",28,0)

 ;;will happen in the case that the display filter is set to Active only) or

 ;;886,"VAL",29,0)

 ;;an 'I' indicating its new status will appear next to it on the list.

 ;;886,"VAL",30,0)

;;

 ;;886,"VAL",31,0)

 ;;The Verify action will cause the unverified indicator ('u') to be removed

 ;;886,"VAL",32,0)

 ;;from the line.

 ;;887,"KEY")

 ;;ORWUH WHATSTHIS^lstCatPick

 ;;887,"VAL")

 ;;Problem Category Selection

 ;;887,"VAL",1,0)

 ;;Problem Category Selection

 ;;887,"VAL",2,0)

;;

 ;;887,"VAL",3,0)

 ;;Problem ctegories are comprised of one or more related problems. Typically

 ;;887,"VAL",4,0)

 ;;they are defined for a particular user or department.

 ;;887,"VAL",5,0)

;;

 ;;887,"VAL",6,0)

 ;;Select a category from the list by clicking on it. This action will cause

 ;;887,"VAL",7,0)

 ;;the constituent problems to appear in the Problem Selection List below.

 ;;887,"VAL",8,0)

 ;;Individual problems from the Problem Selection List may be selected for

 ;;887,"VAL",9,0)

 ;;addition to the patient's list.

 ;;893,"KEY")

 ;;ORB PROCESSING FLAG^IMAGING RESULTS AMENDED

 ;;893,"VAL")

 ;;Disabled

 ;;895,"KEY")

 ;;ORB PROCESSING FLAG^STAT IMAGING REQUEST

 ;;895,"VAL")

 ;;Disabled

 ;;896,"KEY")

 ;;ORB PROCESSING FLAG^URGENT IMAGING REQUEST

 ;;896,"VAL")

 ;;Disabled

 ;;900,"KEY")

 ;;ORK PROCESSING FLAG^LAB ORDER FREQ RESTRICTIONS

 ;;900,"VAL")

 ;;Enabled

 ;;901,"KEY")

 ;;ORK CLINICAL DANGER LEVEL^LAB ORDER FREQ RESTRICTIONS

 ;;901,"VAL")

 ;;Moderate

 ;;945,"KEY")

 ;;ORQQLR DATE RANGE INPT^1

 ;;945,"VAL")

;;2

 ;;946,"KEY")

 ;;ORPF LAST ORDER PURGED^1

 ;;946,"VAL")

;;

 ;;949,"KEY")

 ;;ORQQPX SEARCH ITEMS^1

 ;;949,"VAL")

 ;;VA-INFLUENZA VACCINE

 ;;950,"KEY")

 ;;ORQQPX SEARCH ITEMS^2

 ;;950,"VAL")

 ;;VA-PNEUMOVAX

 ;;951,"KEY")

 ;;ORQQPX SEARCH ITEMS^3

 ;;951,"VAL")

 ;;VA-BREAST EXAM

 ;;952,"KEY")

 ;;ORQQPX SEARCH ITEMS^4

 ;;952,"VAL")

 ;;VA-DIGITAL RECTAL (PROSTATE) EXAM

 ;;953,"KEY")

 ;;ORQQPX SEARCH ITEMS^5

 ;;953,"VAL")

 ;;VA-MAMMOGRAM

 ;;954,"KEY")

 ;;ORQQPX SEARCH ITEMS^6

 ;;954,"VAL")

 ;;VA-FLEXISIGMOIDOSCOPY

 ;;955,"KEY")

 ;;ORQQPX SEARCH ITEMS^7

 ;;955,"VAL")

 ;;VA-PAP SMEAR

 ;;956,"KEY")

 ;;ORQQPX SEARCH ITEMS^8

 ;;956,"VAL")

 ;;VA-TOBACCO EDUCATION

 ;;957,"KEY")

 ;;ORQQPX SEARCH ITEMS^9

 ;;957,"VAL")

 ;;VA-BREAST SELF EXAM EDUCATION

 ;;958,"KEY")

 ;;ORQQPX SEARCH ITEMS^10

 ;;958,"VAL")

 ;;VA-ADVANCED DIRECTIVES EDUCATION

 ;;1000,"KEY")

 ;;ORB DELETE MECHANISM^IMAGING RESULTS AMENDED

 ;;1000,"VAL")

 ;;Individual Recipient

 ;;1003,"KEY")

 ;;ORB PROVIDER RECIPIENTS^FOOD/DRUG INTERACTION

 ;;1003,"VAL")

;;

 ;;1005,"KEY")

 ;;ORB URGENCY^IMAGING RESULTS AMENDED

 ;;1005,"VAL")

 ;;Moderate

 ;;1007,"KEY")

 ;;ORB URGENCY^STAT IMAGING REQUEST

 ;;1007,"VAL")

 ;;Moderate

 ;;1008,"KEY")

 ;;ORB URGENCY^URGENT IMAGING REQUEST

 ;;1008,"VAL")

 ;;Moderate

 ;;1009,"KEY")

 ;;ORK CLINICAL DANGER LEVEL^GLUCOPHAGE-CONTRAST MEDIA

 ;;1009,"VAL")

 ;;High

 ;;1011,"KEY")

 ;;ORK CLINICAL DANGER LEVEL^ERROR MESSAGE

 ;;1011,"VAL")

 ;;Low

 ;;1012,"KEY")

 ;;ORK PROCESSING FLAG^ERROR MESSAGE

 ;;1012,"VAL")

 ;;Enabled

 ;;1015,"KEY")

 ;;ORB ARCHIVE PERIOD^ABNORMAL IMAGING RESULTS

 ;;1015,"VAL")

 ;;30

 ;;1016,"KEY")

 ;;ORB ARCHIVE PERIOD^ABNORMAL LAB RESULTS (ACTION)

 ;;1016,"VAL")

 ;;30

 ;;1017,"KEY")

 ;;ORB ARCHIVE PERIOD^ADMISSION

 ;;1017,"VAL")

 ;;30

 ;;1018,"KEY")

 ;;ORB ARCHIVE PERIOD^CONSULT/REQUEST CANCEL/HOLD

 ;;1018,"VAL")

 ;;30

 ;;1019,"KEY")

 ;;ORB ARCHIVE PERIOD^CONSULT/REQUEST RESOLUTION

 ;;1019,"VAL")

 ;;30

 ;;1021,"KEY")

 ;;ORB ARCHIVE PERIOD^CRITICAL LAB RESULT (INFO)

 ;;1021,"VAL")

 ;;30

 ;;1022,"KEY")

 ;;ORB ARCHIVE PERIOD^DECEASED PATIENT

 ;;1022,"VAL")

 ;;30

 ;;1023,"KEY")

 ;;ORB ARCHIVE PERIOD^DISCHARGE

 ;;1023,"VAL")

 ;;30

 ;;1024,"KEY")

 ;;ORB ARCHIVE PERIOD^DNR EXPIRING

 ;;1024,"VAL")

 ;;30

 ;;1025,"KEY")

 ;;ORB ARCHIVE PERIOD^ERROR MESSAGE

 ;;1025,"VAL")

 ;;30

 ;;1026,"KEY")

 ;;ORB ARCHIVE PERIOD^FLAGGED ORDERS

 ;;1026,"VAL")

 ;;30

 ;;1027,"KEY")

 ;;ORB ARCHIVE PERIOD^FOOD/DRUG INTERACTION

 ;;1027,"VAL")

 ;;30

 ;;1028,"KEY")

 ;;ORB ARCHIVE PERIOD^FREE TEXT

 ;;1028,"VAL")

 ;;30

 ;;1030,"KEY")

 ;;ORB ARCHIVE PERIOD^IMAGING PATIENT EXAMINED

 ;;1030,"VAL")

 ;;30

 ;;1031,"KEY")

 ;;ORB ARCHIVE PERIOD^IMAGING REQUEST CANCEL/HELD

 ;;1031,"VAL")

 ;;30

 ;;1032,"KEY")

 ;;ORB ARCHIVE PERIOD^IMAGING RESULTS

 ;;1032,"VAL")

 ;;30

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORXPAR07   7094     printed  Apr 23, 2025@18:52:40                                                                                                                                                                                                    Page 2

ORXPAR07  ; ; Dec 17, 1997@11:35:35

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

 +2       ;;

LOAD      ; load data into ^TMP (expects ROOT to be defined)

 +1        SET I=1

FOR

               SET REF=$TEXT(DATA+I)

               if REF=""

                   QUIT

               SET VAL=$TEXT(DATA+I+1)

               Begin DoDot:1

 +2                SET I=I+2

                   SET REF=$PIECE(REF,";",3,999)

                   SET VAL=$PIECE(VAL,";",3,999)

 +3                SET @(ROOT_REF)=VAL

               End DoDot:1

 +4        GOTO ^ORXPAR08

DATA      ; parameter data

 +1       ;;885,"VAL",26,0)

 +2       ;;any time during a session by this method. The defined filters remain in

 +3       ;;885,"VAL",27,0)

 +4       ;;effect for the duration of the session or until changed again. To quickly

 +5       ;;885,"VAL",28,0)

 +6       ;;return to the user's default or preferred view, Click the Preferred View

 +7       ;;885,"VAL",29,0)

 +8       ;;button.

 +9       ;;886,"KEY")

 +10      ;;ORWUH WHATSTHIS^wgProbData

 +11      ;;886,"VAL")

 +12      ;;Patient Problem List

 +13      ;;886,"VAL",1,0)

 +14      ;;Patient Problem List

 +15      ;;886,"VAL",2,0)

 +16      ;;

 +17      ;;886,"VAL",3,0)

 +18      ;;This grid displays the current patient's problems. It may be

 +19      ;;886,"VAL",4,0)

 +20      ;;filtered to display All problems, Active Problems, Inactive Problems

 +21      ;;886,"VAL",5,0)

 +22      ;;or Removed problems by selecting the appropriate item from the

 +23      ;;886,"VAL",6,0)

 +24      ;;View menu. The ability to use certain display filters may be

 +25      ;;886,"VAL",7,0)

 +26      ;;restricted for some users.

 +27      ;;886,"VAL",8,0)

 +28      ;;

 +29      ;;886,"VAL",9,0)

 +30      ;;The actions Change (or Edit), Inactivate, Verify, Annotate, Remove

 +31      ;;886,"VAL",10,0)

 +32      ;;and Restore may be selected from the upper Action menu. They are also

 +33      ;;886,"VAL",11,0)

 +34      ;;available via a popup menu that appears with a right mouse button click.

 +35      ;;886,"VAL",12,0)

 +36      ;;As is the case for display filters, some actions are restricted for

 +37      ;;886,"VAL",13,0)

 +38      ;;certain users. If an action is restricted, the user will not be able to

 +39      ;;886,"VAL",14,0)

 +40      ;;select it.

 +41      ;;886,"VAL",15,0)

 +42      ;;

 +43      ;;886,"VAL",16,0)

 +44      ;;NOTE: A PROBLEM MUST BE SELECTED BEFORE ANY ACTIONS ARE AVAILABLE.

 +45      ;;886,"VAL",17,0)

 +46      ;;If you select the Action Menu, or right click and find all options grayed,

 +47      ;;886,"VAL",18,0)

 +48      ;;then you have not selected a problem to act on. Select a problem from the

 +49      ;;886,"VAL",19,0)

 +50      ;;list by clicking on it.

 +51      ;;886,"VAL",20,0)

 +52      ;;

 +53      ;;886,"VAL",21,0)

 +54      ;;As a convenience, you may double click on a problem in the list to Change

 +55      ;;886,"VAL",22,0)

 +56      ;;(Edit) it.

 +57      ;;886,"VAL",23,0)

 +58      ;;

 +59      ;;886,"VAL",24,0)

 +60      ;;The Change, Annotate, Remove and Restore options cause a form to appear on

 +61      ;;886,"VAL",25,0)

 +62      ;;the right. Use the form to further characterize and describe the problem.

 +63      ;;886,"VAL",26,0)

 +64      ;;

 +65      ;;886,"VAL",27,0)

 +66      ;;The inactivate action will either cause a list item to disappear (this

 +67      ;;886,"VAL",28,0)

 +68      ;;will happen in the case that the display filter is set to Active only) or

 +69      ;;886,"VAL",29,0)

 +70      ;;an 'I' indicating its new status will appear next to it on the list.

 +71      ;;886,"VAL",30,0)

 +72      ;;

 +73      ;;886,"VAL",31,0)

 +74      ;;The Verify action will cause the unverified indicator ('u') to be removed

 +75      ;;886,"VAL",32,0)

 +76      ;;from the line.

 +77      ;;887,"KEY")

 +78      ;;ORWUH WHATSTHIS^lstCatPick

 +79      ;;887,"VAL")

 +80      ;;Problem Category Selection

 +81      ;;887,"VAL",1,0)

 +82      ;;Problem Category Selection

 +83      ;;887,"VAL",2,0)

 +84      ;;

 +85      ;;887,"VAL",3,0)

 +86      ;;Problem ctegories are comprised of one or more related problems. Typically

 +87      ;;887,"VAL",4,0)

 +88      ;;they are defined for a particular user or department.

 +89      ;;887,"VAL",5,0)

 +90      ;;

 +91      ;;887,"VAL",6,0)

 +92      ;;Select a category from the list by clicking on it. This action will cause

 +93      ;;887,"VAL",7,0)

 +94      ;;the constituent problems to appear in the Problem Selection List below.

 +95      ;;887,"VAL",8,0)

 +96      ;;Individual problems from the Problem Selection List may be selected for

 +97      ;;887,"VAL",9,0)

 +98      ;;addition to the patient's list.

 +99      ;;893,"KEY")

 +100     ;;ORB PROCESSING FLAG^IMAGING RESULTS AMENDED

 +101     ;;893,"VAL")

 +102     ;;Disabled

 +103     ;;895,"KEY")

 +104     ;;ORB PROCESSING FLAG^STAT IMAGING REQUEST

 +105     ;;895,"VAL")

 +106     ;;Disabled

 +107     ;;896,"KEY")

 +108     ;;ORB PROCESSING FLAG^URGENT IMAGING REQUEST

 +109     ;;896,"VAL")

 +110     ;;Disabled

 +111     ;;900,"KEY")

 +112     ;;ORK PROCESSING FLAG^LAB ORDER FREQ RESTRICTIONS

 +113     ;;900,"VAL")

 +114     ;;Enabled

 +115     ;;901,"KEY")

 +116     ;;ORK CLINICAL DANGER LEVEL^LAB ORDER FREQ RESTRICTIONS

 +117     ;;901,"VAL")

 +118     ;;Moderate

 +119     ;;945,"KEY")

 +120     ;;ORQQLR DATE RANGE INPT^1

 +121     ;;945,"VAL")

 +122     ;;2

 +123     ;;946,"KEY")

 +124     ;;ORPF LAST ORDER PURGED^1

 +125     ;;946,"VAL")

 +126     ;;

 +127     ;;949,"KEY")

 +128     ;;ORQQPX SEARCH ITEMS^1

 +129     ;;949,"VAL")

 +130     ;;VA-INFLUENZA VACCINE

 +131     ;;950,"KEY")

 +132     ;;ORQQPX SEARCH ITEMS^2

 +133     ;;950,"VAL")

 +134     ;;VA-PNEUMOVAX

 +135     ;;951,"KEY")

 +136     ;;ORQQPX SEARCH ITEMS^3

 +137     ;;951,"VAL")

 +138     ;;VA-BREAST EXAM

 +139     ;;952,"KEY")

 +140     ;;ORQQPX SEARCH ITEMS^4

 +141     ;;952,"VAL")

 +142     ;;VA-DIGITAL RECTAL (PROSTATE) EXAM

 +143     ;;953,"KEY")

 +144     ;;ORQQPX SEARCH ITEMS^5

 +145     ;;953,"VAL")

 +146     ;;VA-MAMMOGRAM

 +147     ;;954,"KEY")

 +148     ;;ORQQPX SEARCH ITEMS^6

 +149     ;;954,"VAL")

 +150     ;;VA-FLEXISIGMOIDOSCOPY

 +151     ;;955,"KEY")

 +152     ;;ORQQPX SEARCH ITEMS^7

 +153     ;;955,"VAL")

 +154     ;;VA-PAP SMEAR

 +155     ;;956,"KEY")

 +156     ;;ORQQPX SEARCH ITEMS^8

 +157     ;;956,"VAL")

 +158     ;;VA-TOBACCO EDUCATION

 +159     ;;957,"KEY")

 +160     ;;ORQQPX SEARCH ITEMS^9

 +161     ;;957,"VAL")

 +162     ;;VA-BREAST SELF EXAM EDUCATION

 +163     ;;958,"KEY")

 +164     ;;ORQQPX SEARCH ITEMS^10

 +165     ;;958,"VAL")

 +166     ;;VA-ADVANCED DIRECTIVES EDUCATION

 +167     ;;1000,"KEY")

 +168     ;;ORB DELETE MECHANISM^IMAGING RESULTS AMENDED

 +169     ;;1000,"VAL")

 +170     ;;Individual Recipient

 +171     ;;1003,"KEY")

 +172     ;;ORB PROVIDER RECIPIENTS^FOOD/DRUG INTERACTION

 +173     ;;1003,"VAL")

 +174     ;;

 +175     ;;1005,"KEY")

 +176     ;;ORB URGENCY^IMAGING RESULTS AMENDED

 +177     ;;1005,"VAL")

 +178     ;;Moderate

 +179     ;;1007,"KEY")

 +180     ;;ORB URGENCY^STAT IMAGING REQUEST

 +181     ;;1007,"VAL")

 +182     ;;Moderate

 +183     ;;1008,"KEY")

 +184     ;;ORB URGENCY^URGENT IMAGING REQUEST

 +185     ;;1008,"VAL")

 +186     ;;Moderate

 +187     ;;1009,"KEY")

 +188     ;;ORK CLINICAL DANGER LEVEL^GLUCOPHAGE-CONTRAST MEDIA

 +189     ;;1009,"VAL")

 +190     ;;High

 +191     ;;1011,"KEY")

 +192     ;;ORK CLINICAL DANGER LEVEL^ERROR MESSAGE

 +193     ;;1011,"VAL")

 +194     ;;Low

 +195     ;;1012,"KEY")

 +196     ;;ORK PROCESSING FLAG^ERROR MESSAGE

 +197     ;;1012,"VAL")

 +198     ;;Enabled

 +199     ;;1015,"KEY")

 +200     ;;ORB ARCHIVE PERIOD^ABNORMAL IMAGING RESULTS

 +201     ;;1015,"VAL")

 +202     ;;30

 +203     ;;1016,"KEY")

 +204     ;;ORB ARCHIVE PERIOD^ABNORMAL LAB RESULTS (ACTION)

 +205     ;;1016,"VAL")

 +206     ;;30

 +207     ;;1017,"KEY")

 +208     ;;ORB ARCHIVE PERIOD^ADMISSION

 +209     ;;1017,"VAL")

 +210     ;;30

 +211     ;;1018,"KEY")

 +212     ;;ORB ARCHIVE PERIOD^CONSULT/REQUEST CANCEL/HOLD

 +213     ;;1018,"VAL")

 +214     ;;30

 +215     ;;1019,"KEY")

 +216     ;;ORB ARCHIVE PERIOD^CONSULT/REQUEST RESOLUTION

 +217     ;;1019,"VAL")

 +218     ;;30

 +219     ;;1021,"KEY")

 +220     ;;ORB ARCHIVE PERIOD^CRITICAL LAB RESULT (INFO)

 +221     ;;1021,"VAL")

 +222     ;;30

 +223     ;;1022,"KEY")

 +224     ;;ORB ARCHIVE PERIOD^DECEASED PATIENT

 +225     ;;1022,"VAL")

 +226     ;;30

 +227     ;;1023,"KEY")

 +228     ;;ORB ARCHIVE PERIOD^DISCHARGE

 +229     ;;1023,"VAL")

 +230     ;;30

 +231     ;;1024,"KEY")

 +232     ;;ORB ARCHIVE PERIOD^DNR EXPIRING

 +233     ;;1024,"VAL")

 +234     ;;30

 +235     ;;1025,"KEY")

 +236     ;;ORB ARCHIVE PERIOD^ERROR MESSAGE

 +237     ;;1025,"VAL")

 +238     ;;30

 +239     ;;1026,"KEY")

 +240     ;;ORB ARCHIVE PERIOD^FLAGGED ORDERS

 +241     ;;1026,"VAL")

 +242     ;;30

 +243     ;;1027,"KEY")

 +244     ;;ORB ARCHIVE PERIOD^FOOD/DRUG INTERACTION

 +245     ;;1027,"VAL")

 +246     ;;30

 +247     ;;1028,"KEY")

 +248     ;;ORB ARCHIVE PERIOD^FREE TEXT

 +249     ;;1028,"VAL")

 +250     ;;30

 +251     ;;1030,"KEY")

 +252     ;;ORB ARCHIVE PERIOD^IMAGING PATIENT EXAMINED

 +253     ;;1030,"VAL")

 +254     ;;30

 +255     ;;1031,"KEY")

 +256     ;;ORB ARCHIVE PERIOD^IMAGING REQUEST CANCEL/HELD

 +257     ;;1031,"VAL")

 +258     ;;30

 +259     ;;1032,"KEY")

 +260     ;;ORB ARCHIVE PERIOD^IMAGING RESULTS

 +261     ;;1032,"VAL")

 +262     ;;30

ORXPAR07.m