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

Package: Asthma Tracking System

Routine: BATBLG


Information

BATBLG ; IHS/CMI/LAB - ;

Source Information

Source file <BATBLG.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 3 ^DIC  FILE^DICN  ^DIR  
IHS VA Utilities 2 ^XBFMK  EN^XBVK  
IHS Patient 1 ($$AGE,$$DOD)^AUPNPAT  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
PCC Medical Query 1 ^AMQQGTX0  
Patient Care Component Reports 1 $$START1^APCLDF  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ;EP
PROCESS ;
EOJ ;
AGE ;Age Screening
AGER ;Age Screening
AST2(P,B,E) ;EP - return date of last asthma diagnosis
COM ;

External References

Name Field # of Occurrence
^AMQQGTX0 COM+11
$$START1^APCLDF AST2+5
$$AGE^AUPNPAT PROCESS+10
$$DOD^AUPNPAT PROCESS+13
^DIC COM+7, COM+10
FILE^DICN PROCESS+18
^DIR BATBLG+8, COM+2, AGE+4, AGER+2, PROCESS+4, PAUSE+1
^XBFMK PROCESS+16
EN^XBVK EOJ+2
$$FMADD^XLFDT PROCESS+3
$$FMTE^XLFDT PROCESS+3, PROCESS+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to initially populate your register with a pre-defined",!,"set of patients. If you continue with this option your patient file will"
  • Line Location: BATBLG+5
Function Call: WRITE
  • Prompt: !,"be scanned and all patients within a [user defined] age range living in",!,"[user defined] community with at least two asthma visits (POV with",!,"ICD-9 codes 493.00-493.99) in the past year will be automatically added to the"
  • Line Location: BATBLG+6
Function Call: WRITE
  • Prompt: !,"register with a status of Unreviewed.",!!
  • Line Location: BATBLG+7
Function Call: WRITE
  • Prompt: !!,"Patients from all communities will be included in the report.",!
  • Line Location: COM+4
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: COM+10
Function Call: WRITE
  • Prompt: !
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AGER+1
Function Call: WRITE
  • Prompt: !!,"No age range entered."
  • Line Location: AGER+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20."
  • Line Location: AGER+4
Function Call: WRITE
  • Prompt: !!,"Please be patient while I populate the asthma register, this could take",!,"anywhere from 10 minutes to an hour depending on the size of your patient",!,"database.",!
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !,"Patient ",$P(^DPT(BATDFN,0),U)," already on Register.",!
  • Line Location: PROCESS+17
Function Call: WRITE
  • Prompt: !,"error uploading patient dfn ",BATDFN,!
  • Line Location: PROCESS+19
Function Call: WRITE
  • Prompt: !!,BATCNT," patients were added to the asthma register."
  • Line Location: PROCESS+22
Routine Call
  • DIC
  • Line Location:
    • COM+7
    • COM+10
Routine Call
  • DIR
  • Line Location:
    • BATBLG+8
    • COM+2
    • AGE+4
    • AGER+2
    • PROCESS+4
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(5 - [#9009075] Classic Fileman Calls
^BATREG - [#90181.01] Classic Fileman Calls
^AUTTCOM - [#9999999.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] PROCESS+14
^AUTTCOM - [#9999999.05] COM+9
^BATREG - [#90181.01] PROCESS+17
^DPT - [#2] PROCESS+8, PROCESS+9, PROCESS+17

Label References

Name Line Occurrences
$$AST2 PROCESS+15
AGE COM+4, COM+5, AGER+3
AGER AGER+4
COM COM+5, COM+12, COM+13, AGE+5
EOJ BATBLG+9, BATBLG+10, COM+3, PROCESS+5, PROCESS+6
PAUSE PROCESS+23
PROCESS AGE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
B AST2~, AST2+5
BATAGE AGE+1!, PROCESS+10*, PROCESS+11, PROCESS+12
BATAGET AGE+1!, AGER+5*, PROCESS+11, PROCESS+12
>> BATB PROCESS+3*, PROCESS+15
>> BATCNT PROCESS+1*, PROCESS+20*, PROCESS+21, PROCESS+22
BATCOMM COM+1!, COM+5, COM+6!, COM+10!, COM+12, COM+13!, PROCESS+14
BATCOMM( COM+9*, PROCESS+14
BATCOMM("*" COM+13
>> BATDFN PROCESS+8*, PROCESS+9, PROCESS+10, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+17, PROCESS+18, PROCESS+19
>> BATE PROCESS+7*, PROCESS+15
>> BATERR COM+10*
BATX AST2+2~, AST2+3!
BATX(2 AST2+6
BATY AST2+2~, AST2+4*, AST2+5
>> C PROCESS+14*
DA BATBLG+8!, COM+2!, COM+10!, PROCESS+4!
DD PROCESS+18!
DIADD PROCESS+18*!
DIC COM+7*!, COM+10*!, PROCESS+18*!
DIC("A" COM+7*
DIC("DR" PROCESS+18*
DIC("S" COM+10*
DIC(0 COM+7*, COM+10*, PROCESS+18*
DINUM PROCESS+18*!
DIR BATBLG+8!, COM+2!, AGE+4!, PROCESS+4!, EOJ+1!, PAUSE+1!
DIR("?" AGE+3*
DIR("A" BATBLG+8*, COM+2*, AGE+2*, AGER+2*, PROCESS+4*, PAUSE+1*
DIR("B" BATBLG+8*, COM+2*, AGE+2*, PROCESS+4*
DIR(0 BATBLG+8*, COM+2*, AGE+2*, AGER+2*, PROCESS+4*, PAUSE+1*
>> DIRUT BATBLG+9, COM+3, AGE+5, PROCESS+5, PAUSE+1*
DLAYGO PROCESS+18*!
DO PROCESS+18!
DT PROCESS+3, PROCESS+7
>> DUOUT PAUSE+1
E AST2~, AST2+5
I AST2+2~
IOF BATBLG+4
P AST2~, AST2+1, AST2+5
Q AST2+2~, AST2+5*
S AST2+2~, AST2+5*
U COM+9, PROCESS+9, PROCESS+14, PROCESS+17
>> X COM+10*, PROCESS+18*
>> Y BATBLG+10, COM+4, COM+5, COM+8, COM+9, COM+10, COM+11, AGE+6, AGER+3, AGER+4
, AGER+5, PROCESS+6, PROCESS+19
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All