- BSDH021 ; IHS/ANMC/LJF - HELP TEXT FOR CLINIC AVAIL RPTS ;
- ;;5.3;PIMS;**1005,1007,1012**;FEB 26, 2007
- ;IHS/OIT/LJF 04/12/2006 PATCH 1005 added WK5 subroutine
- ;cmi/anch/maw 2/6/2007 PATCH 1007 item 1007.18, 1007.19 added AM4 and AM5 subroutines
- ;cmi/flag/maw 06/02/2010 PATCH 1012 added TOD subroutine
- ;
- ABB ;EP; intro text for Clinic Abbreviations
- NEW BSDX
- S BSDX(1)="Use this report to produce a listing of abbreviations for"
- S BSDX(2)="all active clinics. Many reports do not have room for"
- S BSDX(3)="clinic names so abbreviations are used. This list can"
- S BSDX(4)="serve to decipher unfamiliar abbreviations."
- D DISPLAY(4)
- Q
- ;
- AM1 ;EP; intro text for Appt Mgt Statistics
- NEW BSDX
- S BSDX(1)="Use this report to print a statistics for appointments with"
- S BSDX(2)="their corresponding statuses of checked-in, checked-out,"
- S BSDX(3)="no action taken, cancelled, no-shows and inpatient. Use"
- S BSDX(4)="the report to track whether all your appointments have"
- S BSDX(5)="been processed. This will insure that workload reports"
- S BSDX(6)="run properly."
- D DISPLAY(6)
- Q
- ;
- AM2 ;EP; intro text for "NO Action Taken" appointments
- NEW BSDX
- S BSDX(1)="Use this report to list all appointments with no status"
- S BSDX(2)="or with a status of ""No Action Taken"". All Workload"
- S BSDX(3)="and statistical reports will not be accurate until these"
- S BSDX(4)="appointments have an appropriate status added."
- D DISPLAY(4)
- Q
- ;
- AM3 ;EP; intro text for List Uncoded Appointments
- NEW BSDX
- S BSDX(1)="This is a PCC report duplicated here for convenience."
- S BSDX(2)="It can also be found on the Visit Review Report menu as"
- S BSDX(3)="CINC - Scheduling Check-In Created Visits Not Yet Coded."
- S BSDX(4)="It will list all PCC visits created by Scheduling that do"
- S BSDX(5)="NOT have a POV added yet. This is used to determine if"
- S BSDX(6)="PCC forms are not being submitted or if duplicate visits"
- S BSDX(7)="are being created."
- D DISPLAY(7)
- Q
- ;
- AM4 ;EP; intro text for "Eligibility" appointments
- NEW BSDX
- S BSDX(1)="Use this report to list all appointments with patient's"
- S BSDX(2)="Insurance Eligibility. You will be asked to select"
- S BSDX(3)="which type of coverage to display as well as what to"
- S BSDX(4)="sort the report by."
- D DISPLAY(4)
- Q
- ;
- AM5 ;EP; intro text for "Cancelled" appointments
- NEW BSDX
- S BSDX(1)="Use this report to list all appointments that were cancelled"
- S BSDX(2)="This report may take some time as it has to search through"
- S BSDX(3)="the entire patient file to obtain the information needed for"
- S BSDX(4)="the report."
- D DISPLAY(4)
- Q
- ;
- CAP ;EP; intro text for Clinic Capacity Report
- NEW BSDX
- S BSDX(1)="Use this report to compare appointment slots assigned vs."
- S BSDX(2)="open slots left. For past dates this report will also"
- S BSDX(3)="display the number of actual patient encounters that day,"
- S BSDX(4)="the number of new appointments made that day along with"
- S BSDX(5)="the average number of days between making the appointment"
- S BSDX(6)="and the appointment date itself."
- D DISPLAY(6),PAUSE^BDGF
- Q
- ;
- CAV ;EP; intro text for Clinic Availability Report
- NEW BSDX
- S BSDX(1)="Use this report to view the month-at-a-glance display for"
- S BSDX(2)="selected dates for multiple clinics with short appointment"
- S BSDX(3)="lists attached. You can choose to also include no-shows"
- S BSDX(4)="and cancelled appointments in the listings."
- D DISPLAY(4)
- Q
- ;
- DOW ;EP; -- intro on Clinic List (Day of Week)
- NEW BSDX
- S BSDX(1)="Use this report to generate a list of clinics by the day"
- S BSDX(2)="of week they meet. It also lists if a clinic meets on each"
- S BSDX(3)="day currently or will in the future. You can choose to print"
- S BSDX(4)="by division, principal clinic or selected clinics."
- D DISPLAY(4)
- Q
- ;
- NAA ;EP; intro text for Next Available Appointment
- NEW BSDX
- S BSDX(1)="Use this report to print a listing of active clinics,"
- S BSDX(2)="sorted by principal clinic, noting the number of days"
- S BSDX(3)="until an appointment is available."
- D DISPLAY(3)
- Q
- ;
- NAM ;EP; intro text for Count Number Appts Made
- NEW BSDX
- S BSDX(1)="Use this report to review the number of appointments made"
- S BSDX(2)="each day by principal clinic and individual clinic. The"
- S BSDX(3)="number made by day of week is also included as well as the"
- S BSDX(4)="wait time between making the appointment and the actual"
- S BSDX(5)="appointment date. The wait times are listed as low, high"
- S BSDX(6)="and average number of days."
- D DISPLAY(6)
- Q
- ;
- NS1 ;EP; intro text for No-Show Report
- NEW BSDX
- S BSDX(1)="Use this report to list numbers of no-shows by date and"
- S BSDX(2)="optionally a patient listing. Subtotaled by clinic and"
- S BSDX(3)="division."
- D DISPLAY(3)
- Q
- ;
- NS2 ;EP; intro text for Frequent No-Shows
- NEW BSDX
- S BSDX(1)="Use this report to track patients with a specified number"
- S BSDX(2)="of recorded no-shows by clinic, by principal clinic or for"
- S BSDX(3)="your whole facility. Each time you run the report, you can"
- S BSDX(4)="select the # of no-shows that will determine who to include"
- S BSDX(5)="in the listing."
- D DISPLAY(5)
- Q
- ;
- NUM ;EP; intro text for Number of Available Appointments
- NEW BSDX
- S BSDX(1)="Use this report to view the number of appointments still"
- S BSDX(2)="available in selected clinics for a 14 day date range."
- S BSDX(3)="The default is to start with today. The list is sorted by"
- S BSDX(4)="principal clinic"
- D DISPLAY(4)
- Q
- ;
- TOD ;EP; intro text for Time of Day clinic fills up
- NEW BSDX
- S BSDX(1)="Use this report to display the time of day a clinic fills"
- S BSDX(2)="up. It will display the date and time of the last"
- S BSDX(3)="appointment made, even if it did not occur on the day that"
- S BSDX(4)="the report is generated"
- D DISPLAY(4)
- Q
- ;
- WK1 ;EP; intro text for Workload Report: Appts by Type
- NEW BSDX
- S BSDX(1)="Use this report to view counts of completed appointments"
- S BSDX(2)="broken down by type of appointment (scheduled, same day,"
- S BSDX(3)="walkin, overbook or inpatient). Sorts include clinic,"
- S BSDX(4)="principal clinic, provider or team. Optional subsorts"
- S BSDX(5)="include morning vs. afternoon appts., pediatric vs. adult"
- S BSDX(6)="patients, and male vs. female patients."
- D DISPLAY(6)
- Q
- ;
- WK2 ;EP; intro text for Workload Listing
- NEW BSDX
- S BSDX(1)="Use this report to view a listing of completed appointments"
- S BSDX(2)="sorted by clinic and date. For each appointment, the type"
- S BSDX(3)="(scheduled, walkin, inpt, etc.), chart #, sex, age and"
- S BSDX(4)="appointment status (checked-in, no action taken) are listed"
- S BSDX(5)="Can be sorted by principal clinic, provider or team."
- D DISPLAY(5)
- Q
- ;
- WK3 ;EP; intro text for Workload Comparisons
- NEW BSDX
- S BSDX(1)="Use this report to compare statistics between the date"
- S BSDX(2)="range selected and the same date range in the previous"
- S BSDX(3)="year. For each month, the net change and percent change"
- S BSDX(4)="is noted. The report can be sorted by clinic, principal"
- S BSDX(5)="clinic, provider or team. No subsorts are available."
- D DISPLAY(5)
- Q
- ;
- WK4 ;EP; intro text for Scheduled vs. Seen report
- NEW BSDX
- S BSDX(1)="Use this report to compare workload expectations versus"
- S BSDX(2)="what actually happened in clinic. Scheduled appointments"
- S BSDX(3)="are added to overbooks while cancellations are subtracted"
- S BSDX(4)="to give you the number of patients expected. Then no-shows"
- S BSDX(5)="are subtracted and walk-ins added to show how many patients"
- S BSDX(6)="were actually seen. Sorts and subsorted are the same as"
- S BSDX(7)="Statistics by Type of Appointment report."
- D DISPLAY(7)
- Q
- ;
- ;IHS/OIT/LJF 04/12/2006 PATCH 1005 added WK5 subroutine
- WK5 ;EP; intro text for Clinic Workload Report
- NEW BSDX
- S BSDX(1)="Use this option to print out statistics on the number of"
- S BSDX(2)="appointments per clinic for a date range. The Expanded"
- S BSDX(3)="Report breaks down the numbers by scheduled and unscheduled"
- S BSDX(4)="appointments, cancellations and inpatients. You can choose"
- S BSDX(5)="to list the patients. The Brief Report lists only the number"
- S BSDX(6)="of appointments and compares it to the same date range of"
- S BSDX(7)="the previous year. It can take a long time to run. This"
- S BSDX(8)="report is NOT designed to be run on the terminal screen!"
- D DISPLAY(8)
- Q
- ;
- WK6 ;EP; intro text for turn around time report
- NEW BSDX
- S BSDX(1)="Use this option to print out statistics on the turn around"
- S BSDX(2)="time of appointments. Turn around time (TAT) is the difference"
- S BSDX(3)="between time checked in and time checked out. Report can"
- S BSDX(4)="be summary and detailed. Summary lists number of appointments"
- S BSDX(5)="number checked in and number checked out. Detailed includes"
- S BSDX(6)="summary info plus a listing of each appointment with patient"
- S BSDX(7)="name, chart number, appointment time, check in time, check out"
- S BSDX(8)="time, and TAT"
- D DISPLAY(8)
- Q
- ;
- WK7 ;EP; intro text for chart request and routing slip report
- NEW BSDX
- S BSDX(1)="Use this option to print out statistics on the number of"
- S BSDX(2)="chart requests and routing slips printed by month. The report"
- S BSDX(3)="displays number of routing slips printed, subtotals by chart"
- S BSDX(4)="requests, scheduled appointments and walkins."
- S BSDX(5)="The report can be subtotaled by sorting criteria."
- D DISPLAY(5)
- Q
- ;
- WK8 ;EP; intro text for advanced access report
- NEW BSDX
- S BSDX(1)="Use this option to print out a report to assess the internal"
- S BSDX(2)="and external demand for appointments. The report should be"
- S BSDX(3)="evaluated on a daily basis to adjust the providers schedule"
- S BSDX(4)="so that patients have better access to health care"
- D DISPLAY(4)
- Q
- ;
- DISPLAY(N) ; -- display array with N lines
- S BSDX(1,"F")="!!!?5"
- F I=2:1:N S BSDX(I,"F")="!?5"
- S BSDX(N+1,"F")="!!"
- D EN^DDIOL(.BSDX)
- Q
- ;
- PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
- Q $E(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
- ;
- SP(N) ; -- returns N number of spaces
- Q $$PAD(" ",N)
- BSDH021 ; IHS/ANMC/LJF - HELP TEXT FOR CLINIC AVAIL RPTS ;
- +1 ;;5.3;PIMS;**1005,1007,1012**;FEB 26, 2007
- +2 ;IHS/OIT/LJF 04/12/2006 PATCH 1005 added WK5 subroutine
- +3 ;cmi/anch/maw 2/6/2007 PATCH 1007 item 1007.18, 1007.19 added AM4 and AM5 subroutines
- +4 ;cmi/flag/maw 06/02/2010 PATCH 1012 added TOD subroutine
- +5 ;
- ABB ;EP; intro text for Clinic Abbreviations
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to produce a listing of abbreviations for"
- +3 SET BSDX(2)="all active clinics. Many reports do not have room for"
- +4 SET BSDX(3)="clinic names so abbreviations are used. This list can"
- +5 SET BSDX(4)="serve to decipher unfamiliar abbreviations."
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- AM1 ;EP; intro text for Appt Mgt Statistics
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to print a statistics for appointments with"
- +3 SET BSDX(2)="their corresponding statuses of checked-in, checked-out,"
- +4 SET BSDX(3)="no action taken, cancelled, no-shows and inpatient. Use"
- +5 SET BSDX(4)="the report to track whether all your appointments have"
- +6 SET BSDX(5)="been processed. This will insure that workload reports"
- +7 SET BSDX(6)="run properly."
- +8 DO DISPLAY(6)
- +9 QUIT
- +10 ;
- AM2 ;EP; intro text for "NO Action Taken" appointments
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to list all appointments with no status"
- +3 SET BSDX(2)="or with a status of ""No Action Taken"". All Workload"
- +4 SET BSDX(3)="and statistical reports will not be accurate until these"
- +5 SET BSDX(4)="appointments have an appropriate status added."
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- AM3 ;EP; intro text for List Uncoded Appointments
- +1 NEW BSDX
- +2 SET BSDX(1)="This is a PCC report duplicated here for convenience."
- +3 SET BSDX(2)="It can also be found on the Visit Review Report menu as"
- +4 SET BSDX(3)="CINC - Scheduling Check-In Created Visits Not Yet Coded."
- +5 SET BSDX(4)="It will list all PCC visits created by Scheduling that do"
- +6 SET BSDX(5)="NOT have a POV added yet. This is used to determine if"
- +7 SET BSDX(6)="PCC forms are not being submitted or if duplicate visits"
- +8 SET BSDX(7)="are being created."
- +9 DO DISPLAY(7)
- +10 QUIT
- +11 ;
- AM4 ;EP; intro text for "Eligibility" appointments
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to list all appointments with patient's"
- +3 SET BSDX(2)="Insurance Eligibility. You will be asked to select"
- +4 SET BSDX(3)="which type of coverage to display as well as what to"
- +5 SET BSDX(4)="sort the report by."
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- AM5 ;EP; intro text for "Cancelled" appointments
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to list all appointments that were cancelled"
- +3 SET BSDX(2)="This report may take some time as it has to search through"
- +4 SET BSDX(3)="the entire patient file to obtain the information needed for"
- +5 SET BSDX(4)="the report."
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- CAP ;EP; intro text for Clinic Capacity Report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to compare appointment slots assigned vs."
- +3 SET BSDX(2)="open slots left. For past dates this report will also"
- +4 SET BSDX(3)="display the number of actual patient encounters that day,"
- +5 SET BSDX(4)="the number of new appointments made that day along with"
- +6 SET BSDX(5)="the average number of days between making the appointment"
- +7 SET BSDX(6)="and the appointment date itself."
- +8 DO DISPLAY(6)
- DO PAUSE^BDGF
- +9 QUIT
- +10 ;
- CAV ;EP; intro text for Clinic Availability Report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to view the month-at-a-glance display for"
- +3 SET BSDX(2)="selected dates for multiple clinics with short appointment"
- +4 SET BSDX(3)="lists attached. You can choose to also include no-shows"
- +5 SET BSDX(4)="and cancelled appointments in the listings."
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- DOW ;EP; -- intro on Clinic List (Day of Week)
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to generate a list of clinics by the day"
- +3 SET BSDX(2)="of week they meet. It also lists if a clinic meets on each"
- +4 SET BSDX(3)="day currently or will in the future. You can choose to print"
- +5 SET BSDX(4)="by division, principal clinic or selected clinics."
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- NAA ;EP; intro text for Next Available Appointment
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to print a listing of active clinics,"
- +3 SET BSDX(2)="sorted by principal clinic, noting the number of days"
- +4 SET BSDX(3)="until an appointment is available."
- +5 DO DISPLAY(3)
- +6 QUIT
- +7 ;
- NAM ;EP; intro text for Count Number Appts Made
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to review the number of appointments made"
- +3 SET BSDX(2)="each day by principal clinic and individual clinic. The"
- +4 SET BSDX(3)="number made by day of week is also included as well as the"
- +5 SET BSDX(4)="wait time between making the appointment and the actual"
- +6 SET BSDX(5)="appointment date. The wait times are listed as low, high"
- +7 SET BSDX(6)="and average number of days."
- +8 DO DISPLAY(6)
- +9 QUIT
- +10 ;
- NS1 ;EP; intro text for No-Show Report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to list numbers of no-shows by date and"
- +3 SET BSDX(2)="optionally a patient listing. Subtotaled by clinic and"
- +4 SET BSDX(3)="division."
- +5 DO DISPLAY(3)
- +6 QUIT
- +7 ;
- NS2 ;EP; intro text for Frequent No-Shows
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to track patients with a specified number"
- +3 SET BSDX(2)="of recorded no-shows by clinic, by principal clinic or for"
- +4 SET BSDX(3)="your whole facility. Each time you run the report, you can"
- +5 SET BSDX(4)="select the # of no-shows that will determine who to include"
- +6 SET BSDX(5)="in the listing."
- +7 DO DISPLAY(5)
- +8 QUIT
- +9 ;
- NUM ;EP; intro text for Number of Available Appointments
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to view the number of appointments still"
- +3 SET BSDX(2)="available in selected clinics for a 14 day date range."
- +4 SET BSDX(3)="The default is to start with today. The list is sorted by"
- +5 SET BSDX(4)="principal clinic"
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- TOD ;EP; intro text for Time of Day clinic fills up
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to display the time of day a clinic fills"
- +3 SET BSDX(2)="up. It will display the date and time of the last"
- +4 SET BSDX(3)="appointment made, even if it did not occur on the day that"
- +5 SET BSDX(4)="the report is generated"
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- WK1 ;EP; intro text for Workload Report: Appts by Type
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to view counts of completed appointments"
- +3 SET BSDX(2)="broken down by type of appointment (scheduled, same day,"
- +4 SET BSDX(3)="walkin, overbook or inpatient). Sorts include clinic,"
- +5 SET BSDX(4)="principal clinic, provider or team. Optional subsorts"
- +6 SET BSDX(5)="include morning vs. afternoon appts., pediatric vs. adult"
- +7 SET BSDX(6)="patients, and male vs. female patients."
- +8 DO DISPLAY(6)
- +9 QUIT
- +10 ;
- WK2 ;EP; intro text for Workload Listing
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to view a listing of completed appointments"
- +3 SET BSDX(2)="sorted by clinic and date. For each appointment, the type"
- +4 SET BSDX(3)="(scheduled, walkin, inpt, etc.), chart #, sex, age and"
- +5 SET BSDX(4)="appointment status (checked-in, no action taken) are listed"
- +6 SET BSDX(5)="Can be sorted by principal clinic, provider or team."
- +7 DO DISPLAY(5)
- +8 QUIT
- +9 ;
- WK3 ;EP; intro text for Workload Comparisons
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to compare statistics between the date"
- +3 SET BSDX(2)="range selected and the same date range in the previous"
- +4 SET BSDX(3)="year. For each month, the net change and percent change"
- +5 SET BSDX(4)="is noted. The report can be sorted by clinic, principal"
- +6 SET BSDX(5)="clinic, provider or team. No subsorts are available."
- +7 DO DISPLAY(5)
- +8 QUIT
- +9 ;
- WK4 ;EP; intro text for Scheduled vs. Seen report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this report to compare workload expectations versus"
- +3 SET BSDX(2)="what actually happened in clinic. Scheduled appointments"
- +4 SET BSDX(3)="are added to overbooks while cancellations are subtracted"
- +5 SET BSDX(4)="to give you the number of patients expected. Then no-shows"
- +6 SET BSDX(5)="are subtracted and walk-ins added to show how many patients"
- +7 SET BSDX(6)="were actually seen. Sorts and subsorted are the same as"
- +8 SET BSDX(7)="Statistics by Type of Appointment report."
- +9 DO DISPLAY(7)
- +10 QUIT
- +11 ;
- +12 ;IHS/OIT/LJF 04/12/2006 PATCH 1005 added WK5 subroutine
- WK5 ;EP; intro text for Clinic Workload Report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this option to print out statistics on the number of"
- +3 SET BSDX(2)="appointments per clinic for a date range. The Expanded"
- +4 SET BSDX(3)="Report breaks down the numbers by scheduled and unscheduled"
- +5 SET BSDX(4)="appointments, cancellations and inpatients. You can choose"
- +6 SET BSDX(5)="to list the patients. The Brief Report lists only the number"
- +7 SET BSDX(6)="of appointments and compares it to the same date range of"
- +8 SET BSDX(7)="the previous year. It can take a long time to run. This"
- +9 SET BSDX(8)="report is NOT designed to be run on the terminal screen!"
- +10 DO DISPLAY(8)
- +11 QUIT
- +12 ;
- WK6 ;EP; intro text for turn around time report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this option to print out statistics on the turn around"
- +3 SET BSDX(2)="time of appointments. Turn around time (TAT) is the difference"
- +4 SET BSDX(3)="between time checked in and time checked out. Report can"
- +5 SET BSDX(4)="be summary and detailed. Summary lists number of appointments"
- +6 SET BSDX(5)="number checked in and number checked out. Detailed includes"
- +7 SET BSDX(6)="summary info plus a listing of each appointment with patient"
- +8 SET BSDX(7)="name, chart number, appointment time, check in time, check out"
- +9 SET BSDX(8)="time, and TAT"
- +10 DO DISPLAY(8)
- +11 QUIT
- +12 ;
- WK7 ;EP; intro text for chart request and routing slip report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this option to print out statistics on the number of"
- +3 SET BSDX(2)="chart requests and routing slips printed by month. The report"
- +4 SET BSDX(3)="displays number of routing slips printed, subtotals by chart"
- +5 SET BSDX(4)="requests, scheduled appointments and walkins."
- +6 SET BSDX(5)="The report can be subtotaled by sorting criteria."
- +7 DO DISPLAY(5)
- +8 QUIT
- +9 ;
- WK8 ;EP; intro text for advanced access report
- +1 NEW BSDX
- +2 SET BSDX(1)="Use this option to print out a report to assess the internal"
- +3 SET BSDX(2)="and external demand for appointments. The report should be"
- +4 SET BSDX(3)="evaluated on a daily basis to adjust the providers schedule"
- +5 SET BSDX(4)="so that patients have better access to health care"
- +6 DO DISPLAY(4)
- +7 QUIT
- +8 ;
- DISPLAY(N) ; -- display array with N lines
- +1 SET BSDX(1,"F")="!!!?5"
- +2 FOR I=2:1:N
- SET BSDX(I,"F")="!?5"
- +3 SET BSDX(N+1,"F")="!!"
- +4 DO EN^DDIOL(.BSDX)
- +5 QUIT
- +6 ;
- PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
- +1 QUIT $EXTRACT(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
- +2 ;
- SP(N) ; -- returns N number of spaces
- +1 QUIT $$PAD(" ",N)