Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: WVUTL7

Package: Womens Health

Routine: WVUTL7


Information

WVUTL7 ;HCIOFO/FT,JR - UTIL: HEADERS & TRAILERS ;05/25/2017 15:30

Source Information

Source file <WVUTL7.m>

Entry Points

Name Comments DBIA/ICR reference
S(S) ;EP
TOPHEAD ;EP
TOPHEAD1 ;EP
HEADER1 ;EP
HEADER2 ;EP
HEADER3 ;EP
HEADER4 ;EP
HEADER41 ;EP
HEADER5 ;EP
HEADER6 ;EP
HEADER7 ;EP
HEADER8 ;EP
ENDREP(X) ;EP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$RUNDT^WVUTL1A("C"),!
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,"Case Mgr: "
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HEADER1+11
Function Call: WRITE
  • Prompt: "UNKNOWN"
  • Line Location: HEADER1+12
Function Call: WRITE
  • Prompt: "UNKNOWN"
  • Line Location: HEADER1+13
Function Call: WRITE
  • Prompt: ?56,"For period: ",$$TXDT^WVUTL5(WVBEGDT)
  • Line Location: HEADER1+17
Function Call: WRITE
  • Prompt: !,"Facility: ",$$INSTTX^WVUTL6(DUZ(2))
  • Line Location: HEADER1+18
Function Call: WRITE
  • Prompt: ?64,"To: ",$$TXDT^WVUTL5(WVENDDT)
  • Line Location: HEADER1+19
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER1+20
Function Call: WRITE
  • Prompt: !,$$RUNDT^WVUTL1A("C")
  • Line Location: HEADER2+9
Function Call: WRITE
  • Prompt: !,"Patient Name: ",WVNAMAGE,?52,$$PNLAB^WVUTL5(),WVCHRT
  • Line Location: HEADER2+10
Function Call: WRITE
  • Prompt: !,"Case Manager: ",WVCMGR
  • Line Location: HEADER2+11
Function Call: WRITE
  • Prompt: ?50,"Facility: ",$E($$INSTTX^WVUTL6(DUZ(2)),1,19)
  • Line Location: HEADER2+12
Function Call: WRITE
  • Prompt: !,"Cx Tx Need : ",WVCNEED
  • Line Location: HEADER2+13
Function Call: WRITE
  • Prompt: ?47,"Cx Facility: ",$G(WVJCFAC)
  • Line Location: HEADER2+14
Function Call: WRITE
  • Prompt: !,"PAP Regimen : ",WVPAPRG,?47,"Pr Provider: ",$G(WVJPCP)
  • Line Location: HEADER2+15
Function Call: WRITE
  • Prompt: !,"Br Tx Need : ",WVBNEED
  • Line Location: HEADER2+16
Function Call: WRITE
  • Prompt: ?47,"Br Facility: ",$G(WVJBFAC)
  • Line Location: HEADER2+17
Function Call: WRITE
  • Prompt: !,"Hx of BR CA : ",$$GET1^DIQ(790,WVDFN,.23,"E")
  • Line Location: HEADER2+18
Function Call: WRITE
  • Prompt: !,"Elig Code : ",$P($$ELIG^WVUTL9(WVDFN),U,2)
  • Line Location: HEADER2+19
Function Call: WRITE
  • Prompt: ?51,"Veteran: ",$$VET^WVUTL1A(WVDFN)
  • Line Location: HEADER2+20
Function Call: WRITE
  • Prompt: !,"MST : ",$$MST^WVUTL1A(WVDFN)
  • Line Location: HEADER2+21
Function Call: WRITE
  • Prompt: ?55,"CST: ",$$CST^WVUTL1A(WVDFN)
  • Line Location: HEADER2+22
Function Call: WRITE
  • Prompt: !,"Maternity Care Coordinator: ",$$MCMGR^WVUTL1(WVDFN)
  • Line Location: HEADER2+23
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",49)
  • Line Location: HEADER2+24
Function Call: WRITE
  • Prompt: !!,$$RUNDT^WVUTL1A("C")
  • Line Location: HEADER3+8
Function Call: WRITE
  • Prompt: !,"Facility: ",$$INSTTX^WVUTL6($S($G(WVFAC):WVFAC,1:DUZ(2)))
  • Line Location: HEADER3+9
Function Call: WRITE
  • Prompt: ?53,"From: ",$$SLDT2^WVUTL5(WVBEGDT)
  • Line Location: HEADER3+10
Function Call: WRITE
  • Prompt: " to ",$$SLDT2^WVUTL5(WVENDDT)
  • Line Location: HEADER3+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER3+12
Function Call: WRITE
  • Prompt: !!,WVTITLE1,?70,"page: ",WVPAGE
  • Line Location: HEADER4+6
Function Call: WRITE
  • Prompt: !,$$RUNDT^WVUTL1A("C"),!
  • Line Location: HEADER41+3
Function Call: WRITE
  • Prompt: !,"Patient Name: ",WVNAMAGE,?53,$$PNLAB^WVUTL5(),WVCHRT
  • Line Location: HEADER41+4
Function Call: WRITE
  • Prompt: !,"Case Manager: ",WVCMGR
  • Line Location: HEADER41+5
Function Call: WRITE
  • Prompt: ?50,"Procedure: ",$E(WVPN,1,19)
  • Line Location: HEADER41+6
Function Call: WRITE
  • Prompt: !,"PAP Regimen : ",WVPAPRG
  • Line Location: HEADER41+7
Function Call: WRITE
  • Prompt: ?55,"Acc#: ",WVACCN
  • Line Location: HEADER41+8
Function Call: WRITE
  • Prompt: !,"Cx Tx Need : ",WVCNEED
  • Line Location: HEADER41+9
Function Call: WRITE
  • Prompt: ?48,"Cx Facility: ",$$FACIL^WVUTL1A(WVDFN,"C")
  • Line Location: HEADER41+10
Function Call: WRITE
  • Prompt: !,"Br Tx Need : ",WVBNEED
  • Line Location: HEADER41+11
Function Call: WRITE
  • Prompt: ?48,"Br Facility: ",$$FACIL^WVUTL1A(WVDFN,"B")
  • Line Location: HEADER41+12
Function Call: WRITE
  • Prompt: !,"Elig Code : ",$P($$ELIG^WVUTL9(WVDFN),U,2)
  • Line Location: HEADER41+13
Function Call: WRITE
  • Prompt: ?52,"Veteran: ",$$VET^WVUTL1A(WVDFN)
  • Line Location: HEADER41+14
Function Call: WRITE
  • Prompt: !,"MST : ",$$MST^WVUTL1A(WVDFN)
  • Line Location: HEADER41+15
Function Call: WRITE
  • Prompt: ?56,"CST: ",$$CST^WVUTL1A(WVDFN)
  • Line Location: HEADER41+16
Function Call: WRITE
  • Prompt: !,"Maternity Care Coordinator: ",$$MCMGR^WVUTL1(WVDFN)
  • Line Location: HEADER41+17
Function Call: WRITE
  • Prompt: !,$S(WVDES="YES":"*DES DAUGHTER*",1:"--------------")
  • Line Location: HEADER41+19
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",37)
  • Line Location: HEADER41+20
Function Call: WRITE
  • Prompt: $S(WVEDC]"":WVEDC_"----",1:"-----------------------------")
  • Line Location: HEADER41+21
Function Call: WRITE
  • Prompt: !,"Case Mgr: "
  • Line Location: HEADER5+8
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HEADER5+9
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HEADER5+10
Function Call: WRITE
  • Prompt: "UNKNOWN"
  • Line Location: HEADER5+11
Function Call: WRITE
  • Prompt: ?46,"Run Date: ",Y
  • Line Location: HEADER5+15
Function Call: WRITE
  • Prompt: !,"Facility: ",$$INSTTX^WVUTL6(WVFAC)
  • Line Location: HEADER5+16
Function Call: WRITE
  • Prompt: ?46,"Tx Needs Past Due as of ",$$SLDT2^WVUTL5(WVDDATE)
  • Line Location: HEADER5+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER5+18
Function Call: WRITE
  • Prompt: !?3,$$RUNDT^WVUTL1A()
  • Line Location: HEADER6+7
Function Call: WRITE
  • Prompt: ?60,"(",WVJTOY,")"
  • Line Location: HEADER6+7
Function Call: WRITE
  • Prompt: !," Note: This report includes all divisions"
  • Line Location: HEADER6+8
Function Call: WRITE
  • Prompt: " using this database."
  • Line Location: HEADER6+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER6+10
Function Call: WRITE
  • Prompt: !!,$$RUNDT^WVUTL1A()
  • Line Location: HEADER7+7
Function Call: WRITE
  • Prompt: ?45,"Date Range: "_$$FMTE^XLFDT($G(WVJSDT),"2D")_"-"_$$FMTE^XLFDT($P($G(WVJEDT),".",1),"2D")
  • Line Location: HEADER7+8
Function Call: WRITE
  • Prompt: !,"Facility: ",$$INSTTX^WVUTL6(DUZ(2))
  • Line Location: HEADER7+9
Function Call: WRITE
  • Prompt: ?45,"Cutoff Age: ",WVAGE
  • Line Location: HEADER7+10
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER7+11
Function Call: WRITE
  • Prompt: !,?3,"NAME",?30,$$PNLB^WVUTL5(),?45,"DOB",?60,"STATUS"
  • Line Location: HEADER7+12
Function Call: WRITE
  • Prompt: !,WVLINE
  • Line Location: HEADER7+13
Function Call: WRITE
  • Prompt: !!?4,"For Age Range: ",$S(WVAGRG=1:"ALL",1:WVAGRG)
  • Line Location: HEADER8+7
Function Call: WRITE
  • Prompt: ?56,"For period: ",$$SLDT2^WVUTL5(WVBEGDT)
  • Line Location: HEADER8+8
Function Call: WRITE
  • Prompt: !?4,"Run Date: ",Y
  • Line Location: HEADER8+9
Function Call: WRITE
  • Prompt: ?64,"To: ",$$SLDT2^WVUTL5(WVENDDT)
  • Line Location: HEADER8+10
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER8+11
Function Call: WRITE
  • Prompt: !?4,"(Note: This report includes all divisions using this database.)"
  • Line Location: HEADER8+12
Function Call: WRITE
  • Prompt: !?11,"Number of Active Patients: "_$G(WVTOT),!
  • Line Location: HEADER8+13
Function Call: WRITE
  • Prompt: !,WVTITLE
  • Line Location: ENDREP+7
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: ENDREP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^WV(790 - [#790] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call