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: 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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call