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

Package: Registration

Routine: VADPT60


Information

VADPT60 ;ALB/MJK - Patient ID Utilities; 12 AUG 89 @1200

Source Information

Source file <VADPT60.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  DT^DICRW  (EN,EN1,IXALL)^DIK  
Registration 1 (1,2,ASK,BEG,END,TASK,WARN)^VADPT61  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 6 DG ELIG ID FORMAT RESET  DG ELIG ID RESET  DG ELIG PRI ELIG RESET  DG ELIG RESET ALL  DG ELIG RESET PATIENT  DGRPC  

Entry Points

Name Comments DBIA/ICR reference
PATQ
Q3
Q5
Q4
Q7
Q6
61
QUE3 ; -- determine which elig use format
QUE5
QUE4
QUE7
PAT ; -- entry point if DFN is defined
PRI ; -- set/reset pri elig id
FILE ;
41
1 ;;ID Format Enter/Edit
3 ;;Specific ID Format Reset (All Patients)
2 ;;Eligibility Code Enter/Edit
5 ;;Specific Eligibility ID Reset (All Patients)
4 ;;Primary Eligibility ID Reset (All Patients)
7 ;;Reset ALL ID's for ALL Patients
6 ;;Reset ALL ID's for a Patient
A ;
IX ;
EN
UPDT ; -- called by v5 clean-up
ALL ; -- resets all id's for all pt's
; if VALL not defined then only primary reset
31
51

External References

Name Field # of Occurrence
^DIC A+1, 3+1, 5+1, 6+1
YN^DICN 31, 4+1, 51, 61, 7+1
DT^DICRW EN
EN^DIK IX+1
EN1^DIK FILE+7
IXALL^DIK EN+3
1^VADPT61 1+1
2^VADPT61 2+1
ASK^VADPT61 PAT+1
BEG^VADPT61 QUE3+1, QUE4, QUE5, QUE7
END^VADPT61 QUE3+5, QUE4, QUE5+2, QUE7
TASK^VADPT61 31+3, 41, 51+3, 7+4
WARN^VADPT61 3+2, 5+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!,"Are you sure"
  • Line Location: 31+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' if you wish to reset id's for all patients with",!?5,"this format."
  • Line Location: 31+1
Function Call: WRITE
  • Prompt: !!,"Are you sure"
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' if you wish to set or reset the patient id for",!?5,"the id format associated with EACH patient's primary eligibility."
  • Line Location: 4+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !!?5,*7,"No id format specified for this eligibility."
  • Line Location: 5+2
Function Call: WRITE
  • Prompt: !!,"Are you sure"
  • Line Location: 51+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' if you wish to reset id's for all patients with",!?5,"this ELIGIBILITY."
  • Line Location: 51+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: !!,"Are you sure"
  • Line Location: 61+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' if you want to reset all the id's associated",!?5,"with this patient.",!!?5,"If the id format requires user input, you will be asked to enter the id."
  • Line Location: 61+1
Function Call: WRITE
  • Prompt: D
  • Condition for execution: '$D(VABATCH) !?5,"...",$P(^(0),U) D IX I '$D(VABATCH)
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: ?40,$P(^DPT(DFN,"E",VAELG,0),U,3)_" / "_$P(^(0),U,4)
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !!,"Are you sure"
  • Line Location: 7+1
Function Call: WRITE
  • Prompt: !?5,"Answer 'YES' if you want to reset all the id's associated",!?5,"with ALL patients."
  • Line Location: 7+2
Function Call: WRITE
  • Prompt: !,">>>PRIMARY ELIGIBILITY ID UPDATE..."
  • Line Location: UPDT+1
Routine Call
  • DIC
  • Line Location:
    • A+1
    • 3+1
    • 5+1
    • 6+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] QUE3+2, PAT+1, PRI+2
^DIC(8.2 - [#8.2] 5+2
^DOPT( EN+1*, EN+2*
^DPT - [#2] QUE3+4, QUE5+1, PAT+1, FILE+1*, FILE+2, FILE+3, FILE+4, FILE+5*, FILE+6, ALL+2
, PRI+2

Label References

Name Line Occurrences
3 31+2
31 31+1
4 4+2
41 UPDT+2
5 51+2
51 51+1
6 61+2
61 61+1
7 7+2
@( A+1
A EN+1, A+1
ALL QUE4, QUE7
FILE PRI+2
IX QUE3+4, QUE5+1, PAT+1, FILE+2, ALL+2
PATQ FILE+2
PRI ALL+2
Q3 3+1, 31+3
Q4 4+3, 41
Q5 5+1, 5+2, 51+3
Q6 6+1
Q7 7+3, 7+4

Naked Globals

Name Field # of Occurrence
^( QUE3+4, PAT+1, PRI+2
^(0 5+3, PAT+1, FILE+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 31*, 31+1, 31+2, 4+1*, 4+2, 4+3, 51*, 51+1, 51+2, 61*
, 61+1, 61+2, 7+1*, 7+2, 7+3
DA FILE+7*, FILE+8!, IX+1*, IX+2!
DA(1 FILE+7*, IX+1*
DFN QUE3+4*, Q3!, QUE5+1*, Q5!, 6+1*, PAT+1, Q6!, FILE+1, FILE+2, FILE+3
, FILE+4, FILE+5, FILE+6, FILE+7, IX+1, ALL+2*, ALL+3!, PRI+2
DIC A+1*, 3+1*!, 5+1*!, 6+1*!
DIC(0 A+1*, 3+1*, 5+1*, 6+1*
DIK EN*, FILE+7*, FILE+8!, IX+1*, IX+2!
DIK(1 FILE+7*, IX+1*
>> I EN+2*
U 5+2, PAT+1, FILE+1
>> VABATCH PAT+1
VAELG QUE3+2!*, QUE3+4*, Q3!, 5+1*, QUE5+1, Q5!, PAT+1*, Q6!, FILE+2, FILE+3
, FILE+4, FILE+5, FILE+6, FILE+7, IX+1, ALL+2*, ALL+3!, PRI+2*
VAELG( QUE3+2*, QUE3+4
VAFMT 3+1*, QUE3+2, Q3!
VALL QUE4!, QUE7*, Q7!, ALL+2
>> VAOPT 31+3*, 41*, 51+3*, 7+4*
VAPRI ALL+2, ALL+3!, PRI+1*, PRI+2*
>> X EN*, EN+1, EN+2, 3+2*, 5+3*
>> Y EN+2*, A+1, 3+1, 5+1, 6+1
>> Y(0 3+2, 5+2

Marked Items

Name Field # of Occurrence
$T(@I EN+2
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