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 |  Local Variables |  All
Print Page as PDF
Routine: WVEXPTRA

Package: Womens Health

Routine: WVEXPTRA


Information

WVEXPTRA ;HCIOFO/FT-EXPORT MAMS & ULTRASOUNDS TO WOMEN'S HEALTH ;2/18/00 13:49

Source Information

Source file <WVEXPTRA.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Womens Health 4 ($$VECCHK,EC)^WVGETAL1  CHECK^WVLOGO  CREATEH^WVRALINK  NODCM^WVUTL9  
VA FileMan 3 ^%DT  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Womens Health 2 WV IMPORT RAD/NM EXAMS  WVGETALL  

Entry Points

Name Comments DBIA/ICR reference
STATUS ; Select default status for procedures
DTRNG ; prompt for date range, go back three years maximum
DATECHK(WVDATE) ; Check if WVDATE is a valid date. Substract 1 day until a
; valid date in WVDATE and return same.
CPTS ; Loop through File 71 to get procedure pointers for the CPTs we
; are interested in.
GET ; get mammograms and ultrasounds from RAD/NM database
QUEUE ; Task as background job
EN1 ;
EN2 ;
KILL ;
MAIL ; send mail message to user with counts of procedures & patients added
CHECK ; Check if DUZ(2) exists for user, if entry exists in site parameter
; file, if case manager, and if File 70 exists.
DESC ; Describe option

External References

Name Field # of Occurrence
^%DT DATECHK+6
^%ZTLOAD QUEUE+5
$$GET1^DIQ CPTS+4, GET+24
^DIR DTRNG+5, DTRNG+11, STATUS+4
$$VECCHK^WVGETAL1 GET+11
EC^WVGETAL1 EN1+6
CHECK^WVLOGO CHECK+2
CREATEH^WVRALINK GET+25
NODCM^WVUTL9 CHECK+5
$$FMADD^XLFDT DATECHK+8
$$FMTE^XLFDT DTRNG+4, DTRNG+9
^XMD MAIL+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DESC+1
Function Call: WRITE
  • Prompt: !,"This option searches the Radiology/Nuclear Medicine database for"
  • Line Location: DESC+2
Function Call: WRITE
  • Prompt: !,"all female patients who had a mammogram, breast ultrasound, pelvic"
  • Line Location: DESC+3
Function Call: WRITE
  • Prompt: !,"ultrasound or vaginal ultrasound exam during the date range you select."
  • Line Location: DESC+4
Function Call: WRITE
  • Prompt: !,"These procedures and patients will be added to the WH database if"
  • Line Location: DESC+5
Function Call: WRITE
  • Prompt: !,"not already there.",!
  • Line Location: DESC+6
Function Call: WRITE
  • Prompt: !,"This job will be queued as a background task so as to free up your"
  • Line Location: DESC+7
Function Call: WRITE
  • Prompt: !,"terminal to do other work. You will receive a mail message when"
  • Line Location: DESC+8
Function Call: WRITE
  • Prompt: !,"the job is done. The mail message will contain a count of the"
  • Line Location: DESC+9
Function Call: WRITE
  • Prompt: !,"number of procedures and patients added.",!!
  • Line Location: DESC+10
Function Call: WRITE
  • Prompt: !,"There is no Radiology/Nuclear Medicine Patient file (#70)",!
  • Line Location: CHECK+8
Routine Call
  • DIR
  • Line Location:
    • DTRNG+5
    • DTRNG+11
    • STATUS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] GET1^DIQ
^RARPT - [#74] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GET+10
^RADPT - [#70] CHECK+8, GET+9, GET+14, GET+16, GET+17
^RAMIS(71 - [#71] CPTS+3
^WV(790.02 - [#790.02] CHECK+3, CHECK+4
^WV(790.2 - [#790.2] CPTS+7, CPTS+9

Label References

Name Line Occurrences
$$DATECHK DTRNG+1
CHECK EN1+2
CPTS EN2+1
DESC EN1+3
DTRNG EN1+4
GET EN2+2
KILL EN1+2, EN1+4, EN1+5, EN1+6, EN1+8, EN2+4
MAIL EN2+3
QUEUE EN1+7
STATUS EN1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATECHK+2~, DATECHK+5*
DIR DTRNG+2!, DTRNG+5!, DTRNG+11!, STATUS+1!, STATUS+4!, KILL+1!
DIR("?" DTRNG+4*, DTRNG+10*, STATUS+3*
DIR("A" DTRNG+3*, DTRNG+9*, STATUS+2*
DIR("B" DTRNG+9*
DIR(0 DTRNG+2*, DTRNG+8*, STATUS+2*
DIROUT KILL+1!
DIRUT DTRNG+6, DTRNG+12, STATUS+5, KILL+1!
DT DTRNG+1, DTRNG+2, DTRNG+8, DTRNG+9
DTOUT KILL+1!
DUOUT KILL+1!
DUZ MAIL+2
DUZ(2 CHECK+3, CHECK+4
IOF DESC+1
U CHECK+4, CPTS+9, GET+10, GET+19, GET+22
WVARRAY CPTS+2!, GET+4, MAIL+6, KILL+2!
WVARRAY( CPTS+10*, GET+21
WVCNI GET+15*, GET+16*, GET+17, GET+25, KILL+2!
WVCPT CPTS+4*, CPTS+5, CPTS+7, KILL+2!
WVDATE DATECHK~, DATECHK+5, DATECHK+8*, DATECHK+10
WVDFN GET+8*, GET+9*, GET+10, GET+11, GET+14, GET+16, GET+17, GET+25, KILL+2!
WVDTI GET+12*, GET+14*, GET+16, GET+17, GET+25, KILL+2!
WVEC EN1+1*, KILL+2!
WVENDT DTRNG+13*, GET+5*, GET+12, KILL+2!
WVIEN CPTS+2*, CPTS+3*, CPTS+4, CPTS+10, KILL+2!
WVLOOP DATECHK+2~, DATECHK+4*
WVMCNT GET+3*, MAIL+5, KILL+2!
>> WVMSG(1 MAIL+4*
>> WVMSG(2 MAIL+5*
>> WVMSG(3 MAIL+7*
>> WVMSG(4 MAIL+8*
>> WVMSG(5 MAIL+9*
WVNEWP GET+3*, MAIL+4, KILL+2!
WVNODE GET+17*, GET+18, GET+19, GET+22, KILL+2!
WVPOP EN1+1*, EN1+2, EN1+4, EN1+5, EN1+6, CHECK+3*, CHECK+6*, CHECK+8*, DTRNG+6*, DTRNG+12*
, STATUS+5*, QUEUE+2*, KILL+2!
WVPROC CPTS+2~, CPTS+6*, CPTS+7*, CPTS+8, CPTS+9, GET+19*, GET+20, GET+21, KILL+2!
WVRPT GET+22*, GET+23, GET+24, KILL+2!
WVSTATUS STATUS+6*, GET+25, KILL+2!
WVSTDT DTRNG+1*, DTRNG+2, DTRNG+4, DTRNG+7*, DTRNG+8, GET+6*, GET+7*, GET+14, KILL+2!
X DATECHK+2~, DATECHK+5*, KILL+3!
>> XMDUZ MAIL+1*
>> XMSUB MAIL+3*
>> XMTEXT MAIL+11*
>> XMY( MAIL+2*
Y DTRNG+7, DTRNG+13, DATECHK+2~, DATECHK+3*, DATECHK+4, DATECHK+7, STATUS+6, KILL+3!
ZTDESC QUEUE+1*, KILL+3!
ZTDTH QUEUE+2*, KILL+3!
ZTIO QUEUE+1*, KILL+3!
>> ZTQUEUED MAIL+13
>> ZTREQ MAIL+13*
ZTRTN QUEUE+1*, KILL+3!
ZTSAVE KILL+3!
ZTSAVE("WVEC(" QUEUE+4*
ZTSAVE("WVENDT" QUEUE+3*
ZTSAVE("WVSTATUS" QUEUE+3*
ZTSAVE("WVSTDT" QUEUE+3*
ZTSK KILL+3!
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 |  Local Variables |  All