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

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] GET1^DIQ
^RARPT - [#74] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call