Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: WVUTL7

WVUTL7.m

Go to the documentation of this file. 
  1. WVUTL7 ;HCIOFO/FT,JR - UTIL: HEADERS & TRAILERS ;05/25/2017  15:30
  1.  ;;1.0;WOMEN'S HEALTH;**5,7,10,14,24**;Sep 30, 1998;Build 582
  1.  ;;  Original routine created by IHS/ANMC/MWR
  1.  ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1.  ;;  UTILITY: HEADERS AND TRAILERS.
  1.  ;
  1.  ; This routine uses the following IAs:
  1.  ; #10060 - FILE 200 fields      (supported)
  1.  ;
  1. S(S) ;EP
  1.  ;---> RETURN A VALUE OF SPACES EQUAL IN LENGTH TO THE NUMBER S.
  1.  N I,SP S SP=$$REPEAT^XLFSTR(" ",80)
  1.  Q $E(SP,1,$G(S))
  1.  ;
  1. TOPHEAD ;EP
  1.  ;---> CODE TO SET VARIABLES FOR HEADER.
  1.  N X,%
  1.  D NOW^%DTC S WVNOW=$$SLDT1^WVUTL5(%)
  1.  S WVLINE=$$REPEAT^XLFSTR("-",80)
  1.  S WVPAGE=1
  1.  S WVCRT=$S($E(IOST)="C":1,1:0)
  1.  S WVCONFF="*********************** CONFIDENTIAL PATIENT INFORMATION "
  1.  S WVCONFF=WVCONFF_"***********************"
  1.  S WVTIMLN=$E(WVLINE,1,26)_" printed: "_WVNOW_" "_$E(WVLINE,1,27)
  1.  Q
  1.  ;
  1. TOPHEAD1 ;EP
  1.  ;---> CODE TO SET VARIABLES FOR HEADER.
  1.  N X,%
  1.  D NOW^%DTC S WVNOW=$$SLDT1^WVUTL5(%)
  1.  S WVLINE=$$REPEAT^XLFSTR("-",80)
  1.  S WVPAGE=$G(WVPAGE)+1
  1.  S WVCRT=$S($E(IOST)="C":1,1:0)
  1.  S WVCONFF="*********************** CONFIDENTIAL PATIENT INFORMATION "
  1.  S WVCONFF=WVCONFF_"***********************"
  1.  S WVTIMLN=$E(WVLINE,1,26)_" printed: "_WVNOW_" "_$E(WVLINE,1,27)
  1.  Q
  1.  ;
  1. HEADER1 ;EP
  1.  ;---> BROWSE/REPORT HEADER: MULTIPLE PATIENTS, MULTIPLE PROCEDURES.
  1.  ;---> REQUIRED VARIABLES: WVBEGDT,WVCRT,WVENDDT,WVPAGE,WVTITLE,DUZ(2)
  1.  ;---> OPTIONAL VARIABLE:  WVCONF (CONFIDENTIAL), WVSUBH (SUBHEADER).
  1.  N X
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W:$D(WVCONF) WVCONFF,! W:'WVCRT WVTIMLN,!
  1.  W !,WVTITLE W:'WVCRT ?70,"page: ",WVPAGE
  1.  W !,$$RUNDT^WVUTL1A("C"),!
  1.  W !,"Case Mgr: " D
  1.  .I '$D(WVE) W "ALL" Q
  1.  .I WVE W "ALL" Q
  1.  .I '$D(WVCMGR) W "UNKNOWN" Q
  1.  .I WVCMGR="" W "UNKNOWN" Q
  1.  .N WVCMGRNM
  1.  .S WVCMGRNM=$$GET1^DIQ(200,WVCMGR,.01,"E")
  1.  .W $S(WVCMGRNM]"":WVCMGRNM,1:"UNKNOWN")
  1.  W ?56,"For period: ",$$TXDT^WVUTL5(WVBEGDT)
  1.  W !,"Facility: ",$$INSTTX^WVUTL6(DUZ(2))
  1.  W ?64,"To: ",$$TXDT^WVUTL5(WVENDDT)
  1.  W !,$$REPEAT^XLFSTR("=",80)
  1.  I $D(WVSUBH) D @WVSUBH
  1.  Q
  1.  ;
  1. HEADER2 ;EP
  1.  ;---> PATIENT REPORT HEADER: ONE PATIENT, MULTIPLE PROCEDURES.
  1.  ;---> REQUIRED VARIABLES: WVBEGDT,WVCRT,WVENDDT,WVPAGE,WVTITLE,DUZ(2)
  1.  ;---> OPTIONAL VARIABLE:  WVCONF (CONFIDENTIAL), WVSUBH (SUBHEADER).
  1.  N X
  1.  D FAC^WVUTL1A
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W:$D(WVCONF) WVCONFF,! W:'WVCRT WVTIMLN,!
  1.  W !,WVTITLE W:'WVCRT ?70,"page: ",WVPAGE
  1.  W !,$$RUNDT^WVUTL1A("C")
  1.  W !,"Patient Name: ",WVNAMAGE,?52,$$PNLAB^WVUTL5(),WVCHRT
  1.  W !,"Case Manager: ",WVCMGR
  1.  W ?50,"Facility: ",$E($$INSTTX^WVUTL6(DUZ(2)),1,19)
  1.  W !,"Cx Tx Need  : ",WVCNEED
  1.  W ?47,"Cx Facility: ",$G(WVJCFAC)
  1.  W !,"PAP Regimen : ",WVPAPRG,?47,"Pr Provider: ",$G(WVJPCP)
  1.  W !,"Br Tx Need  : ",WVBNEED
  1.  W ?47,"Br Facility: ",$G(WVJBFAC)
  1.  W !,"Hx of BR CA : ",$$GET1^DIQ(790,WVDFN,.23,"E")
  1.  W !,"Elig Code   : ",$P($$ELIG^WVUTL9(WVDFN),U,2)
  1.  W ?51,"Veteran: ",$$VET^WVUTL1A(WVDFN)
  1.  W !,"MST         : ",$$MST^WVUTL1A(WVDFN)
  1.  W ?55,"CST: ",$$CST^WVUTL1A(WVDFN)
  1.  W !,"Maternity Care Coordinator: ",$$MCMGR^WVUTL1(WVDFN)
  1.  W !,$$REPEAT^XLFSTR("=",49)
  1.  W $S(WVEDC]""&(WVEDC'="UNKNOWN"):WVEDC_"======",1:"===============================")
  1.  I $D(WVSUBH) D @WVSUBH
  1.  Q
  1.  ;
  1. HEADER3 ;EP
  1.  ;---> LAB LOG REPORT HEADER: MULTIPLE PATIENTS, MULTIPLE PROCEDURES.
  1.  ;---> REQUIRED VARIABLES: WVBEGDT,WVCRT,WVENDDT,WVPAGE,WVTITLE,DUZ(2)
  1.  ;---> OPTIONAL VARIABLE:  WVCONF (CONFIDENTIAL), WVSUBH (SUBHEADER).
  1.  N X
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W:$D(WVCONF) WVCONFF,! W:'WVCRT WVTIMLN,!
  1.  W !,WVTITLE W:'WVCRT ?70,"page: ",WVPAGE
  1.  W !!,$$RUNDT^WVUTL1A("C")
  1.  W !,"Facility: ",$$INSTTX^WVUTL6($S($G(WVFAC):WVFAC,1:DUZ(2)))
  1.  W ?53,"From: ",$$SLDT2^WVUTL5(WVBEGDT)
  1.  W " to ",$$SLDT2^WVUTL5(WVENDDT)
  1.  W !,$$REPEAT^XLFSTR("=",80)
  1.  I $D(WVSUBH) D @WVSUBH
  1.  Q
  1.  ;
  1. HEADER4 ;EP
  1.  ;---> PATIENT REPORT HEADER: ONE PATIENT, ONE PROCEDURE.
  1.  ;---> REQUIRED VARIABLES: WVBEGDT,WVCRT,WVENDDT,WVPAGE,WVTITLE1,DUZ(2)
  1.  ;---> OPTIONAL VARIABLE:  WVCONF (CONFIDENTIAL), WVSUBH (SUBHEADER).
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W WVCONFF W:'WVCRT !,WVTIMLN
  1.  W !!,WVTITLE1,?70,"page: ",WVPAGE S WVPAGE=WVPAGE+1
  1. HEADER41 ;EP
  1.  ;---> CALLED BY WVPROC; BYPASSES FORMFEED, TITLE, ETC.
  1.  N WVDES
  1.  W !,$$RUNDT^WVUTL1A("C"),!
  1.  W !,"Patient Name: ",WVNAMAGE,?53,$$PNLAB^WVUTL5(),WVCHRT
  1.  W !,"Case Manager: ",WVCMGR
  1.  W ?50,"Procedure: ",$E(WVPN,1,19)
  1.  W !,"PAP Regimen : ",WVPAPRG
  1.  W ?55,"Acc#: ",WVACCN
  1.  W !,"Cx Tx Need  : ",WVCNEED
  1.  W ?48,"Cx Facility: ",$$FACIL^WVUTL1A(WVDFN,"C")
  1.  W !,"Br Tx Need  : ",WVBNEED
  1.  W ?48,"Br Facility: ",$$FACIL^WVUTL1A(WVDFN,"B")
  1.  W !,"Elig Code   : ",$P($$ELIG^WVUTL9(WVDFN),U,2)
  1.  W ?52,"Veteran: ",$$VET^WVUTL1A(WVDFN)
  1.  W !,"MST         : ",$$MST^WVUTL1A(WVDFN)
  1.  W ?56,"CST: ",$$CST^WVUTL1A(WVDFN)
  1.  W !,"Maternity Care Coordinator: ",$$MCMGR^WVUTL1(WVDFN)
  1.  S WVDES=$$DES^WVUTL1(WVDFN)
  1.  W !,$S(WVDES="YES":"*DES DAUGHTER*",1:"--------------")
  1.  W $$REPEAT^XLFSTR("-",37)
  1.  W $S(WVEDC]"":WVEDC_"----",1:"-----------------------------")
  1.  Q
  1.  ;
  1. HEADER5 ;EP
  1.  ;---> DELINQUENT NEEDS REPORT HEADER: MULTIPLE PATIENTS
  1.  ;---> REQUIRED VARIABLES: WVBEGDT,WVCRT,WVENDDT,WVPAGE,WVTITLE,DUZ(2)
  1.  ;---> OPTIONAL VARIABLE:  WVCONF (CONFIDENTIAL), WVSUBH (SUBHEADER).
  1.  N X
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W:$D(WVCONF) WVCONFF,! W:'WVCRT WVTIMLN,!
  1.  W !,WVTITLE W:'WVCRT ?70,"page: ",WVPAGE
  1.  W !,"Case Mgr: " D
  1.  .I '$D(WVE) W "ALL" Q
  1.  .I WVE W "ALL" Q
  1.  .I $G(WVMGR)']"" W "UNKNOWN" Q
  1.  .N WVCMGRNM
  1.  .S WVCMGRNM=$$GET1^DIQ(200,WVMGR,.01,"E")
  1.  .W $S(WVCMGRNM]"":WVCMGRNM,1:"UNKNOWN")
  1.  S Y=DT D DD^%DT W ?46,"Run Date: ",Y
  1.  W !,"Facility: ",$$INSTTX^WVUTL6(WVFAC)
  1.  W ?46,"Tx Needs Past Due as of ",$$SLDT2^WVUTL5(WVDDATE)
  1.  W !,$$REPEAT^XLFSTR("=",80)
  1.  I $D(WVSUBH) D @WVSUBH
  1.  Q
  1.  ;
  1. HEADER6 ;EP
  1.  ;---> PROGRAM SNAPSHOT HEADER: JUST TITLE AND FACILITY (NO PATIENTS)
  1.  ;---> REQUIRED VARIABLES: WVCRT,WVTITLE,DUZ(2)
  1.  N X
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W:'WVCRT !,WVTIMLN,!
  1.  W !,WVTITLE W:'WVCRT ?70,"page: ",WVPAGE
  1.  W !?3,$$RUNDT^WVUTL1A() I $D(WVJTOY) W ?60,"(",WVJTOY,")"
  1.  W !,"   Note: This report includes all divisions"
  1.  W " using this database."
  1.  W !,$$REPEAT^XLFSTR("=",80)
  1.  I $D(WVSUBH) D @WVSUBH
  1.  Q
  1.  ;
  1. HEADER7 ;EP
  1.  ;---> AUTOLOAD OF PATIENTS HEADER
  1.  ;---> REQUIRED VARIABLES: WVCRT,WVTITLE,DUZ(2)
  1.  N X
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W:$D(WVCONF) WVCONFF,! W:'WVCRT WVTIMLN,!
  1.  W !,WVTITLE W:'WVCRT ?70,"page: ",WVPAGE S WVPAGE=WVPAGE+1
  1.  W !!,$$RUNDT^WVUTL1A()
  1.  W ?45,"Date Range: "_$$FMTE^XLFDT($G(WVJSDT),"2D")_"-"_$$FMTE^XLFDT($P($G(WVJEDT),".",1),"2D")
  1.  W !,"Facility: ",$$INSTTX^WVUTL6(DUZ(2))
  1.  W ?45,"Cutoff Age: ",WVAGE
  1.  W !,$$REPEAT^XLFSTR("=",80)
  1.  W !,?3,"NAME",?30,$$PNLB^WVUTL5(),?45,"DOB",?60,"STATUS"
  1.  W !,WVLINE
  1.  Q
  1.  ;
  1. HEADER8 ;EP
  1.  ;---> SCREENING RATES REPORT HEADER: (NO PATIENTS)
  1.  ;---> REQUIRED VARIABLES: WVCRT,WVTITLE,DUZ(2)
  1.  N X
  1.  W:WVPAGE>1!WVCRT @IOF,!
  1.  W:'WVCRT !,WVTIMLN,!
  1.  W !,WVTITLE W:'WVCRT ?70,"page: ",WVPAGE
  1.  W !!?4,"For Age Range: ",$S(WVAGRG=1:"ALL",1:WVAGRG)
  1.  W ?56,"For period: ",$$SLDT2^WVUTL5(WVBEGDT)
  1.  S Y=DT D DD^%DT W !?4,"Run Date: ",Y
  1.  W ?64,"To: ",$$SLDT2^WVUTL5(WVENDDT)
  1.  W !,$$REPEAT^XLFSTR("=",80)
  1.  W !?4,"(Note: This report includes all divisions using this database.)"
  1.  W !?11,"Number of Active Patients: "_$G(WVTOT),!
  1.  Q
  1.  ;
  1. ENDREP(X) ;EP
  1.  ;---> END A REPORT, DO FORMFEED OR "Press <Return>" IF NECESSARY.
  1.  ;---> REQUIRED VARIABLES: WVCRT=1 IF OUTPUT TO SCREEN
  1.  ;--->                     WVPOP=1 IF ESCAPING
  1.  ;---> OPTIONAL VARIABLE:  X=1 IF "End of Report" SHOULD NOT DISPLAY.
  1.  ;
  1.  S WVTITLE="-----  End of Report  -----"
  1.  I '$G(X)&('WVPOP) D CENTERT^WVUTL5(.WVTITLE) W !,WVTITLE
  1.  I WVCRT&('$D(IO("S")))&('WVPOP) D DIRZ^WVUTL3 W @IOF,!
  1.  D ^%ZISC
  1.  Q