BIDU1 ;IHS/CMI/MWR - DUE LIST/LETTERS, HELP; MAY 10, 2010
;;8.5;IMMUNIZATION;;SEP 01,2011
;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
;; DUE LISTS/LETTERS, HELP.
;
;
;----------
HELP ;EP
;---> Help code.
N BIX S BIX=X
D FULL^VALM1
W !!?5,"Enter ""L"" to view or print a list of patients according to the"
W !?5,"selection criteria above. Enter ""P"" to print letters to the list"
W !?5,"of patients selected above. Or enter ""H"" to view the full help text"
W !?5,"of the lists, letters, and parameters above."
D DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
D:BIX'="??" RESET^BIDU
Q
;
;
;----------
HELP1 ;EP
;----> Explanation of this report.
N BITEXT D TEXT1(.BITEXT)
D START^BIHELP("DUE LISTS AND LETTERS - HELP",.BITEXT)
Q
;
;
;----------
TEXT1(BITEXT) ;EP
;;
;;The IMMUNIZATION LISTS & LETTERS screen provides a single point from
;;which to view Due Lists and Master Lists, and to print Due Letters.
;;
;;There are 13 items or "parameters" on the screen that you may
;;change in order to select for a specific group of patients.
;;To change an item, enter its left column number (1-12) at the
;;prompt on the bottom of the screen. Use "?" at any prompt where
;;you would like help or more information on the parameter you are
;;changing.
;;
;;Once you have the parameters set to retrieve the group of patients
;;you want, select L to print or view the List of patients, or
;;select P to Print Due Letters.
;;
;;In building this list to view or print, the computer must examine
;;every patient in the Immunization Register. For this reason, on
;;some computer systems it may take some time before the list appears.
;;
;;For the parameters: DATE OF FORECAST, AGE RANGE, PATIENT GROUP,
;;ADDITIONAL INFORMATION, and ORDER OF LISTING detailed help will be
;;displayed when you select these items.
;;
;;COMMUNITIES: If you select for specific Communities, only patients
;;whose Current Community (under Patient Registration) is one of the
;;selected Communities will be included in the Lists and Letters.
;;
;;CASE MANAGERS: If you select for specific Case Managers, only
;;patients who have the selected Case Managers will be included
;;in the Lists and Letters.
;;
;;DESIGNATED PROVIDERS: If you select for specific Designated Primary
;;Providers, only patients who have the selected Providers will be
;;included in the Lists and Letters.
;;
;;IMMUNIZATIONS RECEIVED: If you select for specific Immunizations
;;Received, then only patients who have received the Vaccines selected
;;will be included in the Lists and Letters. If you further limit your
;;criteria to a date range, then only patients who have received the
;;the selected vaccines within the date range will be included. You can
;;then choose to display only the history of the vaccines you selected.
;;
;;NOTE: If you select for ALL vaccines and do NOT limit it by date
;;range, then this criterium "Immunizations Received" will have
;;NO limiting effect. This feature allows you to create lists that
;;include patients who have never received an immunization at your
;;site--for example, a Due List that includes newcomers.
;;
;;IMMUNIZATIONS DUE: If you select for specific Immunizations Due,
;;then only patients who are due for the Vaccines selected will be
;;included in the Lists and Letters.
;;
;;NOTE: This parameter is only used to limit a list to patients who
;;are due for specific vaccines. If you simply leave the parameter
;;as "ALL" it will have no limiting effect on the Patient Group chosen
;;in parameter 3 of the Lists & Letters Menu.
;;
;;LOT NUMBERS: If you select for specific Lot Numbers, only patients
;;who have received immunizations with the specified Lot Numbers will
;;be included in the Lists and Letters.
;;
;;HEALTH CARE FACILITIES: If you select for specific Facility, only
;;patients who have a Health Record Number at one of the selected
;;Health Care Facilities will be included in the Lists and Letters.
;;
D LOADTX("TEXT1",,.BITEXT)
Q
;
;
;----------
LOADTX(BILINL,BITAB,BITEXT) ;EP
Q:$G(BILINL)=""
N I,T,X S T="" S:'$D(BITAB) BITAB=5 F I=1:1:BITAB S T=T_" "
F I=1:1 S X=$T(@BILINL+I) Q:X'[";;" S BITEXT(I)=T_$P(X,";;",2)
Q
BIDU1 ;IHS/CMI/MWR - DUE LIST/LETTERS, HELP; MAY 10, 2010
+1 ;;8.5;IMMUNIZATION;;SEP 01,2011
+2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
+3 ;; DUE LISTS/LETTERS, HELP.
+4 ;
+5 ;
+6 ;----------
HELP ;EP
+1 ;---> Help code.
+2 NEW BIX
SET BIX=X
+3 DO FULL^VALM1
+4 WRITE !!?5,"Enter ""L"" to view or print a list of patients according to the"
+5 WRITE !?5,"selection criteria above. Enter ""P"" to print letters to the list"
+6 WRITE !?5,"of patients selected above. Or enter ""H"" to view the full help text"
+7 WRITE !?5,"of the lists, letters, and parameters above."
+8 DO DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
+9 IF BIX'="??"
DO RESET^BIDU
+10 QUIT
+11 ;
+12 ;
+13 ;----------
HELP1 ;EP
+1 ;----> Explanation of this report.
+2 NEW BITEXT
DO TEXT1(.BITEXT)
+3 DO START^BIHELP("DUE LISTS AND LETTERS - HELP",.BITEXT)
+4 QUIT
+5 ;
+6 ;
+7 ;----------
TEXT1(BITEXT) ;EP
+1 ;;
+2 ;;The IMMUNIZATION LISTS & LETTERS screen provides a single point from
+3 ;;which to view Due Lists and Master Lists, and to print Due Letters.
+4 ;;
+5 ;;There are 13 items or "parameters" on the screen that you may
+6 ;;change in order to select for a specific group of patients.
+7 ;;To change an item, enter its left column number (1-12) at the
+8 ;;prompt on the bottom of the screen. Use "?" at any prompt where
+9 ;;you would like help or more information on the parameter you are
+10 ;;changing.
+11 ;;
+12 ;;Once you have the parameters set to retrieve the group of patients
+13 ;;you want, select L to print or view the List of patients, or
+14 ;;select P to Print Due Letters.
+15 ;;
+16 ;;In building this list to view or print, the computer must examine
+17 ;;every patient in the Immunization Register. For this reason, on
+18 ;;some computer systems it may take some time before the list appears.
+19 ;;
+20 ;;For the parameters: DATE OF FORECAST, AGE RANGE, PATIENT GROUP,
+21 ;;ADDITIONAL INFORMATION, and ORDER OF LISTING detailed help will be
+22 ;;displayed when you select these items.
+23 ;;
+24 ;;COMMUNITIES: If you select for specific Communities, only patients
+25 ;;whose Current Community (under Patient Registration) is one of the
+26 ;;selected Communities will be included in the Lists and Letters.
+27 ;;
+28 ;;CASE MANAGERS: If you select for specific Case Managers, only
+29 ;;patients who have the selected Case Managers will be included
+30 ;;in the Lists and Letters.
+31 ;;
+32 ;;DESIGNATED PROVIDERS: If you select for specific Designated Primary
+33 ;;Providers, only patients who have the selected Providers will be
+34 ;;included in the Lists and Letters.
+35 ;;
+36 ;;IMMUNIZATIONS RECEIVED: If you select for specific Immunizations
+37 ;;Received, then only patients who have received the Vaccines selected
+38 ;;will be included in the Lists and Letters. If you further limit your
+39 ;;criteria to a date range, then only patients who have received the
+40 ;;the selected vaccines within the date range will be included. You can
+41 ;;then choose to display only the history of the vaccines you selected.
+42 ;;
+43 ;;NOTE: If you select for ALL vaccines and do NOT limit it by date
+44 ;;range, then this criterium "Immunizations Received" will have
+45 ;;NO limiting effect. This feature allows you to create lists that
+46 ;;include patients who have never received an immunization at your
+47 ;;site--for example, a Due List that includes newcomers.
+48 ;;
+49 ;;IMMUNIZATIONS DUE: If you select for specific Immunizations Due,
+50 ;;then only patients who are due for the Vaccines selected will be
+51 ;;included in the Lists and Letters.
+52 ;;
+53 ;;NOTE: This parameter is only used to limit a list to patients who
+54 ;;are due for specific vaccines. If you simply leave the parameter
+55 ;;as "ALL" it will have no limiting effect on the Patient Group chosen
+56 ;;in parameter 3 of the Lists & Letters Menu.
+57 ;;
+58 ;;LOT NUMBERS: If you select for specific Lot Numbers, only patients
+59 ;;who have received immunizations with the specified Lot Numbers will
+60 ;;be included in the Lists and Letters.
+61 ;;
+62 ;;HEALTH CARE FACILITIES: If you select for specific Facility, only
+63 ;;patients who have a Health Record Number at one of the selected
+64 ;;Health Care Facilities will be included in the Lists and Letters.
+65 ;;
+66 DO LOADTX("TEXT1",,.BITEXT)
+67 QUIT
+68 ;
+69 ;
+70 ;----------
LOADTX(BILINL,BITAB,BITEXT) ;EP
+1 IF $GET(BILINL)=""
QUIT
+2 NEW I,T,X
SET T=""
IF '$DATA(BITAB)
SET BITAB=5
FOR I=1:1:BITAB
SET T=T_" "
+3 FOR I=1:1
SET X=$TEXT(@BILINL+I)
IF X'[";;"
QUIT
SET BITEXT(I)=T_$PIECE(X,";;",2)
+4 QUIT
