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

Package: Registration

Routine: DGYMF31A


Information

DGYMF31A ;ALB/CMM FIND DANGLING PT IN ^DPT TO ^DIC(31 ;12/30/94

Source Information

Source file <DGYMF31A.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIK  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Registration 1 EXIT^DGYMF31  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGYMF31  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
HEAD1 ;
LTDQ
DRIVE ;
LTD(DFN) ; Find Last Treatment Date
; Input: DFN - pointer to the patient in file #2
; Output: LTD - Last Treatment Date (really last date seen at facility)
KILL ;Delete pointer from Patient file
REPORT ;Display information gathered.
FOUND ;
DATA2 ;
DATA ;
LOOP ;looping through patient file
DIS ;include 'good' disabilities in report

External References

Name Field # of Occurrence
EXIT^DGYMF31 DRIVE+8
^DIK KILL+1
^DIR HEAD+2
$$FMTE^XLFDT DATA+3, DATA+4, DATA+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No bad pointers."
  • Line Location: DRIVE+4
Function Call: WRITE
  • Prompt: !!,"TOTAL PATIENTS WITH DANGLING POINTER(S) = ",NXT
  • Line Location: DRIVE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !!,"Patients with bad pointers in the Rated Disability field ",?100,"PAGE ",PAGE,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,?5,"Patient Name",?35,"SSN",?50,"Date of Birth",?70,"Last Date of Contact"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?100,"Date of Death"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,?10,"Valid Disabilities on file"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,$P(NODE,"^"),?31,SSN,?50,$$FMTE^XLFDT($P(NODE,"^",3)),?70,LAST,?100,DEAD
  • Line Location: DATA+5
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("ATID3" LTD+8
^DIC(31 - [#31] LOOP+7, DIS+4
^DPT - [#2] LOOP+2, LOOP+5, LOOP+6, FOUND+2, FOUND+3, FOUND+4, FOUND+5, DIS+2, DIS+3, LTD+6
, LTD+10, LTD+12
^SDV("ADT" LTD+14
^TMP($J DRIVE+3*, DRIVE+4, DRIVE+6, LOOP+1!, FOUND+3, FOUND+4*, FOUND+5*, DIS+4*, REPORT+2, REPORT+3
, DATA+1, DATA2+2, DATA2+6

Label References

Name Line Occurrences
$$LTD FOUND+1
DATA REPORT+5, DATA2+5
DATA2 REPORT+6
DIS LOOP+8
FOUND LOOP+7
HEAD DRIVE+6, REPORT+4, DATA2+3
HEAD1 DRIVE+4
KILL LOOP+7
LOOP DRIVE+2
LTDQ LTD+6
REPORT DRIVE+5, DRIVE+6

Naked Globals

Name Field # of Occurrence
^( LTD+12
^(0 LTD+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANY LOOP+3*, LOOP+7*, LOOP+8
>> BADDEL LOOP+7
>> CNT LOOP+3*, LOOP+5*, LOOP+6, KILL+1
>> CPT LOOP+1*, LOOP+3*, LOOP+4
DA KILL+1*!
DA(1 KILL+1*
>> DEAD FOUND+2*, FOUND+3, FOUND+4, FOUND+5, DATA+3*, DATA+5
DFN LOOP+1*, LOOP+2*, LOOP+5, LOOP+6, FOUND+1, FOUND+2, FOUND+3, FOUND+4, FOUND+5, DIS+2
, DIS+3, LTD~, LTD+6, LTD+8, LTD+10, LTD+12, LTD+14, KILL+1
DIK KILL+1*!
>> DIR(0 HEAD+2*
DIRUT HEAD+2!
DT LTD+6, LTD+8, LTD+12
DTOUT HEAD+2!
DUOUT HEAD+2!
>> END DRIVE+5, DRIVE+6, DRIVE+7, HEAD+1*, HEAD+2*, REPORT+1*, REPORT+2, REPORT+3, REPORT+4, DATA2+2
, DATA2+3, DATA2+4
>> INDEX DRIVE+3*, DRIVE+6*, HEAD1+4, REPORT+2, REPORT+3
>> INVALID LOOP+8, HEAD1+5, REPORT+6
IO DRIVE+1
IOF HEAD1+1
IOSL REPORT+4, DATA2+3
IOST LOOP+4, HEAD+2
>> LAST FOUND+1*, FOUND+4, DATA+4*, DATA+5
>> LP REPORT+1*, REPORT+3*, DATA+1, DATA2+2, DATA2+6
LTD LTD+4~, LTD+6*, LTD+8*, LTD+10*, LTD+12*, LTD+14*, LTDQ
NM REPORT+1~*, REPORT+2*, REPORT+3
NODE DATA+1~*, DATA+2, DATA+3, DATA+4, DATA+5
NX DATA2+3*, DATA2+5!
>> NXT DRIVE+3, DRIVE+7, LOOP+1*, FOUND+4*, FOUND+5, DIS+4
>> PAGE DRIVE+1*, HEAD1+2, HEAD1+7*
PTR LOOP+6*, LOOP+7, DIS+1~, DIS+3*, DIS+4
>> SSN DATA+2*, DATA+5
TCT DIS+1~*, DIS+4*, DATA2+1~*, DATA2+2*, DATA2+6
TLP DIS+1~*, DIS+2*, DIS+3
X HEAD+2!, LTD+4~, LTD+10*, LTD+12*, LTD+14*
Y HEAD+2!
>> ZTSK DRIVE+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All