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

Package: Registration

Routine: DPTLK3


Information

DPTLK3 ;ALB/RMO - MAS Patient Look-up Check for Duplicates ; 22 JUN 87 1:00 pm

Source Information

Source file <DPTLK3.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 CLRMSG^DDS  YN^DICN  
Integrated Billing 1 $$INSUR^IBBAPI  
Registration 1 ^DPTDUP  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DPTLK  DPTLK2  

Entry Points

Name Comments DBIA/ICR reference
Q
EP2 ; -- Entry point 2
VAADV(DFN) ;Check if VA ADVANTAGE PLAN
ASKADD

External References

Name Field # of Occurrence
CLRMSG^DDS DPTLK3+2
YN^DICN ASKADD
^DPTDUP EP2+1
$$INSUR^IBBAPI VAADV+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,*7,"Unable to search for potential duplicates, Date of Birth and",!?3,"Social Security Number must be defined."
  • Line Location: DPTLK3+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EP2+1
Function Call: WRITE
  • Prompt: W
  • Condition for execution: '$D(DDS) !?3 W "...searching for potential duplicates" D ^DPTDUP I 'DPTD
  • Line Location: EP2+1
Function Call: WRITE
  • Prompt: !!?3,"No potential duplicates have been identified."
  • Line Location: EP2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EP2+2
Function Call: WRITE
  • Prompt:
  • Condition for execution: '$D(DDS) !?3 W *7,"The following patients have been identified as potential duplicates:",! F Y=0:0 S Y=$O(DPTD(Y)) Q:'Y
  • Line Location: EP2+2
Function Call: WRITE
  • Prompt: !?5,$P(^DPT(Y,0),U)
  • Line Location: EP2+2
Function Call: WRITE
  • Prompt: !!?6,"Enter 'YES' to add new patient, or 'NO' not to."
  • Line Location: ASKADD+0
Routine Call
  • DDS
  • Line Location:
    • DPTLK3+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EP2+2

Label References

Name Line Occurrences
ASKADD ASKADD
Q DPTLK3+3, EP2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKADD*
>> DDS DPTLK3+2, EP2+1, EP2+2
>> DDSHBX DPTLK3+2
>> DDXY DPTLK3+2
DFN VAADV~, VAADV+5
DGARRY VAADV+3~, VAADV+5
DGARRY("IBBAPI" VAADV+6, VAADV+7
DGINS VAADV+3~, VAADV+4*, VAADV+6*, VAADV+7
DGVAADV VAADV+3~, VAADV+4*, VAADV+6, VAADV+7*, VAADV+8
DOB EP2+1*, Q!
DPTD EP2+1, Q!
DPTD( EP2+2
>> DPTDFN DPTLK3+3*, EP2+1*, ASKADD*
>> DPTIDS( DPTLK3+3, EP2+1
DPTKD EP2+1*, Q!
DPTKS EP2+1*, Q!
DPTNM EP2+1*, Q!
>> DPTX DPTLK3+3, EP2+1, ASKADD
>> DX DPTLK3+2*
>> DY DPTLK3+2*
SSN EP2+1*, Q!
U EP2+2
>> Y EP2+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All