- GMTSOBH ; SLC/KER - HS Object - Help ; 01/06/2003
- ;;2.7;Health Summary;**58**;Oct 20, 1995
- ;
- ; External References
- ; DBIA 10103 $$FMTE^XLFDT
- ; DBIA 10103 $$NOW^XLFDT
- ; DBIA 10088 ENDR^%ZISS
- ;
- Q
- PLB ; Print Object Label
- D ATTR
- W !," Do you want to print a label before printing a Health Summary Object?"
- W !," Both the label and object will be embedded in another document.",!
- W !," <document text>",$G(BOLD)
- W !," <object label>",$G(NORM)
- W !," <Health Summary object>"
- W !," <document text continued>"
- D KATTR
- Q
- LBH ; Object Label
- D ATTR
- W !," Enter a label for this object, 3 to 60 characters in length (optional)."
- W !," This label will be embedded in another document along with the Health"
- W !," Summary Type and will be printed as the first line of the object, before"
- W !," the Health Summary Prints.",!
- W !," <document>",$G(BOLD)
- W !," <object label>",$G(NORM)
- W !," <Health Summary object>"
- W !," <document>",!
- D KATTR
- Q
- LBLH ; Label Blank Line
- D ATTR
- W !," If there is a Label for the object and the Label is to be printed,"
- W !," then a blank line may be printed after the object label.",!
- W !," <document text>"
- W !," <object label>",$G(BOLD)
- W !," <blank line> ",$G(NORM)
- W !," <Health Summary object>"
- W !," <document text continued>"
- D KATTR
- Q
- HSTH ; Health Summary Type
- W !," Enter the name of an existing Health Summary Type (file 142)"
- W !," that you wish to embedded in another document as an object.",!
- Q
- ALL ; Suppress all of hte Health Summary Header
- N GMTSDLD S GMTSDLD=$$EDT^GMTSU($$NOW^XLFDT)
- W !," Print the following lines from the standard Health Summary"
- W !," Header with the Object?"
- W !," "
- W !," 1 "_GMTSDLD
- W !," 2 ***************** CONFIDENTIAL HEALTH SUMMARY ******************"
- W !," 3 PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
- W !," 4 <blank>"
- W !," 5 PN - Progress Notes (max 10 occurrences or 1 year)"
- W !," 6 <blank>"
- W !," "
- Q
- RD ; Report Date and Time
- N GMTSDLD S GMTSDLD=$TR($$FMTE^XLFDT($$NOW^XLFDT,"5ZM"),"@"," ") D ATTR
- W !," Print the report date/time with Health Summary Objects?"
- W !," "
- W !," "_$G(BOLD)_">>>>> 1 DATE/TIME <<<<<"_$G(NORM)
- W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- W !," 4 <blank>"
- W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- W !," 6 <blank>"
- W !," "
- D KATTR
- Q
- RH ; Report Header
- D ATTR
- W !," Print the report header with Health Summary Objects?"
- W !," "
- W !," 1 DATE/TIME"
- W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- W !,$G(BOLD)_" >>>>> 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB <<<<<"_$G(NORM)
- W !,$G(BOLD)_" >>>>> 4 <blank> <<<<<"_$G(NORM)
- W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- W !," 6 <blank>"
- W !," "
- D KATTR
- Q
- RC ; Confidentiality Banner
- D ATTR
- W !," Print the confidentiality banner with Health Summary Objects?"
- W !," "
- W !," 1 DATE/TIME"
- W !,$G(BOLD)_" >>>>> 2 *********** CONFIDENTIAL HEALTH SUMMARY ************ <<<<<"_$G(NORM)
- W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- W !," 4 <blank>"
- W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- W !," 6 <blank>"
- W !," "
- D KATTR
- Q
- CHU ; Component Header Underlined
- N GMTSCHU S GMTSCHU=""
- CH ; Component Header
- D ATTR
- W:'$D(GMTSCHU) !," Print the standard component header with Health Summary Objects?"
- W:$D(GMTSCHU) !," Underline the standard component header with a single line of dashes?"
- W !," "
- W !," 1 DATE/TIME"
- W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- W !," 4 <blank>"
- W:'$D(GMTSCHU) !,$G(BOLD)_" >>>>> "_$G(NORM)_" 5 "_$G(BOLD)_"PN - Progress Notes "_$G(NORM)_"(max 10 occ or 1 yr) "_$G(BOLD)_"<<<<<"_$G(NORM)
- W:'$D(GMTSCHU) !,$G(BOLD)_" "_$G(NORM)_" "_$G(BOLD)_"|-------------------| "_$G(NORM)
- W:$D(GMTSCHU) !," 5 PN - Progress Notes"
- W:$D(GMTSCHU) !,$G(BOLD)," >>>>> ------------------- <<<<<"_$G(NORM)
- W !," "
- D KATTR
- Q
- LM ; Time and Occurence Limits
- D ATTR
- W !," Print report time and occurence limits with the component header?"
- W !," "
- W !," 1 DATE/TIME"
- W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- W !," 4 <blank>"
- W !," "_$G(BOLD)_" >>>>> "_$G(NORM)_" 5 PN - Progress Notes "_$G(BOLD)_"(max 10 occ or 1 yr) "_$G(NORM)_" "_$G(BOLD)_"<<<<<"_$G(NORM)
- W !," "_$G(BOLD)_"|--------------------| "_$G(NORM)
- W !," "
- D KATTR
- Q
- BL ; Blank Line
- D ATTR
- W !," Print a Blank Line after the Component Header?"
- W !," "
- W !," 1 DATE/TIME"
- W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- W !," 4 <blank>"
- W:$D(GMTSOBJ("LIMITS")) !," 5 PN - Progress Notes (max 10 occurrences or 1 year)"
- W:'$D(GMTSOBJ("LIMITS")) !," 5 PN - Progress Notes"
- W !," "_$G(BOLD)_" >>>>> 6 <blank> <<<<<"_$G(NORM)
- W !," "
- D KATTR
- Q
- DE ; Deceased
- D ATTR
- W !," Print the date deceased with Health Summary Objects?"
- W !," "
- W !," 1 DATE/TIME"
- W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- W !," 4 <blank>"
- W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- W !," 6 <blank>"
- W !,$G(BOLD)_" * >>>>> 7 ** DECEASED DATE/TIME ** <<<<<"_$G(NORM)
- W !," "
- W !," "_$G(BOLD)_"*"_$G(NORM)_" This is a conditional line of the Health Summary report "
- W !," header which is only printed for deceased patients"
- W !," "
- D KATTR
- Q
- SC ; Suppress Components Without Data
- D ATTR
- W !," If this field is set to 1 (YES) and a Health Summary component does "
- W !," not have any data, the component will be suppressed.",!
- W !," If this field is NOT set to 1 (Null or 0 = NO) and the component does"
- W !," not have any data, then the component will print with the statement"
- W !," ""No data available""",!
- W !," Example:",!
- W !,$G(BOLD)," PN - Progress Notes",$G(NORM)
- W !,$G(BOLD)," No data available",$G(NORM)
- D KATTR
- Q
- TRIM(X) ; Trim Spaces
- S X=$G(X) F Q:$E(X,1)'=" " S X=$E(X,2,$L(X))
- F Q:$E(X,$L(X))'=" " S X=$E(X,1,($L(X)-1))
- Q X
- ATTR ; Set Screen Attributes
- N X,IOINHI,IOINORM S X="IOINHI;IOINORM" D ENDR^%ZISS S BOLD=$G(IOINHI),NORM=$G(IOINORM) D ENDR^%ZISS
- Q
- KATTR ; Kill Screen Attributes
- K NORM,BOLD
- Q
- GMTSOBH ; SLC/KER - HS Object - Help ; 01/06/2003
- +1 ;;2.7;Health Summary;**58**;Oct 20, 1995
- +2 ;
- +3 ; External References
- +4 ; DBIA 10103 $$FMTE^XLFDT
- +5 ; DBIA 10103 $$NOW^XLFDT
- +6 ; DBIA 10088 ENDR^%ZISS
- +7 ;
- +8 QUIT
- PLB ; Print Object Label
- +1 DO ATTR
- +2 WRITE !," Do you want to print a label before printing a Health Summary Object?"
- +3 WRITE !," Both the label and object will be embedded in another document.",!
- +4 WRITE !," <document text>",$GET(BOLD)
- +5 WRITE !," <object label>",$GET(NORM)
- +6 WRITE !," <Health Summary object>"
- +7 WRITE !," <document text continued>"
- +8 DO KATTR
- +9 QUIT
- LBH ; Object Label
- +1 DO ATTR
- +2 WRITE !," Enter a label for this object, 3 to 60 characters in length (optional)."
- +3 WRITE !," This label will be embedded in another document along with the Health"
- +4 WRITE !," Summary Type and will be printed as the first line of the object, before"
- +5 WRITE !," the Health Summary Prints.",!
- +6 WRITE !," <document>",$GET(BOLD)
- +7 WRITE !," <object label>",$GET(NORM)
- +8 WRITE !," <Health Summary object>"
- +9 WRITE !," <document>",!
- +10 DO KATTR
- +11 QUIT
- LBLH ; Label Blank Line
- +1 DO ATTR
- +2 WRITE !," If there is a Label for the object and the Label is to be printed,"
- +3 WRITE !," then a blank line may be printed after the object label.",!
- +4 WRITE !," <document text>"
- +5 WRITE !," <object label>",$GET(BOLD)
- +6 WRITE !," <blank line> ",$GET(NORM)
- +7 WRITE !," <Health Summary object>"
- +8 WRITE !," <document text continued>"
- +9 DO KATTR
- +10 QUIT
- HSTH ; Health Summary Type
- +1 WRITE !," Enter the name of an existing Health Summary Type (file 142)"
- +2 WRITE !," that you wish to embedded in another document as an object.",!
- +3 QUIT
- ALL ; Suppress all of hte Health Summary Header
- +1 NEW GMTSDLD
- SET GMTSDLD=$$EDT^GMTSU($$NOW^XLFDT)
- +2 WRITE !," Print the following lines from the standard Health Summary"
- +3 WRITE !," Header with the Object?"
- +4 WRITE !," "
- +5 WRITE !," 1 "_GMTSDLD
- +6 WRITE !," 2 ***************** CONFIDENTIAL HEALTH SUMMARY ******************"
- +7 WRITE !," 3 PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
- +8 WRITE !," 4 <blank>"
- +9 WRITE !," 5 PN - Progress Notes (max 10 occurrences or 1 year)"
- +10 WRITE !," 6 <blank>"
- +11 WRITE !," "
- +12 QUIT
- RD ; Report Date and Time
- +1 NEW GMTSDLD
- SET GMTSDLD=$TRANSLATE($$FMTE^XLFDT($$NOW^XLFDT,"5ZM"),"@"," ")
- DO ATTR
- +2 WRITE !," Print the report date/time with Health Summary Objects?"
- +3 WRITE !," "
- +4 WRITE !," "_$GET(BOLD)_">>>>> 1 DATE/TIME <<<<<"_$GET(NORM)
- +5 WRITE !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- +6 WRITE !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- +7 WRITE !," 4 <blank>"
- +8 WRITE !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- +9 WRITE !," 6 <blank>"
- +10 WRITE !," "
- +11 DO KATTR
- +12 QUIT
- RH ; Report Header
- +1 DO ATTR
- +2 WRITE !," Print the report header with Health Summary Objects?"
- +3 WRITE !," "
- +4 WRITE !," 1 DATE/TIME"
- +5 WRITE !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- +6 WRITE !,$GET(BOLD)_" >>>>> 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB <<<<<"_$GET(NORM)
- +7 WRITE !,$GET(BOLD)_" >>>>> 4 <blank> <<<<<"_$GET(NORM)
- +8 WRITE !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- +9 WRITE !," 6 <blank>"
- +10 WRITE !," "
- +11 DO KATTR
- +12 QUIT
- RC ; Confidentiality Banner
- +1 DO ATTR
- +2 WRITE !," Print the confidentiality banner with Health Summary Objects?"
- +3 WRITE !," "
- +4 WRITE !," 1 DATE/TIME"
- +5 WRITE !,$GET(BOLD)_" >>>>> 2 *********** CONFIDENTIAL HEALTH SUMMARY ************ <<<<<"_$GET(NORM)
- +6 WRITE !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- +7 WRITE !," 4 <blank>"
- +8 WRITE !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- +9 WRITE !," 6 <blank>"
- +10 WRITE !," "
- +11 DO KATTR
- +12 QUIT
- CHU ; Component Header Underlined
- +1 NEW GMTSCHU
- SET GMTSCHU=""
- CH ; Component Header
- +1 DO ATTR
- +2 IF '$DATA(GMTSCHU)
- WRITE !," Print the standard component header with Health Summary Objects?"
- +3 IF $DATA(GMTSCHU)
- WRITE !," Underline the standard component header with a single line of dashes?"
- +4 WRITE !," "
- +5 WRITE !," 1 DATE/TIME"
- +6 WRITE !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- +7 WRITE !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- +8 WRITE !," 4 <blank>"
- +9 IF '$DATA(GMTSCHU)
- WRITE !,$GET(BOLD)_" >>>>> "_$GET(NORM)_" 5 "_$GET(BOLD)_"PN - Progress Notes "_$GET(NORM)_"(max 10 occ or 1 yr) "_$GET(BOLD)_"<<<<<"_$GET(NORM)
- +10 IF '$DATA(GMTSCHU)
- WRITE !,$GET(BOLD)_" "_$GET(NORM)_" "_$GET(BOLD)_"|-------------------| "_$GET(NORM)
- +11 IF $DATA(GMTSCHU)
- WRITE !," 5 PN - Progress Notes"
- +12 IF $DATA(GMTSCHU)
- WRITE !,$GET(BOLD)," >>>>> ------------------- <<<<<"_$GET(NORM)
- +13 WRITE !," "
- +14 DO KATTR
- +15 QUIT
- LM ; Time and Occurence Limits
- +1 DO ATTR
- +2 WRITE !," Print report time and occurence limits with the component header?"
- +3 WRITE !," "
- +4 WRITE !," 1 DATE/TIME"
- +5 WRITE !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- +6 WRITE !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- +7 WRITE !," 4 <blank>"
- +8 WRITE !," "_$GET(BOLD)_" >>>>> "_$GET(NORM)_" 5 PN - Progress Notes "_$GET(BOLD)_"(max 10 occ or 1 yr) "_$GET(NORM)_" "_$GET(BOLD)_"<<<<<"_$GET(NORM)
- +9 WRITE !," "_$GET(BOLD)_"|--------------------| "_$GET(NORM)
- +10 WRITE !," "
- +11 DO KATTR
- +12 QUIT
- BL ; Blank Line
- +1 DO ATTR
- +2 WRITE !," Print a Blank Line after the Component Header?"
- +3 WRITE !," "
- +4 WRITE !," 1 DATE/TIME"
- +5 WRITE !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- +6 WRITE !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- +7 WRITE !," 4 <blank>"
- +8 IF $DATA(GMTSOBJ("LIMITS"))
- WRITE !," 5 PN - Progress Notes (max 10 occurrences or 1 year)"
- +9 IF '$DATA(GMTSOBJ("LIMITS"))
- WRITE !," 5 PN - Progress Notes"
- +10 WRITE !," "_$GET(BOLD)_" >>>>> 6 <blank> <<<<<"_$GET(NORM)
- +11 WRITE !," "
- +12 DO KATTR
- +13 QUIT
- DE ; Deceased
- +1 DO ATTR
- +2 WRITE !," Print the date deceased with Health Summary Objects?"
- +3 WRITE !," "
- +4 WRITE !," 1 DATE/TIME"
- +5 WRITE !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
- +6 WRITE !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
- +7 WRITE !," 4 <blank>"
- +8 WRITE !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
- +9 WRITE !," 6 <blank>"
- +10 WRITE !,$GET(BOLD)_" * >>>>> 7 ** DECEASED DATE/TIME ** <<<<<"_$GET(NORM)
- +11 WRITE !," "
- +12 WRITE !," "_$GET(BOLD)_"*"_$GET(NORM)_" This is a conditional line of the Health Summary report "
- +13 WRITE !," header which is only printed for deceased patients"
- +14 WRITE !," "
- +15 DO KATTR
- +16 QUIT
- SC ; Suppress Components Without Data
- +1 DO ATTR
- +2 WRITE !," If this field is set to 1 (YES) and a Health Summary component does "
- +3 WRITE !," not have any data, the component will be suppressed.",!
- +4 WRITE !," If this field is NOT set to 1 (Null or 0 = NO) and the component does"
- +5 WRITE !," not have any data, then the component will print with the statement"
- +6 WRITE !," ""No data available""",!
- +7 WRITE !," Example:",!
- +8 WRITE !,$GET(BOLD)," PN - Progress Notes",$GET(NORM)
- +9 WRITE !,$GET(BOLD)," No data available",$GET(NORM)
- +10 DO KATTR
- +11 QUIT
- TRIM(X) ; Trim Spaces
- +1 SET X=$GET(X)
- FOR
- IF $EXTRACT(X,1)'=" "
- QUIT
- SET X=$EXTRACT(X,2,$LENGTH(X))
- +2 FOR
- IF $EXTRACT(X,$LENGTH(X))'=" "
- QUIT
- SET X=$EXTRACT(X,1,($LENGTH(X)-1))
- +3 QUIT X
- ATTR ; Set Screen Attributes
- +1 NEW X,IOINHI,IOINORM
- SET X="IOINHI;IOINORM"
- DO ENDR^%ZISS
- SET BOLD=$GET(IOINHI)
- SET NORM=$GET(IOINORM)
- DO ENDR^%ZISS
- +2 QUIT
- KATTR ; Kill Screen Attributes
- +1 KILL NORM,BOLD
- +2 QUIT
