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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDMASK

Package: Diabetes Registry

Routine: BDMASK


Information

BDMASK ; IHS/CMI/LAB -GET PATIENT OR COHORT ;

Source Information

Source file <BDMASK.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$LOW^XLFSTR  
VA Fileman 3 (,DD)^%DT  ^DIC  ^DIR  
Diabetes Registry 2 ($$REC,WRITEF)^BDMDM  EN^BDMPRT  
IHS VA Utilities 1 ^XBKVAR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Diabetes Registry 2 BDMDM  BDMGR  

Entry Points

Name Comments DBIA/ICR reference
AGIN
EOJ ;
ASKBD
TASK ; Task?
EPIREC ;create epi info record in ^TMP("BDMEPI",$J,n)
X2
1 ; Fiscal Year
GETTIME
2 ; Date Range
ASK ; Get patient name or cohort
X3
X1
ZTM ;PEP - CALLED FROM BDM - ENTRY POINT - for taskman
FLAT ;
START1(BDMDFN,BDMCUML) ;EP
START2 ;PEP PUBLISHED ENTRY POINT - called to create a report template
START
CLEAN ;
X
ASKED
QUE
TIME ;PEP - CALLED FROM BDM Get fiscal year or time frame

External References

Name Field # of Occurrence
^%DT ASKBD, ASKED
DD^%DT TIME+1, 1+8, 1+9, X3+2, X3+3
^%ZIS TASK+1
HOME^%ZIS QUE+4
^%ZISC ZTM+14, EOJ+1
^%ZTLOAD QUE+3
$$REC^BDMDM EPIREC+1, EPIREC+2, EPIREC+3
WRITEF^BDMDM ZTM+11
EN^BDMPRT ZTM+8, ZTM+10
^DIC ASK+10
^DIR START+3, TIME+2, 1+1, FLAT+2, FLAT+12
^XBKVAR START2+5
$$LOW^XLFSTR FLAT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"Report template entry not indicated!"
  • Line Location: START2+1
Function Call: WRITE
  • Prompt: !,*7,"Indicated patient/cohort report template entry does not exist!"
  • Line Location: START2+2
Function Call: WRITE
  • Prompt: !,*7,"Indicated cumulative report entry does not exist!"
  • Line Location: START2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TIME+3
Function Call: WRITE
  • Prompt: !,"Beginning and ending dates must be prior to today, and beginning date",!,"must precede ending date.",!
  • Line Location: ASKED+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !!,"Invalid format, must be letters and numbers",!
  • Line Location: FLAT+4
Function Call: WRITE
  • Prompt: !!,"I am going to create a file called ",BDMFILE," which will reside in ",!,"the ",$S($P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",1:"C:\EXPORT")," directory.",!
  • Line Location: FLAT+6
Function Call: WRITE
  • Prompt: "Actually, the file will be placed in the same directory that the data export"
  • Line Location: FLAT+7
Function Call: WRITE
  • Prompt: !,"globals are placed. See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"********** ",BDMFILE," **********",!
  • Line Location: FLAT+8
Function Call: WRITE
  • Prompt: "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",!
  • Line Location: FLAT+9
Function Call: WRITE
  • Prompt: !,"The records that are generated and placed in file ",BDMFILE
  • Line Location: FLAT+10
Function Call: WRITE
  • Prompt: !,"are in a format readable by EPI INFO. For a definition of the format",!,"please see your user manual.",!
  • Line Location: FLAT+11
Routine Call
  • %ZIS
  • Line Location:
    • QUE+4
Routine Call
  • DIC
  • Line Location:
    • ASK+10
Routine Call
  • DIR
  • Line Location:
    • START+3
    • TIME+2
    • 1+1
    • FLAT+2
    • FLAT+12
Routine Call
  • %ZIS
  • Line Location:
    • TASK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSITE(1 FLAT+6
^BDMRPT( START2+2, START2+4, ZTM+7, ZTM+10, QUE+2
^DIBT( ASK+13
^TMP("BDM" ZTM+4!, ZTM+6!
^TMP("BDMCUML" ZTM+4!, ZTM+10, ZTM+12!
^TMP("BDMEPI" ZTM+4!, ZTM+12!, EPIREC+1*, EPIREC+2*, EPIREC+3*
^TMP("BDMPTS" START!, START+1, ASK+12*, ASK+13*, ZTM+6, ZTM+12!, CLEAN+1!, EOJ+2!

Label References

Name Line Occurrences
@( TIME+3, ZTM+7, ZTM+10
AGIN START+7
ASK START, ASK+11
ASKBD ASKBD, ASKED+1
ASKED ASKED
CLEAN START+1, AGIN
EOJ X, ZTM+13
EPIREC ZTM+9
FLAT START+6, FLAT+4
GETTIME START+1
QUE START+7
START START+4, AGIN
START2 BDMASK+6
TASK START+7
TIME GETTIME
X GETTIME
X1 ASK+6
X3 ASKBD, ASKED
ZTM START+8

Naked Globals

Name Field # of Occurrence
^(0 ZTM+7, ZTM+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE+1~*
>> %DT ASKBD*, ASKED*
>> %DT("A" ASKBD*, ASKED*
%ZIS TASK+1!*
AUPNDAYS EOJ+2!
AUPNDOB EOJ+2!
AUPNDOD EOJ+2!
AUPNPAT EOJ+2!
AUPNSEX EOJ+2!
BDMASK ZTM+3*, EOJ+2!
BDMBD EOJ+2!
BDMBDT START+1!, 1+6*, 1+8*, 1+10, ASKBD*, ASKED+1, X3, X3+2*, X3+4, EOJ+2!
BDMCUML START1~, START2+3*, START2+4, ZTM+10
BDMDATE START+1!, 1+10*, X3+4*, EOJ+2!
BDMDFN START1~, START2+1, START2+2, ZTM+7, ZTM+8, QUE+2, EOJ+2!
BDMDTE EOJ+2!
BDMED 1+9*, X3+3*, EOJ+2!
BDMEDT START+1!, 1+6*, 1+9*, 1+10, ASKED*, ASKED+1, X3, X3+3*, X3+4, EOJ+2!
BDMEPIN ZTM+2*, EPIREC+1*, EPIREC+2*, EPIREC+3*, CLEAN+1!, EOJ+2!
>> BDMFILE FLAT+1*, FLAT+5*, FLAT+6, FLAT+8, FLAT+10
BDMFISC START+1!, 1+2*, 1+11*, EOJ+2!
BDMHTKI EOJ+3!
BDMMAM EOJ+2!
BDMPD ASK+13*, ZTM+6*, ZTM+8, EPIREC+1, EPIREC+2, EPIREC+3, CLEAN+1!, EOJ+2!
BDMPREP START+5*, START+6, ZTM+8, ZTM+9, ZTM+10, ZTM+11, CLEAN+1!, EOJ+2!
BDMPT ASK+2!, ASK+7*, ASK+9, ASK+10, ASK+12, ASK+14!, CLEAN+1!, EOJ+2!
BDMPTS ASK+3, ASK+4, ASK+12*, CLEAN+1!
BDMROOT ZTM+5*, ZTM+8, ZTM+10*, EOJ+2!
BDMRXC1 EOJ+3!
BDMSTP GETTIME*, START, START+2*, START+6, START+8*, AGIN*, TIME+4*, 1+12*, X3*, ASK+6*
, ZTM+2*, ZTM+6, ZTM+10, FLAT+3*, FLAT+13*, FLAT+14*, EOJ+2!
BDMTDTE TIME+1*, EOJ+2!
BDMUED EOJ+2!
DA FLAT+2!, FLAT+12!
DIC ASK+10*!
DIC("S" ASK+9*
DIC(0 ASK+10*
DIR START+3!, TIME+2!, 1+1!, FLAT+2!, FLAT+12!
DIR("A" START+3*, TIME+2*, 1+1*, FLAT+2*, FLAT+12*
DIR("B" START+3*, FLAT+12*
DIR(0 START+3*, TIME+2*, 1+1*, FLAT+2*, FLAT+12*
>> DIROUT TIME+3, 1+2
>> DIRUT START+3*, START+4, TIME+3, 1+2, FLAT+3, FLAT+13
DT TIME+1, ASKED+1
DTIME START2+5, ASK+3, ASK+4
>> DTOUT TIME+3, 1+2
>> DUOUT START+3
IO ZTM+1, TASK+1*, EOJ+1
IO("Q" START+7!
IO(0 TASK+1, EOJ+1
>> IOCPU QUE+2
IOF QUE+6
ION QUE+2
IOP TASK+1!
>> POP START+8, TASK+1
U ASKBD, ASKED, X3, ZTM+7, ZTM+10, QUE+2, FLAT+6
>> X START+1, ASKBD, ASKED, X3, ASK+3*, ASK+4*, ASK+6, ASK+7, ASK+8*, EPIREC+1*
, EPIREC+2*, EPIREC+3*, FLAT+4
>> Y START+5, TIME+1*, TIME+3, 1+2, 1+6, 1+8*, 1+9*, ASKBD, ASKED, X3+2*
, X3+3*, ASK+11, ASK+12, ASK+13, FLAT+5, FLAT+14
ZTCPU QUE+2*, QUE+5!, EOJ+2!
ZTDESC QUE+2*, QUE+5!
ZTDTH QUE+2*, QUE+5!
>> ZTIO QUE+2*
>> ZTQUEUED ZTM+13, ZTM+14
>> ZTREQ ZTM+13*
ZTRTN QUE+2*, QUE+5!
ZTSAVE QUE!, QUE+5!
ZTSAVE( QUE+1*
ZTSK QUE!, QUE+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All