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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AZZDACK

Package: Headquarters Dental

Routine: AZZDACK


Information

AZZDACK ; CHECK DATA FOR ALL REG PATIENTS AT SELECTED SITE;[ 01/02/90 1:50 PM ]

Source Information

Source file <AZZDACK.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient Registration 1 ^AGDATCK  
Kernel 1 ^%ZIS  
Uncategorized 1 ^%AUCLS  
Utilities 1 ^AUKVAR  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
HEADER2 ;
PROMPT ;
VARS ;
SCAN ;-----> BEGIN SCAN.
TOTALS ;
PROMPT1
START ;
HEADER1 ;
EXIT ;
PRINT ;
STORE ;
HEADER3 ;

External References

Name Field # of Occurrence
^%AUCLS START+1, HEADER1+1
^%ZIS TOTALS+2, PRINT+2
^AGDATCK SCAN+7
^AUKVAR START+1
^DIC START+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?6,"* * CHECK ALL ACTIVE PATIENTS FOR MISSING OR INVALID REG DATA * *"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!!!,"Select a Location for the patient records you wish to scan.",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: SCAN+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SCAN+5
Function Call: WRITE
  • Prompt: "X"
  • Line Location: STORE+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !!," ----------------------------------------------",?55,"-----------"
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !?5,"Total patients at ",AZZDA("SITE")
  • Line Location: TOTALS+7
Function Call: WRITE
  • Prompt: !?5,"with Missing or Invalid data: ",?55,$J(AZZDA("BAD"),10)
  • Line Location: TOTALS+8
Function Call: WRITE
  • Prompt: !!?5,"Total patients in this database"
  • Line Location: TOTALS+9
Function Call: WRITE
  • Prompt: !?5,"registered at ",AZZDA("SITE"),": ",?55,$J(AZZDA("HERE"),10)
  • Line Location: TOTALS+10
Function Call: WRITE
  • Prompt: !!?5,"Total patients in the database: ",?55,$J(AZZDA("ALL"),10)
  • Line Location: TOTALS+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+2
Function Call: WRITE
  • Prompt: "During the scanning processes the following symbols will be displayed:"
  • Line Location: HEADER1+1
Function Call: WRITE
  • Prompt: !!?3,"""X"" = Patients with missing/invalid data."
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !?3,"""."" = Patients registered with correct data."
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !?3,"""-"" = Patients in the database not registered at ",$E(AZZDA("SITE"),1,28)
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !!!!?6,"* * * SCANNING FOR PATIENTS WITH MISSING OR INVALID DATA * * *",!,?22,"AT ",AZZDA("SITE")
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: @IOF,!?8,"* * * PATIENTS WITH MISSING OR INVALID REQUIRED DATA * * *",!,?22,"AT ",AZZDA("SITE"),!!
  • Line Location: HEADER2+1
Function Call: WRITE
  • Prompt: @IOF,?6,"* * * STATISTICS ON PATIENTS WITH MISSING OR INVALID DATA * * *",!,?22,"AT ",AZZDA("SITE"),!!
  • Line Location: HEADER3+1
Routine Call
  • DIC
  • Line Location:
    • START+7
Routine Call
  • %ZIS
  • Line Location:
    • TOTALS+2
    • PRINT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" EXIT+1, TOTALS+12, PRINT+11
^AUPNPAT - [#9000001] SCAN+7, STORE+4, PRINT+6
^AZZDA START+1!, EXIT+2!, STORE+3*, STORE+4*, STORE+5*, PRINT+4, PRINT+5, PRINT+9
^DIC(4 - [#4] START+9
^DPT - [#2] SCAN+2, SCAN+5, STORE+3

Label References

Name Line Occurrences
HEADER1 SCAN+1
HEADER2 PRINT+3, PRINT+4
HEADER3 TOTALS+3, TOTALS+4, TOTALS+6
PRINT SCAN+10
PROMPT START+10, SCAN+10, TOTALS+4, TOTALS+6, PRINT+4, PRINT+10
PROMPT1 SCAN+9, HEADER1+5
STORE SCAN+7
TOTALS SCAN+9
VARS SCAN+1

Naked Globals

Name Field # of Occurrence
^( SCAN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS TOTALS+2*, PRINT+2*
>> %ZIS("A" TOTALS+2*, PRINT+2*
AG EXIT+2!
AG( TOTALS+4, PRINT+9
AG("DTOT" SCAN+7
AG("ER" STORE+5
AG(1 VARS+2*
AG(10 VARS+4*
AG(11 VARS+4*
AG(12 VARS+4*
AG(2 VARS+2*
AG(3 VARS+2*
AG(4 VARS+2*
AG(5 VARS+2*
AG(6 VARS+3*
AG(7 VARS+3*
AG(8 VARS+3*
AG(9 VARS+3*
AZZDA EXIT+2!
AZZDA("AG" STORE+5*, TOTALS+4, VARS+5*
AZZDA("ALL" START+8*, SCAN+2*, SCAN+3, TOTALS+11
AZZDA("BAD" START+8*, STORE+2*, TOTALS+8
AZZDA("HERE" START+8*, SCAN+7*, TOTALS+10
AZZDA("SITE" START+9*, SCAN+3, TOTALS+7, TOTALS+10, PRINT+7, HEADER1+4, HEADER1+6, HEADER2+1, HEADER3+1
>> DFN START+8*, SCAN+2*, SCAN+5, SCAN+7, STORE+3, STORE+4, STORE+5, PRINT+3*, PRINT+4*, PRINT+5
, PRINT+6, PRINT+9
>> DIC START+6*
>> DIC("A" START+6*
>> DIC(0 START+6*
DTIME PROMPT1
DUZ(2 START+8*, START+9, SCAN+7, STORE+4, PRINT+6
I EXIT+2!, STORE+5*, TOTALS+4*, PRINT+9*, VARS+5*
IO TOTALS+2, PRINT+2
IOF PRINT+11, HEADER2+1, HEADER3+1
IOSL START+5*, TOTALS+4, TOTALS+6, PRINT+4, PROMPT+1
>> POP TOTALS+2, PRINT+2
QQ START+10, SCAN+1, SCAN+9, SCAN+10, EXIT+2!, TOTALS+4, TOTALS+6, PRINT+4, PRINT+10, PROMPT+1*
, PROMPT1*, HEADER1+5
U START+8, START+9, START+10, SCAN+7, SCAN+9, SCAN+10, STORE+4, STORE+5, TOTALS+4, TOTALS+6
, PRINT+4, PRINT+5, PRINT+9, PRINT+10
X EXIT+2!
>> Y START+7, START+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All