BTIUH1.m

BTIUH1 ; IHS/ITSC/LJF - INTRO TEXT ;

 ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 ;

EED ;EP; - intro text for enter/edit document

 D ^XBCLS D MSG($$SP(25)_"ENTER/EDIT DOCUMENT",2,0,0)

 D MSG("FUNCTION:  Use to add new documents or finish ones you've started.",2,0,0)

 D MSG(" CHOICES:  Select Patient, Document Title, and PCC Visit.",1,0,0)

 D MSG($$SP(11)_"You can add a new visit, if necessary.",1,0,0)

 Q

 ;

IPD ;EP; intro text for individual pat docs

 D ^XBCLS D MSG($$SP(20)_"INDIVIDUAL PATIENT'S DOCUMENTS",2,0,0)

 D MSG("FUNCTION:  Use to review all documents for a patient within a date range.",2,0,0)

 D MSG(" CHOICES:  Select Patient, Date Range, Sort (by Reference date or by",1,0,0)

 D MSG($$SP(11)_"Visit Date), and Format (List of Titles or Full Text).",1,2,0)

 Q

 ;

MPD ;EP; intro text for multiple pat docs

 D ^XBCLS D MSG($$SP(20)_"MULTIPLE PATIENT DOCUMENTS",2,0,0)

 D MSG("FUNCTION:  Use to review selected documents.",2,0,0)

 D MSG(" CHOICES:  Select Document Status (unsigned, completed, amended, etc.);",1,0,0)

 D MSG($$SP(11)_"then select Document Type (document class grouping);",1,0,0)

 D MSG($$SP(11)_"then select Search Category (patient, author, service, title, etc.).",1,0,0)

 D MSG($$SP(11)_"At any selection prompt, you can choose ALL.",1,0,0)

 Q

 ;

IDS ;EP; intro for individual pat disch summ

 D ^XBCLS D MSG($$SP(20)_"INDIVIDUAL PATIENT DISCHARGE SUMMARY",2,0,0)

 D MSG("FUNCTION:  Use to view one discharge summary for one patient.",2,0,0)

 D MSG(" CHOICES:  Discharge Summaries are listed, 5 at a time, in descending order.",1,0,0)

 D MSG($$SP(11)_"Choose one from list to view.",1,0,0)

 Q

 ;

MDS ;EP; intro text for multiple pat disch summaries

 D ^XBCLS D MSG($$SP(15)_"MULTIPLE PATIENT DISCHARGE SUMMARIES",2,0,0)

 D MSG("FUNCTION:  Use to review selected discharge summaries.",2,0,0)

 D MSG(" CHOICES:  Select Document Status (unsigned, completed, amended, etc.);",1,0,0)

 D MSG($$SP(11)_"then select Discharge Summary Type (Discharge, Interim or Transfer).",1,0,0)

 D MSG($$SP(11)_"then select Search Category (patient, author, service, title, etc.).",1,0,0)

 D MSG($$SP(11)_"At any selection prompt, you can choose ALL.",1,0,0)

 Q

 ;

LNT ;EP; intro text for list notes by title

 D ^XBCLS D MSG($$SP(20)_"LIST NOTES BY TITLE",2,0,0)

 D MSG("FUNCTION:  Use to view all progress notes for all patients with the same title.",2,0,0)

 D MSG(" CHOICES:  Select title or titles to view; then select date range.",1,0,0)

 Q

 ;

RPN ;EP; intro for review progress notes for patient

 D ^XBCLS D MSG($$SP(20)_"REVIEW PROGRESS NOTES BY PATIENT",2,0,0)

 D MSG("FUNCTION:  Use to view one progress note for one patient.",2,0,0)

 D MSG(" CHOICES:  Progress Notes are listed, 5 at a time, in descending order for",1,0,0)

 D MSG($$SP(11)_"date range that you select.  Choose one from list to view.",1,0,0)

 Q

 ;

SPT ;EP; intro text for search by title and patient

 D ^XBCLS D MSG($$SP(20)_"SEARCH BY PATIENT AND TITLE",2,0,0)

 D MSG("FUNCTION:  Use to view all progress notes for one patient for selected titles.",2,0,0)

 D MSG(" CHOICES:  Select patient then title(s) to view and date range.",1,0,0)

 Q

 ;

VPN ;EP; intro text for iew progress notes across patients

 D ^XBCLS D MSG($$SP(15)_"VIEW PROGRESS NOTES ACROSS PATIENTS",2,0,0)

 D MSG("FUNCTION:  Use to review selected progress notes.",2,0,0)

 D MSG(" CHOICES:  Select Document Status (unsigned, completed, amended, etc.);",1,0,0)

 D MSG($$SP(11)_"then select Progress Note Category (by document class).",1,0,0)

 D MSG($$SP(11)_"then select Search Category (patient, author, service, title, etc.).",1,0,0)

 D MSG($$SP(11)_"At any selection prompt, you can choose ALL.",1,0,0)

 Q

 ;

PDD ;EP; intro text for print document definition

 D ^XBCLS D MSG($$SP(20)_"PRINT DOCUMENT DEFINITION",2,0,0)

 D MSG("FUNCTION:  Use to view setup for a document class or title",2,0,0)

 D MSG($$SP(11)_"and to view boilerplate attached to a title.",1,0,0)

 Q

 ;

PDL ;EP; intro text for print document list

 D ^XBCLS D MSG($$SP(20)_"PRINT DOCUMENT LIST",2,0,0)

 D MSG("FUNCTION:  Use to print or browse list of documents defined for your",2,0,0)

 D MSG($$SP(11)_"facility that are attached to the Clinical Document Class.",1,0,0)

 Q

 ;

PPR ;EP; intro text for personal preferences

 D ^XBCLS D MSG($$SP(20)_"PERSONAL PREFERENCES",2,0,0)

 D MSG("FUNCTION:  Use to customize software to individual user.",2,0,0)

 D MSG($$SP(11)_"Includes such things as viewing documents in ascending or",1,0,0)

 D MSG($$SP(11)_"descending order and customizing list of frequently used",1,0,0)

 D MSG($$SP(11)_"document titles.",1,2,0)

 Q

 ;

MSG(DATA,A1,A2,A3) ; -- calls write utility

 D MSG^BTIUU(DATA,A1,A2,A3) Q

 ;

PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data

 Q $E(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)

 ;

SP(NUM) ; -- SUBRTN to pad spaces

 Q $$PAD(" ",NUM)

BTIUH1    ; IHS/ITSC/LJF - INTRO TEXT ;

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 +2       ;

EED       ;EP; - intro text for enter/edit document

 +1        DO ^XBCLS

           DO MSG($$SP(25)_"ENTER/EDIT DOCUMENT",2,0,0)

 +2        DO MSG("FUNCTION:  Use to add new documents or finish ones you've started.",2,0,0)

 +3        DO MSG(" CHOICES:  Select Patient, Document Title, and PCC Visit.",1,0,0)

 +4        DO MSG($$SP(11)_"You can add a new visit, if necessary.",1,0,0)

 +5        QUIT 

 +6       ;

IPD       ;EP; intro text for individual pat docs

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"INDIVIDUAL PATIENT'S DOCUMENTS",2,0,0)

 +2        DO MSG("FUNCTION:  Use to review all documents for a patient within a date range.",2,0,0)

 +3        DO MSG(" CHOICES:  Select Patient, Date Range, Sort (by Reference date or by",1,0,0)

 +4        DO MSG($$SP(11)_"Visit Date), and Format (List of Titles or Full Text).",1,2,0)

 +5        QUIT 

 +6       ;

MPD       ;EP; intro text for multiple pat docs

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"MULTIPLE PATIENT DOCUMENTS",2,0,0)

 +2        DO MSG("FUNCTION:  Use to review selected documents.",2,0,0)

 +3        DO MSG(" CHOICES:  Select Document Status (unsigned, completed, amended, etc.);",1,0,0)

 +4        DO MSG($$SP(11)_"then select Document Type (document class grouping);",1,0,0)

 +5        DO MSG($$SP(11)_"then select Search Category (patient, author, service, title, etc.).",1,0,0)

 +6        DO MSG($$SP(11)_"At any selection prompt, you can choose ALL.",1,0,0)

 +7        QUIT 

 +8       ;

IDS       ;EP; intro for individual pat disch summ

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"INDIVIDUAL PATIENT DISCHARGE SUMMARY",2,0,0)

 +2        DO MSG("FUNCTION:  Use to view one discharge summary for one patient.",2,0,0)

 +3        DO MSG(" CHOICES:  Discharge Summaries are listed, 5 at a time, in descending order.",1,0,0)

 +4        DO MSG($$SP(11)_"Choose one from list to view.",1,0,0)

 +5        QUIT 

 +6       ;

MDS       ;EP; intro text for multiple pat disch summaries

 +1        DO ^XBCLS

           DO MSG($$SP(15)_"MULTIPLE PATIENT DISCHARGE SUMMARIES",2,0,0)

 +2        DO MSG("FUNCTION:  Use to review selected discharge summaries.",2,0,0)

 +3        DO MSG(" CHOICES:  Select Document Status (unsigned, completed, amended, etc.);",1,0,0)

 +4        DO MSG($$SP(11)_"then select Discharge Summary Type (Discharge, Interim or Transfer).",1,0,0)

 +5        DO MSG($$SP(11)_"then select Search Category (patient, author, service, title, etc.).",1,0,0)

 +6        DO MSG($$SP(11)_"At any selection prompt, you can choose ALL.",1,0,0)

 +7        QUIT 

 +8       ;

LNT       ;EP; intro text for list notes by title

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"LIST NOTES BY TITLE",2,0,0)

 +2        DO MSG("FUNCTION:  Use to view all progress notes for all patients with the same title.",2,0,0)

 +3        DO MSG(" CHOICES:  Select title or titles to view; then select date range.",1,0,0)

 +4        QUIT 

 +5       ;

RPN       ;EP; intro for review progress notes for patient

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"REVIEW PROGRESS NOTES BY PATIENT",2,0,0)

 +2        DO MSG("FUNCTION:  Use to view one progress note for one patient.",2,0,0)

 +3        DO MSG(" CHOICES:  Progress Notes are listed, 5 at a time, in descending order for",1,0,0)

 +4        DO MSG($$SP(11)_"date range that you select.  Choose one from list to view.",1,0,0)

 +5        QUIT 

 +6       ;

SPT       ;EP; intro text for search by title and patient

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"SEARCH BY PATIENT AND TITLE",2,0,0)

 +2        DO MSG("FUNCTION:  Use to view all progress notes for one patient for selected titles.",2,0,0)

 +3        DO MSG(" CHOICES:  Select patient then title(s) to view and date range.",1,0,0)

 +4        QUIT 

 +5       ;

VPN       ;EP; intro text for iew progress notes across patients

 +1        DO ^XBCLS

           DO MSG($$SP(15)_"VIEW PROGRESS NOTES ACROSS PATIENTS",2,0,0)

 +2        DO MSG("FUNCTION:  Use to review selected progress notes.",2,0,0)

 +3        DO MSG(" CHOICES:  Select Document Status (unsigned, completed, amended, etc.);",1,0,0)

 +4        DO MSG($$SP(11)_"then select Progress Note Category (by document class).",1,0,0)

 +5        DO MSG($$SP(11)_"then select Search Category (patient, author, service, title, etc.).",1,0,0)

 +6        DO MSG($$SP(11)_"At any selection prompt, you can choose ALL.",1,0,0)

 +7        QUIT 

 +8       ;

PDD       ;EP; intro text for print document definition

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"PRINT DOCUMENT DEFINITION",2,0,0)

 +2        DO MSG("FUNCTION:  Use to view setup for a document class or title",2,0,0)

 +3        DO MSG($$SP(11)_"and to view boilerplate attached to a title.",1,0,0)

 +4        QUIT 

 +5       ;

PDL       ;EP; intro text for print document list

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"PRINT DOCUMENT LIST",2,0,0)

 +2        DO MSG("FUNCTION:  Use to print or browse list of documents defined for your",2,0,0)

 +3        DO MSG($$SP(11)_"facility that are attached to the Clinical Document Class.",1,0,0)

 +4        QUIT 

 +5       ;

PPR       ;EP; intro text for personal preferences

 +1        DO ^XBCLS

           DO MSG($$SP(20)_"PERSONAL PREFERENCES",2,0,0)

 +2        DO MSG("FUNCTION:  Use to customize software to individual user.",2,0,0)

 +3        DO MSG($$SP(11)_"Includes such things as viewing documents in ascending or",1,0,0)

 +4        DO MSG($$SP(11)_"descending order and customizing list of frequently used",1,0,0)

 +5        DO MSG($$SP(11)_"document titles.",1,2,0)

 +6        QUIT 

 +7       ;

MSG(DATA,A1,A2,A3) ; -- calls write utility

 +1        DO MSG^BTIUU(DATA,A1,A2,A3)

           QUIT 

 +2       ;

PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data

 +1        QUIT $EXTRACT(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)

 +2       ;

SP(NUM)   ; -- SUBRTN to pad spaces

 +1        QUIT $$PAD(" ",NUM)