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

Package: Local Area Programs

Routine: AZHZCL


Information

AZHZCL ;DSD/PDW - CLEAN PATIENT DATA BASE ; AUGUST 14, 1992

Source Information

Source file <AZHZCL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Local Area Programs 4 (,AZHZPG,EXIT,INIT)^AZHZCL1  ^AZHZCLI  SAV^AZHZCLN  ^AZHZCLV  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Local Area Programs 3 AZHZCL1  AZHZCLAG  AZHZCLN  

Entry Points

Name Comments DBIA/ICR reference
DOIT
PULL ;ENTRY POINT: set data back to previous state
SCDFN ;ENTRY POINT scan DFN for data errors, VA and IHS checks
DQPRT ;ENTRY POINT FOR TASKING
ESCDFN
DQSET ;ENTRY POINT FOR TASKING
DQSCAN ;ENTRY POINT FOR TASKING
INIT ;EP
DQPULL ;ENTRY POINT FOR TASKING
Q
PRT ;ENTRY POINT: print report of edits to be performed
S ;
SET ; ENTRY POINT: perform sets
KILL ;ENTRY POINT kill ^AZHZTEMP
IEN
BINDEX
EXIT ;EP
AZHZPG ;EP
EPRT

External References

Name Field # of Occurrence
^AZHZCL1 DOIT
AZHZPG^AZHZCL1 AZHZPG+1
EXIT^AZHZCL1 EXIT+1
INIT^AZHZCL1 INIT+1
^AZHZCLI SCDFN+4
SAV^AZHZCLN BINDEX+2
^AZHZCLV SCDFN+3
YN^DICN Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Site and Area not specified for facility <Fatal Error>",!
  • Line Location: S+5
Function Call: WRITE
  • Prompt: !,*7,"< SCAN has already been Completed >",!
  • Line Location: S+6
Function Call: WRITE
  • Prompt: "Each dot =100 patients:",!,"Running for ",AZHZSITE,":",$P(^AUTTLOC(AZHZSITE,0),"^",2)," Area and Service : ",AZHZ("LOC"),!
  • Line Location: DQSCAN+2
Function Call: WRITE
  • Prompt: !!,AZHZZ("I")," Patient Names Scanned with ",AZHZCC," set for error corrections"
  • Line Location: BINDEX+1
Function Call: WRITE
  • Prompt: *7,!,"<NO Compiled Edits Global Present>",!
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: !,"SORRY ... ",^AZHZTEMP," NEEDS TO BE COMPLETED FIRST",!
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !,"< EDITS have already been Completed >",!,*7
  • Line Location: SET+6
Function Call: WRITE
  • Prompt: !,"There are only dots printed for this option",!
  • Line Location: SET+7
Function Call: WRITE
  • Prompt: !,"EACH DOT =100 PATIENTS SET. THERE ARE ",^AZHZTEMP(0)," PATIENTS TO PROCESS",!,"STARTING AT "
  • Line Location: DQSET+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DQSET+2
Function Call: WRITE
  • Prompt: *7,!,"<NO Compiled Edits Global Present>",!
  • Line Location: PULL+1
Function Call: WRITE
  • Prompt: !,"SORRY ... ",^AZHZTEMP," NEEDS TO BE COMPLETED FIRST",!
  • Line Location: PULL+2
Function Call: WRITE
  • Prompt: !,"This will put data fields back to their incorrect forms.",!,"Are you sure you want to proceed ? "
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !,"EACH DOT =100 PATIENTS SET. THERE ARE ",^AZHZTEMP(0)," PATIENTS TO PROCESS",!,"STARTING AT "
  • Line Location: DQPULL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DQPULL+2
Function Call: WRITE
  • Prompt: *7,!,"<NO Compiled Edits Global Present>",!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: *7,!,"< Sorry ",^AZHZTEMP," needs to be completed first >",!,*7
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,*7,"< SCAN must be completed First > ",!
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !,"THERE ARE ",^AZHZTEMP(0)," PATIENTS TO PRINT",!,"STARTING AT "
  • Line Location: DQPRT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DQPRT+2
Function Call: WRITE
  • Prompt: !," Patient Name : DFN",!," Old Data to be Corrected : New Data Corrections ",!!
  • Line Location: DQPRT+3
Function Call: WRITE
  • Prompt: *7,!,"<NO Compiled Edits Global Present>",!
  • Line Location: KILL+1
Function Call: WRITE
  • Prompt: !,*7,"<AGPATCH HAS NOT BEEN SET YET>",!,*7
  • Line Location: KILL+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] SCDFN+4
^AUTTLOC - [#9999999.06] S+4, DQSCAN+2
^AUTTSITE(1 S+3, S+4, SET+3
^AZHZTEMP DQSCAN+1*, BINDEX+2*, SET+4, SET+5, DQSET+1*, DQSET+3*, PULL+1, PULL+2, DQPULL+1*, DQPULL+3*!
, PRT+3, PRT+4, KILL+1, KILL+3!, BINDEX, SCDFN+5*
^AZHZTEMP("A" S+6, BINDEX+2*, SET+6, DQSET+3*, PRT+5, DQPRT+4*, KILL+2
^AZHZTEMP("B" BINDEX!*
^AZHZTEMP("LDFN" DQSCAN+3, IEN*, BINDEX+2!, DQSET+3!
^AZHZTEMP("P" DQSET+1!
^AZHZTEMP(0 BINDEX+1*, DQSET+2, DQPULL+2, DQPRT+2
^DPT - [#2] SCDFN+1, SCDFN+2, SCDFN+5
^DPT("B" IEN, SCDFN+1!

Label References

Name Line Occurrences
DOIT DQSET+2, DQPULL+2, DQPRT+4
EXIT S+6, BINDEX+3, SET+5, SET+6, DQSET+5, PULL+2, Q+1, DQPULL+3, PRT+4, PRT+5
, EPRT
INIT S+8, SET+9, Q+3, PRT+7
Q Q+2
SCDFN IEN

Naked Globals

Name Field # of Occurrence
^( BINDEX
^("LDFN" DQSCAN+3
^(0 S+3, S+4, SET+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q*, Q+1, Q+2
>> AZHZ("B" DQSCAN+3*, IEN*, SCDFN+1
>> AZHZ("L" S+4*
>> AZHZ("LOC" S+4*, S+5, DQSCAN+2
>> AZHZCC BINDEX*, BINDEX+1
>> AZHZHDR S+7*, SET+8*, Q+3*, PRT+6*
>> AZHZHIT S+7*, SET+8*, Q+3*, PRT+6*
>> AZHZRTN S+7*, SET+8*, Q+3*, PRT+6*
>> AZHZSET SET+8*, Q+3*, PRT+6*
>> AZHZSITE S+3*, DQSCAN+2, SET+3*
>> AZHZZ("I" IEN*, BINDEX+1
>> DFN IEN*, BINDEX*, SCDFN+1, SCDFN+2, SCDFN+4, SCDFN+5, DQSET+1*, DQPULL+1*, DQPRT+1*
>> DFOUT S+1*, S+2, S+5*, S+8, IEN, BINDEX+2, SET+1*, SET+2, SET+9, DQSET+3
, Q+3, PRT+1*, PRT+2, PRT+7
>> DUOUT S+1*, S+2, S+5*, S+8, IEN, BINDEX+2, SET+1*, SET+2, SET+9, DQSET+3
, Q+1*, Q+3, PRT+1*, PRT+2, PRT+7
U S+3*, S+4, SCDFN+2, SCDFN+5, SET+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All