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

Package: Registration

Routine: VADPT61


Information

VADPT61 ;ALB/MJK - Patient ID Utilities (cont.); 12 AUG 89 @1200

Source Information

Source file <VADPT61.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTLOAD  $$NOW^XLFDT  
VA FileMan 2 ^DIC  ^DIE  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DG ELIG CODE ENTER/EDIT  DG ELIG ID FORMAT EDIT  VADPT60  

Entry Points

Name Comments DBIA/ICR reference
1 ;;ID Format Enter/Edit
Q1
2 ;;Eligibility Code Enter/Edit
Q2
ASK ;
WARN ; -- interaction warning
BEG ;
END ;
TASK ;
TASKQ
OPTS ; -- queue task list ;;opt#;description;vars to save

External References

Name Field # of Occurrence
^%ZTLOAD TASK+6
^DIC 1+1, 2+1
^DIE 1+2, 2+2, ASK+3
$$NOW^XLFDT BEG+1, END+1
^XMD END+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !!,*7,"User Input Needed for '",$P(^DIC(8,VAELG,0),U),"' id:"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!?5,"...",$P(^DIC(8,VAELG,0),U)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!?5,*7,"WARNING: User interaction usually is required for this format."
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: !!?5,"The resetting of ID formats can take many hours."
  • Line Location: TASK+1
Function Call: WRITE
  • Prompt: !?5,"It is suggested that it be run at off-peak hours,"
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: !?5,"perferably over a weekend.",!
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: !!,"Job has been queued. (Task #",ZTSK,")",!,"A MailMan message will be sent to you when the job has completed."
  • Line Location: TASK+7
Routine Call
  • DIC
  • Line Location:
    • 1+1
    • 2+1
Routine Call
  • DIE
  • Line Location:
    • 1+2
    • 2+2
    • ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(8 - [#8] Classic Fileman Calls
^DIC(8.2 - [#8.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" END+7, END+8
^DIC(8 - [#8] ASK+1, ASK+2, ASK+4, END+5
^DIC(8.2 - [#8.2] ASK+1, END+4

Label References

Name Line Occurrences
1 1+2
2 2+2
Q1 1+1
Q2 2+1

Naked Globals

Name Field # of Occurrence
^(0 ASK+1, END+4, END+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+10!
DA 1+2*, Q1!, 2+2*, Q2!, ASK+3*, ASK+5!
DA(1 ASK+3*
>> DFN ASK+3
DIC 1+1*!, 2+1*!
DIC("DR" 2+1*
DIC(0 1+1*, 2+1*
DIE 1+2*, Q1!, 2+2*, Q2!, ASK+3*, ASK+5!
DR 1+2*, Q1!, 2+2*, Q2!, ASK+3*, ASK+5!
DUZ END+3
>> I TASK+5*
L END+1*, END+6*, END+7*, END+8*, END+10!
U ASK+1, ASK+2, ASK+4, WARN+1, END+4, END+5
>> VAELG ASK+1, ASK+2, ASK+3, ASK+4, END+5
VAEND END+1*, END+8, END+10!
>> VAFMT END+4
VAOPT END+4, END+5, END+10!, TASK+6
VARS TASK+4*, TASK+5, TASKQ!
VASTART BEG+1*, END+7, END+10!
VATEXT END+10!
VATEXT( END+6*, END+7*, END+8*
X WARN+1, TASK+4*, TASK+6, TASKQ!
XMDUZ END+3*, END+10!
XMSUB END+3*, END+4*, END+5*, END+10!
XMTEXT END+3*, END+10!
XMY END+2!, END+10!
XMY( END+3*
Y 1+1, 1+2, Q1!, 2+1, 2+2, Q2!, ASK+5!, END+7*, END+8*, END+10!
, TASK+5*, TASKQ!
ZTDESC TASK+6*, TASKQ!
ZTIO TASK+6*, TASKQ!
ZTRTN TASK+6*, TASKQ!
ZTSAVE TASKQ!
ZTSAVE( TASK+5*
ZTSAVE("VAOPT" TASK+6*
ZTSK TASK+4!, TASK+7, TASKQ!

Marked Items

Name Field # of Occurrence
$T(OPTS+VAOPT END+3, TASK+4
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 |  Naked Globals |  Local Variables |  Marked Items  | All