Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Womens Health 6 ($$DES,$$MCMGR)^WVUTL1  ($$CST,$$FACIL,$$MST,$$RUNDT,$$VET,FAC)^WVUTL1A  DIRZ^WVUTL3  ($$PNLAB,$$PNLB,$$SLDT1,$$SLDT2,$$TXDT,CENTERT)^WVUTL5  $$INSTTX^WVUTL6  $$ELIG^WVUTL9  
Kernel 3 ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA FileMan 3 DD^%DT  NOW^%DTC  $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Womens Health 13 WVBRNED1  WVBRNOT1  WVBRPCD1  WVGETALL  WVLABLG1  WVPATP  WVPROF1  WVPROF3  
WVPRPCD  WVRPPCD1  WVRPSCR  WVRPSCR1  WVRPSNP1  

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

External References

Name Field # of Occurrence
DD^%DT HEADER5+15, HEADER8+9
NOW^%DTC TOPHEAD+3, TOPHEAD1+3
^%ZISC ENDREP+9
$$GET1^DIQ HEADER1+15, HEADER2+18, HEADER5+13
$$DES^WVUTL1 HEADER41+18
$$MCMGR^WVUTL1 HEADER2+23, HEADER41+17
$$CST^WVUTL1A HEADER2+22, HEADER41+16
$$FACIL^WVUTL1A HEADER41+10, HEADER41+12
$$MST^WVUTL1A HEADER2+21, HEADER41+15
$$RUNDT^WVUTL1A HEADER1+8, HEADER2+9, HEADER3+8, HEADER41+3, HEADER6+7, HEADER7+7
$$VET^WVUTL1A HEADER2+20, HEADER41+14
FAC^WVUTL1A HEADER2+5
DIRZ^WVUTL3 ENDREP+8
$$PNLAB^WVUTL5 HEADER2+10, HEADER41+4
$$PNLB^WVUTL5 HEADER7+12
$$SLDT1^WVUTL5 TOPHEAD+3, TOPHEAD1+3
$$SLDT2^WVUTL5 HEADER3+10, HEADER3+11, HEADER5+17, HEADER8+8, HEADER8+10
$$TXDT^WVUTL5 HEADER1+17, HEADER1+19
CENTERT^WVUTL5 ENDREP+7
$$INSTTX^WVUTL6 HEADER1+18, HEADER2+12, HEADER3+9, HEADER5+16, HEADER7+9
$$ELIG^WVUTL9 HEADER2+19, HEADER41+13
$$FMTE^XLFDT HEADER7+8
$$REPEAT^XLFSTR S+2, TOPHEAD+4, TOPHEAD1+4, HEADER1+20, HEADER2+24, HEADER3+12, HEADER41+20, HEADER5+18, HEADER6+10, HEADER7+11
, HEADER8+11

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

Label References

Name Line Occurrences
@( HEADER1+21, HEADER2+26, HEADER3+13, HEADER5+19, HEADER6+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TOPHEAD+2~, TOPHEAD+3, TOPHEAD1+2~, TOPHEAD1+3
DT HEADER5+15, HEADER8+9
DUZ(2 HEADER1+18, HEADER2+12, HEADER3+9, HEADER7+9
I S+2~
IO("S" ENDREP+8
IOF HEADER1+5, HEADER2+6, HEADER3+5, HEADER4+4, HEADER5+5, HEADER6+4, HEADER7+4, HEADER8+4, ENDREP+8
IOST TOPHEAD+6, TOPHEAD1+6
S S~, S+3
SP S+2~*, S+3
U HEADER2+19, HEADER41+13
>> WVACCN HEADER41+8
>> WVAGE HEADER7+10
>> WVAGRG HEADER8+7
>> WVBEGDT HEADER1+17, HEADER3+10, HEADER8+8
>> WVBNEED HEADER2+16, HEADER41+11
>> WVCHRT HEADER2+10, HEADER41+4
>> WVCMGR HEADER1+12, HEADER1+13, HEADER1+15, HEADER2+11, HEADER41+5
WVCMGRNM HEADER1+14~, HEADER1+15*, HEADER1+16, HEADER5+12~, HEADER5+13*, HEADER5+14
>> WVCNEED HEADER2+13, HEADER41+9
>> WVCONF HEADER1+6, HEADER2+7, HEADER3+6, HEADER5+6, HEADER7+5
>> WVCONFF TOPHEAD+7*, TOPHEAD+8*, TOPHEAD1+7*, TOPHEAD1+8*, HEADER1+6, HEADER2+7, HEADER3+6, HEADER4+5, HEADER5+6, HEADER7+5
>> WVCRT TOPHEAD+6*, TOPHEAD1+6*, HEADER1+5, HEADER1+6, HEADER1+7, HEADER2+6, HEADER2+7, HEADER2+8, HEADER3+5, HEADER3+6
, HEADER3+7, HEADER4+4, HEADER4+5, HEADER5+5, HEADER5+6, HEADER5+7, HEADER6+4, HEADER6+5, HEADER6+6, HEADER7+4
, HEADER7+5, HEADER7+6, HEADER8+4, HEADER8+5, HEADER8+6, ENDREP+8
>> WVDDATE HEADER5+17
WVDES HEADER41+2~, HEADER41+18*, HEADER41+19
>> WVDFN HEADER2+18, HEADER2+19, HEADER2+20, HEADER2+21, HEADER2+22, HEADER2+23, HEADER41+10, HEADER41+12, HEADER41+13, HEADER41+14
, HEADER41+15, HEADER41+16, HEADER41+17, HEADER41+18
>> WVE HEADER1+10, HEADER1+11, HEADER5+9, HEADER5+10
>> WVEDC HEADER2+25, HEADER41+21
>> WVENDDT HEADER1+19, HEADER3+11, HEADER8+10
>> WVFAC HEADER3+9, HEADER5+16
>> WVJBFAC HEADER2+17
>> WVJCFAC HEADER2+14
>> WVJEDT HEADER7+8
>> WVJPCP HEADER2+15
>> WVJSDT HEADER7+8
>> WVJTOY HEADER6+7
>> WVLINE TOPHEAD+4*, TOPHEAD+9, TOPHEAD1+4*, TOPHEAD1+9, HEADER7+13
>> WVMGR HEADER5+11, HEADER5+13
>> WVNAMAGE HEADER2+10, HEADER41+4
>> WVNOW TOPHEAD+3*, TOPHEAD+9, TOPHEAD1+3*, TOPHEAD1+9
>> WVPAGE TOPHEAD+5*, TOPHEAD1+5*, HEADER1+5, HEADER1+7, HEADER2+6, HEADER2+8, HEADER3+5, HEADER3+7, HEADER4+4, HEADER4+6*
, HEADER5+5, HEADER5+7, HEADER6+4, HEADER6+6, HEADER7+4, HEADER7+6*, HEADER8+4, HEADER8+6
>> WVPAPRG HEADER2+15, HEADER41+7
>> WVPN HEADER41+6
>> WVPOP ENDREP+7, ENDREP+8
>> WVSUBH HEADER1+21, HEADER2+26, HEADER3+13, HEADER5+19, HEADER6+11
>> WVTIMLN TOPHEAD+9*, TOPHEAD1+9*, HEADER1+6, HEADER2+7, HEADER3+6, HEADER4+5, HEADER5+6, HEADER6+5, HEADER7+5, HEADER8+5
>> WVTITLE HEADER1+7, HEADER2+8, HEADER3+7, HEADER5+7, HEADER6+6, HEADER7+6, HEADER8+6, ENDREP+6*, ENDREP+7
>> WVTITLE1 HEADER4+6
>> WVTOT HEADER8+13
X TOPHEAD+2~, TOPHEAD1+2~, HEADER1+4~, HEADER2+4~, HEADER3+4~, HEADER5+4~, HEADER6+3~, HEADER7+3~, HEADER8+3~, ENDREP~
, ENDREP+7
>> Y HEADER5+15*, HEADER8+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All