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
Print Page as PDF
Routine: WVRPPCD1

Package: Womens Health

Routine: WVRPPCD1


Information

WVRPPCD1 ;HCIOFO/FT,JR-REPORT: PROCEDURE STATISTICS; ;7/24/01 13:55

Source Information

Source file <WVRPPCD1.m>

Entry Points

Name Comments DBIA/ICR reference
DISPLAY ;EP
DISPLAY1 ;EP
JUMP1 ;
JUMP2 ;
JUMP3 ;
VERTICAL ;EP
PG ;FIGURES %'S FOR VETS & NON VETS
T ;ELIMINTE DECIMAL POINT IN %
WVAGRP(AGE) ;EP
SUBHEAD ;EP
HEADER3 ;EP
HEADER4 ; Header and message for facilities without data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?68," CREDIT"
  • Line Location: DISPLAY1+17
Function Call: WRITE
  • Prompt: ?66," REG. NO CR"
  • Line Location: DISPLAY1+19
Function Call: WRITE
  • Prompt: ?67,"----- -----"
  • Line Location: DISPLAY1+21
Function Call: WRITE
  • Prompt: !?14,$S($P(Y,U)="PREGNANCY TEST":"NOT PREG",1:"NORMAL:")
  • Line Location: VERTICAL+5
Function Call: WRITE
  • Prompt: ?24,$J($P(Y,U,4),5),?30,"(",$J($P(Y,U,5),3),"%)"
  • Line Location: VERTICAL+6
Function Call: WRITE
  • Prompt: ?38,$J($P(Y,U,17),5),?44,PG(1),?47,$J($P(Y,U,4)-$P(Y,U,17),8)
  • Line Location: VERTICAL+7
Function Call: WRITE
  • Prompt: ?59,PG(2)
  • Line Location: VERTICAL+8
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,25),5),?72,$J($P(Y,U,33),5)
  • Line Location: VERTICAL+9
Function Call: WRITE
  • Prompt: !?2,"PROCEDURES"
  • Line Location: VERTICAL+10
Function Call: WRITE
  • Prompt: ?14,$S($P(Y,U)="PREGNANCY TEST":"PREGNANT:",1:"ABNORMAL:")
  • Line Location: VERTICAL+11
Function Call: WRITE
  • Prompt: ?24,$J($P(Y,U,8),5),?30,"(",$J($P(Y,U,9),3),"%)"
  • Line Location: VERTICAL+12
Function Call: WRITE
  • Prompt: ?38,$J($P(Y,U,19),5),?44,PG(3),?47,$J($P(Y,U,8)-$P(Y,U,19),8)
  • Line Location: VERTICAL+13
Function Call: WRITE
  • Prompt: ?59,PG(4)
  • Line Location: VERTICAL+14
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,27),5),?72,$J($P(Y,U,35),5)
  • Line Location: VERTICAL+15
Function Call: WRITE
  • Prompt: !?14,"NO RESULT:",?24,$J($P(Y,U,12),5),?30,"(",$J($P(Y,U,13),3),"%)"
  • Line Location: VERTICAL+16
Function Call: WRITE
  • Prompt: ?38,$J($P(Y,U,21),5),?44,PG(5),?47,$J($P(Y,U,12)-$P(Y,U,21),8)
  • Line Location: VERTICAL+17
Function Call: WRITE
  • Prompt: ?59,PG(6)
  • Line Location: VERTICAL+18
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,29),5),?72,$J($P(Y,U,37),5)
  • Line Location: VERTICAL+19
Function Call: WRITE
  • Prompt: !?14,"TOTAL:",?24,$J($P(Y,U,15),5),?38,$J($P(Y,U,23),5)
  • Line Location: VERTICAL+20
Function Call: WRITE
  • Prompt: ?44,PG(7),?47,$J($P(Y,U,15)-$P(Y,U,23),8)
  • Line Location: VERTICAL+21
Function Call: WRITE
  • Prompt: ?59,PG(8)
  • Line Location: VERTICAL+22
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,31),5),?72,$J($P(Y,U,39),5)
  • Line Location: VERTICAL+23
Function Call: WRITE
  • Prompt: !!?14,$S($P(Y,U)="PREGNANCY TEST":"NOT PREG:",1:"NORMAL:")
  • Line Location: VERTICAL+24
Function Call: WRITE
  • Prompt: ?24,$J($P(Y,U,2),5),?30,"(",$J($P(Y,U,3),3),"%)"
  • Line Location: VERTICAL+25
Function Call: WRITE
  • Prompt: ?38,$J($P(Y,U,18),5),?44,PG(9),?47,$J($P(Y,U,2)-$P(Y,U,18),8)
  • Line Location: VERTICAL+26
Function Call: WRITE
  • Prompt: ?59,PG(10)
  • Line Location: VERTICAL+27
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,26),5),?72,$J($P(Y,U,34),5)
  • Line Location: VERTICAL+28
Function Call: WRITE
  • Prompt: !?2,"PATIENTS"
  • Line Location: VERTICAL+29
Function Call: WRITE
  • Prompt: ?14,$S($P(Y,U)="PREGNANCY TEST":"PREGNANT:",1:"ABNORMAL:")
  • Line Location: VERTICAL+30
Function Call: WRITE
  • Prompt: ?24,$J($P(Y,U,6),5),?30,"(",$J($P(Y,U,7),3),"%)"
  • Line Location: VERTICAL+31
Function Call: WRITE
  • Prompt: ?38,$J($P(Y,U,20),5),?44,PG(11),?47,$J($P(Y,U,6)-$P(Y,U,20),8)
  • Line Location: VERTICAL+32
Function Call: WRITE
  • Prompt: ?59,PG(12)
  • Line Location: VERTICAL+33
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,28),5),?72,$J($P(Y,U,36),5)
  • Line Location: VERTICAL+34
Function Call: WRITE
  • Prompt: !?14,"NO RESULT:",?24,$J($P(Y,U,10),5),?30,"(",$J($P(Y,U,11),3),"%)"
  • Line Location: VERTICAL+35
Function Call: WRITE
  • Prompt: ?38,$J($P(Y,U,22),5),?44,PG(13),?47,$J($P(Y,U,10)-$P(Y,U,22),8)
  • Line Location: VERTICAL+36
Function Call: WRITE
  • Prompt: ?59,PG(14)
  • Line Location: VERTICAL+37
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,30),5),?72,$J($P(Y,U,38),5)
  • Line Location: VERTICAL+38
Function Call: WRITE
  • Prompt: !?14,"TOTAL:",?24,$J($P(Y,U,14),5),?38,$J($P(Y,U,24),5)
  • Line Location: VERTICAL+39
Function Call: WRITE
  • Prompt: ?44,PG(15),?47,$J($P(Y,U,14)-$P(Y,U,24),8)
  • Line Location: VERTICAL+40
Function Call: WRITE
  • Prompt: ?59,PG(16)
  • Line Location: VERTICAL+41
Function Call: WRITE
  • Prompt: ?64,$J($P(Y,U,32),5),?72,$J($P(Y,U,40),5)
  • Line Location: VERTICAL+42
Function Call: WRITE
  • Prompt: !?5,"NOTE: Patient numbers are not intended to total. "
  • Line Location: SUBHEAD+2
Function Call: WRITE
  • Prompt: "Patients may be"
  • Line Location: SUBHEAD+3
Function Call: WRITE
  • Prompt: !," included in more than one category.",!
  • Line Location: SUBHEAD+4
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("=",80)
  • Line Location: SUBHEAD+5
Function Call: WRITE
  • Prompt: !,WVTITLE,?70,"page: ",WVPAGE
  • Line Location: HEADER3+5
Function Call: WRITE
  • Prompt: !,$$RUNDT^WVUTL1A("C")
  • Line Location: HEADER3+6
Function Call: WRITE
  • Prompt: !!,"Facility: ",$$INSTTX^WVUTL6($S($G(WVFAC):WVFAC,1:DUZ(2)))
  • Line Location: HEADER3+7
Function Call: WRITE
  • Prompt: ?53,"From: ",$$SLDT2^WVUTL5(WVBEGDT)
  • Line Location: HEADER3+8
Function Call: WRITE
  • Prompt: " to ",$$SLDT2^WVUTL5(WVENDDT)
  • Line Location: HEADER3+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER3+10
Function Call: WRITE
  • Prompt: !,WVTITLE,?70,"page: ",WVPAGE
  • Line Location: HEADER4+3
Function Call: WRITE
  • Prompt: !,$$RUNDT^WVUTL1A("C")
  • Line Location: HEADER4+4
Function Call: WRITE
  • Prompt: !!,"Facility: "_WVNAME
  • Line Location: HEADER4+5
Function Call: WRITE
  • Prompt: ?53,"From: ",$$SLDT2^WVUTL5(WVBEGDT)
  • Line Location: HEADER4+6
Function Call: WRITE
  • Prompt: " to ",$$SLDT2^WVUTL5(WVENDDT)
  • Line Location: HEADER4+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HEADER4+8
Function Call: WRITE
  • Prompt: !!?5,"No records match the selected criteria for this facility.",!
  • Line Location: HEADER4+10
Info |  Source |  Entry Points |  Interaction Calls