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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: WVRPST

Package: Womens Health

Routine: WVRPST


Information

WVRPST ;HCIOFO/JR,FT-Sexual Trauma Summary ;4/11/01 09:16

Source Information

Source file <WVRPST.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Womens Health 5 CMGR^WVMSTL  $$PERSON^WVUTL1  STOPCHK^WVUTL10  ($$RUNDT,$$VET)^WVUTL1A  DIRZ^WVUTL3  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$REPEAT^XLFSTR  
Registration 1 $$GETSTAT^DGMSTAPI  
VA FileMan 1 $$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: 1

Package Total Caller Graph
Womens Health 1 WV SEXUAL TRAUMA SUMMARY  

Entry Points

Name Comments DBIA/ICR reference
GET ; Get data for report
EXIT ;
PRINT ; Print counts
HEAD ; Print the report header
NOT(WVDFN) ;Screen out patients for Inactive & Dead

External References

Name Field # of Occurrence
^%ZIS WVRPST+13
HOME^%ZIS WVRPST+16
^%ZISC EXIT+1
^%ZTLOAD WVRPST+16
$$GETSTAT^DGMSTAPI GET+17
$$GET1^DIQ NOT+2
CMGR^WVMSTL WVRPST+11
$$PERSON^WVUTL1 PRINT+18
STOPCHK^WVUTL10 GET+13
$$RUNDT^WVUTL1A HEAD+3
$$VET^WVUTL1A GET+19
DIRZ^WVUTL3 PRINT+20
$$REPEAT^XLFSTR GET+7, GET+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?33,"WOMEN'S HEALTH"
  • Line Location: WVRPST+8
Function Call: WRITE
  • Prompt: !?19,"* * * SEXUAL TRAUMA SUMMARY REPORT * * *",!
  • Line Location: WVRPST+9
Function Call: WRITE
  • Prompt: !,"MST",?18,"YES",?29,"NO",?35,"DECLINED",?45,"UNKNOWN"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,WVLINE
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"VETERANS",?15,$J(WVMSTV("Y"),6),?25,$J(WVMSTV("N"),6),?35,$J(WVMSTV("D"),6),?45,$J(WVMSTV("U"),6)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,WVDASH
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!,"CST",?18,"YES",?29,"NO",?35,"DECLINED",?45,"UNKNOWN"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,WVLINE
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"VETERANS",?15,$J(WVCSTV("Y"),6),?25,$J(WVCSTV("N"),6),?35,$J(WVCSTV("D"),6),?45,$J(WVCSTV("U"),6)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"NON-VETS",?15,$J(WVCSTNV("Y"),6),?25,$J(WVCSTNV("N"),6),?35,$J(WVCSTNV("D"),6),?45,$J(WVCSTNV("U"),6)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,WVDASH
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?5,"# OF PATIENTS ---------------->",$J(WVCNALL,5)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?5,"# WHO ARE VETERANS ----------->",$J(WVETCNT,5)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !?5,"# WHO ARE NON-VETERANS ------->",$J(WVCIVCNT,5)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !?5,"# WITH MST & CST ------------->",$J(WVBOTH,5)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!?12,"Above numbers are based on Active Women's Health patients"
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !?12,"for all case managers."
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !?12,"for "_$$PERSON^WVUTL1(WVMGR)_"."
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !?26,"SEXUAL TRAUMA SUMMARY REPORT"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,$$RUNDT^WVUTL1A("C")
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,WVDASH
  • Line Location: HEAD+4
Routine Call
  • %ZIS
  • Line Location:
    • WVRPST+13
Routine Call
  • %ZIS
  • Line Location:
    • WVRPST+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^WV(790 - [#790] GET+9, NOT+4

Label References

Name Line Occurrences
$$NOT GET+14
EXIT WVRPST+12, WVRPST+13, GET+41
HEAD PRINT+2
PRINT GET+42

Naked Globals

Name Field # of Occurrence
^( GET+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS WVRPST+13*
IO GET+1
IO("Q" WVRPST+13!, WVRPST+16!
IO("S" PRINT+20
IOF WVRPST+8, PRINT+20, HEAD+1
IOST PRINT+1
POP WVRPST+13, EXIT+4!, PRINT+20
TEST NOT+1~, NOT+2*, NOT+3, NOT+4*, NOT+5
U GET+15, GET+16, GET+17, NOT+4
WV0 GET+9*, GET+15, GET+16, EXIT+2!
WVBOTH GET+3*, GET+35*, EXIT+2!, PRINT+15
WVCIVCNT GET+3*, GET+21*, EXIT+2!, PRINT+14
WVCNALL GET+3*, GET+18*, EXIT+2!, PRINT+12
WVCRT EXIT+2!, PRINT+1*, PRINT+20
WVCST GET+16*, GET+23, GET+24, GET+25, GET+29, GET+30, GET+31, GET+35, EXIT+2!
WVCSTNV EXIT+2!
WVCSTNV("D" GET+5*, GET+31*, PRINT+10
WVCSTNV("N" GET+5*, GET+30*, PRINT+10
WVCSTNV("U" GET+5*, GET+32*, PRINT+10
WVCSTNV("Y" GET+5*, GET+29*, PRINT+10
WVCSTV EXIT+2!
WVCSTV("D" GET+4*, GET+25*, PRINT+9
WVCSTV("N" GET+4*, GET+24*, PRINT+9
WVCSTV("U" GET+4*, GET+26*, PRINT+9
WVCSTV("Y" GET+4*, GET+23*, PRINT+9
WVDASH GET+8*, EXIT+2!, PRINT+6, PRINT+11, HEAD+4
WVDFN GET+3*, GET+9*, GET+14, GET+17, GET+19, EXIT+2!, NOT~, NOT+2, NOT+4
WVE WVRPST+10*, GET+2, GET+15, EXIT+3!, PRINT+17, PRINT+18
WVET GET+19*, GET+20, GET+21, GET+22, GET+28, GET+34, EXIT+3!
WVETCNT GET+3*, GET+20*, EXIT+3!, PRINT+13
WVJRNOW EXIT+3!
WVLINE GET+7*, EXIT+3!, PRINT+4, PRINT+8
WVLINL EXIT+3!
WVMGR WVRPST+10*, GET+15, EXIT+3!, PRINT+18
WVMST GET+17*, GET+35, GET+36, GET+37, EXIT+3!
WVMSTV EXIT+3!
WVMSTV("D" GET+6*, GET+37*, PRINT+5
WVMSTV("N" GET+6*, GET+36*, PRINT+5
WVMSTV("U" GET+6*, GET+38*, PRINT+5
WVMSTV("Y" GET+6*, GET+35*, PRINT+5
WVPOP WVRPST+10*, WVRPST+12, EXIT+3!, PRINT+19*
WVTAB EXIT+3!
WVZSTOP GET+3*, GET+10*, GET+13, EXIT+3!
X EXIT+4!
Y EXIT+4!
>> ZSTOP GET+9
>> ZTDESC WVRPST+14*
>> ZTQUEUED GET+13
>> ZTRTN WVRPST+14*
>> ZTSAVE("WVE" WVRPST+15*
>> ZTSAVE("WVMGR" WVRPST+15*
>> ZTSTOP GET+13, GET+41
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All