Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(8 - [#8] Classic Fileman Calls
^DIC(8.2 - [#8.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call