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 ;04/15/2021

Source Information

Source file <WVEXPTRA.m>

Call Graph

Call Graph

Call Graph Total: 11

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  
Clinical Reminders 1 GETTRMCD^PXRMPRAD  
MailMan 1 ^XMD  

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

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

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
EN2 ;
DESC ; Describe option
CHECK ; Check if DUZ(2) exists for user, if entry exists in site parameter
; file, if case manager, and if File 70 exists.
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.
STATUS ; Select default status for procedures
QUEUE ; Task as background job
CPTS ; Loop through File 71 to get procedure pointers for the CPTs we
; are interested in.
GETCPTS(WVCPTS) ;
GET ; get mammograms and ultrasounds from RAD/NM database
MAIL ; send mail message to user with counts of procedures & patients added
KILL ;

External References

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

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+11
^RADPT - [#70] CHECK+8, GET+10, GET+15, GET+17, GET+18
^RAMIS(71 - [#71] CPTS+4
^WV(790.02 - [#790.02] CHECK+3, CHECK+4
^WV(790.2 - [#790.2] CPTS+8, CPTS+13, GETCPTS+2, GETCPTS+5

Label References

Name Line Occurrences
$$DATECHK DTRNG+1
CHECK EN1+2
CPTS EN2+1
DESC EN1+3
DTRNG EN1+4
GET EN2+2
GETCPTS CPTS+3
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*
CODE GETCPTS+1~, GETCPTS+6*, GETCPTS+7
CODES GETCPTS+1~, GETCPTS+3!, GETCPTS+4
CODES( GETCPTS+6
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+3
DUZ(2 CHECK+3, CHECK+4
ERROR GETCPTS+1~, GETCPTS+4
IOF DESC+1
RAD GETCPTS+1~, GETCPTS+8*, GETCPTS+9
TERMIEN GETCPTS+1~, GETCPTS+2*, GETCPTS+4, GETCPTS+5
U CHECK+4, CPTS+13, GET+11, GET+20, GET+23
WVARRAY CPTS+2!, GET+5, MAIL+7, KILL+2!
WVARRAY( CPTS+14*, GET+22
WVCNI GET+16*, GET+17*, GET+18, GET+27, KILL+2!
WVCPT CPTS+5*, CPTS+6, CPTS+8, CPTS+10, KILL+2!
WVCPTS CPTS+2~, CPTS+3, GETCPTS~
WVCPTS("CPT" CPTS+10, GETCPTS+7*
WVCPTS("RAD" CPTS+11, GETCPTS+9*
WVDATE DATECHK~, DATECHK+5, DATECHK+8*, DATECHK+10
WVDFN GET+9*, GET+10*, GET+11, GET+12, GET+15, GET+17, GET+18, GET+27, KILL+2!
WVDTI GET+13*, GET+15*, GET+17, GET+18, GET+27, KILL+2!
WVEC EN1+1*, KILL+2!
WVENDT DTRNG+13*, GET+6*, GET+13, KILL+2!
WVIEN CPTS+2*, CPTS+4*, CPTS+5, CPTS+11, CPTS+14, KILL+2!
WVLOOP DATECHK+2~, DATECHK+4*
WVMCNT GET+4*, MAIL+6, KILL+2!
WVMSG MAIL+1~
WVMSG(1 MAIL+5*
WVMSG(2 MAIL+6*
WVMSG(3 MAIL+8*
WVMSG(4 MAIL+9*
WVMSG(5 MAIL+10*
WVNEWP GET+4*, MAIL+5, KILL+2!
WVNODE GET+18*, GET+19, GET+20, GET+23, 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+7*, CPTS+8*, CPTS+9, CPTS+10*, CPTS+11*, CPTS+12, CPTS+13, GETCPTS+1~, GETCPTS+5*
, GETCPTS+7, GETCPTS+9, GET+20*, GET+21, GET+22, KILL+2!
WVRPT GET+23*, GET+24, GET+25, KILL+2!
WVRPTSTA GET+3~, GET+25*, GET+26
WVSTATUS STATUS+6*, GET+27, KILL+2!
WVSTDT DTRNG+1*, DTRNG+2, DTRNG+4, DTRNG+7*, DTRNG+8, GET+7*, GET+8*, GET+15, KILL+2!
WVTERM GETCPTS+1~, GETCPTS+4
WVTERM("E" GETCPTS+8
X DATECHK+2~, DATECHK+5*, KILL+3!
>> XMDUZ MAIL+2*
XMSUB MAIL+1~, MAIL+4*
XMTEXT MAIL+1~, MAIL+12*
XMY MAIL+1~
XMY( MAIL+3*
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+14
>> ZTREQ MAIL+14*
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