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

Package: Asthma Tracking System

Routine: BATREG


Information

BATREG ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED ;

Source Information

Source file <BATREG.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 4 $$VAL^XBDIQ1  ^XBFMK  EN^XBNEW  EN^XBVK  
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Asthma Tracking System 1 ($$CTR,$$LASTAV,$$LASTSEV)^BATU  
IHS Patient 1 ($$AGE,$$DOB,$$HRN)^AUPNPAT  
MailMan 1 ^XMB  
Patient Care Component Reports 1 $$START1^APCLDF  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient 1 AUPNVXRF  

Entry Points

Name Comments DBIA/ICR reference
A ;EP;add/edit register patient
FIRSTAP(P,VIEN,VSIT) ;
PAUSE ;EP
CONT ;
TEMP ;get template
EP(BATDFN,BATVIEN,BATVSIT) ;EP;entry point from APCD AST templates
AI ;EP - update status only
UPLOAD ;EP - called from option to upload patients from search template
EP1 ;
EPADD ;
EXIT ;
UPL2 ;process uploading
UPL1
WSTAT ;
SITE ;EP - update site parameters

External References

Name Field # of Occurrence
$$START1^APCLDF FIRSTAP+7
$$AGE^AUPNPAT EPADD+2, EPADD+3
$$DOB^AUPNPAT EPADD+9
$$HRN^AUPNPAT EPADD+9
$$CTR^BATU A+3, AI+3, UPL1+1, SITE+1
$$LASTAV^BATU EP1+8
$$LASTSEV^BATU EPADD+9
^DIC A+5, AI+5, TEMP+2, SITE+2
FILE^DICN EPADD+5, UPL2+5
^DIE A+9, AI+9, EP1+11, SITE+4
^DIR A+10, WSTAT+3, CONT+3, PAUSE+1
$$VAL^XBDIQ1 EPADD+9
^XBFMK EXIT+2, UPL2+3, SITE+3, SITE+5
EN^XBNEW EP+2
EN^XBVK EXIT+1
^XMB EPADD+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR^BATU("Update Asthma Register Data")
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !!,"This option is used to either Add a new patient to the Asthma register or to",!,"update an existing patient.",!!
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !
  • Line Location: A+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !!,$$CTR^BATU("Update Asthma Register Data")
  • Line Location: AI+3
Function Call: WRITE
  • Prompt: !!,"This option is used to update the STATUS field of a patient in the register",!
  • Line Location: AI+4
Function Call: WRITE
  • Prompt: !
  • Line Location: AI+8
Function Call: WRITE
  • Prompt: !!,"Unable to update ASTHMA REGISTER. Notify Site Manager.",!
  • Line Location: EP1+12
Function Call: WRITE
  • Prompt: !!,$$CTR^BATU("Upload Patients into Asthma Register from Template",80)
  • Line Location: UPL1+1
Function Call: WRITE
  • Prompt: !!,"This option is used to upload a group of patients from a template into the ",!,"Asthma Register. You should have created a template using a utility such as",!,"QMAN.",!!
  • Line Location: UPL1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TEMP+2
Function Call: WRITE
  • Prompt: !!,"What status should be assigned to the patients when they are uploaded.",!
  • Line Location: WSTAT+2
Function Call: WRITE
  • Prompt: !!,"A total of ",C," patients will be uploaded with a status of ",BATSTAT(0),".",!
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: UPL2+1
Function Call: WRITE
  • Prompt: !,"Patient ",$P(^DPT(BATDFN,0),U)," already on Register.",!
  • Line Location: UPL2+4
Function Call: WRITE
  • Prompt: !,"error uploading patient dfn ",BATDFN,!
  • Line Location: UPL2+6
Function Call: WRITE
  • Prompt: !!,"A total of ",BATCNT," patients were uploaded into the Asthma Register.",!
  • Line Location: UPL2+10
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: SITE+1
Function Call: WRITE
  • Prompt: !!,$$CTR^BATU("Update Site Parameters"),!
  • Line Location: SITE+1
Routine Call
  • DIE
  • Line Location:
    • A+9
    • AI+9
    • EP1+11
    • SITE+4
Routine Call
  • DIC
  • Line Location:
    • A+5
    • AI+5
    • TEMP+2
    • SITE+2
Routine Call
  • DIR
  • Line Location:
    • A+10
    • WSTAT+3
    • CONT+3
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BATREG - [#90181.01] Classic Fileman Calls
^BATSITE - [#90181.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BATREG - [#90181.01] EP1+6, EP1+9, UPL2+4
^BATSITE - [#90181.05] EP1+2, EPADD+2, EPADD+3, EPADD+4
^DIBT( CONT+1, UPL2+2
^DIC(4 - [#4] SITE+2
^DPT - [#2] EPADD+9, UPL2+4

Label References

Name Line Occurrences
$$FIRSTAP EPADD+4
A A+13
EPADD EP1+6
EXIT A+6, A+11, A+12, AI+6, AI+10, EP1+6, UPL1, TEMP+3, CONT+4, CONT+5
, UPL2+12
PAUSE UPL2+11
UPL1 WSTAT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BATCNT UPL2+2*, UPL2+7*, UPL2+8, UPL2+10
BATDFN EP~, EP+1, EP1+6, EP1+8, EP1+9, EP1+11, EPADD+2, EPADD+3, EPADD+4, EPADD+5
, EPADD+9, UPL2+2*, UPL2+4, UPL2+5, UPL2+6
>> BATDUZ EPADD+10*, EPADD+11
>> BATQUIT EP1+3*, EP1+6, EPADD+2*, EPADD+3*, EPADD+4*, EPADD+6*
>> BATSTAT EP1+9*, EP1+10*, EP1+11, WSTAT+1*, WSTAT+5*, UPL2+5
>> BATSTAT(0 WSTAT+5*, CONT+2
>> BATTEMP TEMP+1*, TEMP+4*, CONT+1, UPL2+2
BATVIEN EP~, EPADD+4
BATVSIT EP~, EPADD+4
>> BATVST EP1+8*, EP1+11
BATX FIRSTAP+4~, FIRSTAP+5!
BATX(1 FIRSTAP+9
BATY FIRSTAP+4~, FIRSTAP+6*, FIRSTAP+7
>> C CONT+1*, CONT+2
DA A+9*, A+10!, AI+9*, EP1+11*, TEMP+2!, WSTAT+3!, CONT+3!, SITE+4*
DD EPADD+5!, UPL2+5!
>> DFN A+7*, A+9, AI+7*, AI+9
DIADD EXIT+3!, EPADD+5*!, UPL2+5*!
DIC A+1!, A+5*, AI+1!, AI+5*, EPADD+5*, TEMP+2*!, UPL2+5*!, SITE+2!*
DIC("A" TEMP+2*
DIC("B" SITE+2*
DIC("DR" EPADD+5*, UPL2+5*
DIC("S" TEMP+2*
DIC(0 A+5*, AI+5*, EPADD+5*, TEMP+2*, UPL2+5*, SITE+2*
DICR TEMP+2!
>> DIE A+9*, AI+9*, EP1+11*, SITE+4*
DINUM EXIT+3!, EPADD+5*!, UPL2+5*!
DIR A+10!, WSTAT+3!, CONT+3!, PAUSE+1!
DIR("A" A+10*, WSTAT+3*, CONT+3*, PAUSE+1*
DIR("B" A+10*, WSTAT+3*, CONT+3*
DIR(0 A+10*, WSTAT+3*, CONT+3*, PAUSE+1*
>> DIRUT A+11, WSTAT+4, CONT+4, PAUSE+1*
DLAYGO EXIT+3!, EPADD+5*!, UPL2+5*!
DO EPADD+5!, UPL2+5!
DR A+9*, AI+9*, EP1+11*, TEMP+2!, SITE+4*
>> DUOUT PAUSE+1
DUZ EPADD+10*, EPADD+11*
DUZ(2 EP1+2, EPADD+2, EPADD+3, EPADD+4, EPADD+9, SITE+2
E FIRSTAP+4~, FIRSTAP+7*, FIRSTAP+8
I FIRSTAP+4~
IOF A+2, AI+2, UPLOAD+1, SITE+1
P FIRSTAP~, FIRSTAP+1, FIRSTAP+7
S FIRSTAP+4~, FIRSTAP+7*
U EP1+2, EP1+9, EPADD+2, EPADD+3, EPADD+4, EPADD+9, UPL2+4, SITE+2
VIEN FIRSTAP~, FIRSTAP+3
VSIT FIRSTAP~, FIRSTAP+2
>> X EPADD+5*, CONT+1*, UPL2+5*
XMB EPADD+8!, EPADD+10*, EPADD+11!
XMB(1 EPADD+9*
XMB(2 EPADD+9*
XMB(3 EPADD+9*
XMB(4 EPADD+9*
XMB(5 EPADD+9*
>> Y A+6, A+7, A+12, AI+6, AI+7, EP1+12, EPADD+6, TEMP+3, TEMP+4, WSTAT+5
, CONT+5, UPL2+6, SITE+3, SITE+4
>> Y(0 WSTAT+5
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