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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DG53P621

Package: Registration

Routine: DG53P621


Information

DG53P621 ;BAY/JAT - Patient File reporting; 6/7/04 7:13pm ; 10/8/04 11:25am

Source Information

Source file <DG53P621.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA Fileman 2 C^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
ENTER ;
READFILE ;
PRINT ;
DEVICE() ;
REPORT ;
STORE ;

External References

Name Field # of Occurrence
C^%DTC REPORT+3
^%ZIS DEVICE+10
HOME^%ZIS DEVICE+17
^%ZISC ENTER+3
^%ZTLOAD DEVICE+15
$$S^%ZTLOAD HEAD+1
^DIR PRINT+16, HEAD+2
$$FMTE^XLFDT PRINT+3
$$NOW^XLFDT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Nbr records with abnormal SSN: "_COUNT
  • Line Location: READFILE+15
Function Call: WRITE
  • Prompt: !!,"*** COUNT OF BAD PATIENT RECORDS: ",COUNT," ***",!!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: @IOF,!,DGDDT,?15,"DG*5.3*621 List of abnormal SSNs",?70,"Page:",$J(DGPG,5),!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,?2,"DFN",?13,"ZERO NODE",!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HEAD+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+17
Routine Call
  • DIR
  • Line Location:
    • PRINT+16
    • HEAD+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] READFILE+3, READFILE+5, READFILE+7, READFILE+8, READFILE+9
^XTMP("DG53P621" REPORT+2!, REPORT+4*, STORE+2*, PRINT+10, PRINT+12

Label References

Name Line Occurrences
$$DEVICE REPORT+5
ENTER REPORT+5
HEAD PRINT+5, PRINT+11
PRINT READFILE+16
READFILE ENTER+2
STORE READFILE+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+7~, DEVICE+9*
COUNT READFILE+1~, READFILE+2*, READFILE+15, STORE+1*, PRINT+6, PRINT+8
DFN READFILE+1~, READFILE+2*, READFILE+3*, READFILE+5, READFILE+7, READFILE+8, READFILE+9, STORE+2, PRINT+9*, PRINT+10*
, PRINT+12, PRINT+13
DGDDT PRINT+2~, PRINT+3*, HEAD+5
DGPG PRINT+2~, PRINT+4*, PRINT+16, HEAD+2, HEAD+4*, HEAD+5
DGQUIT PRINT+2~, PRINT+4*, PRINT+10, PRINT+15, PRINT+16*, HEAD+1*, HEAD+2*, HEAD+3
DGSSN READFILE+1~, READFILE+11*, READFILE+12
DGZERO READFILE+1~, READFILE+9*, READFILE+10, READFILE+11, STORE+2, PRINT+12*, PRINT+13
DIR PRINT+16!, HEAD+2!
DIR(0 PRINT+16*, HEAD+2*
DT REPORT+3, REPORT+4
IO PRINT+1
IO("Q" DEVICE+12
IOF HEAD+5
IOP DEVICE+7~
IOSL PRINT+11
IOST PRINT+16, HEAD+2
OK DEVICE+7~, DEVICE+8*, DEVICE+11*, DEVICE+12, DEVICE+18*, DEVICE+19
POP DEVICE+7~, DEVICE+11
U READFILE+7, READFILE+10, READFILE+11
X REPORT+4, HEAD+5!*, HEAD+8*
X1 REPORT+1~, REPORT+3*
X2 REPORT+1~, REPORT+3*
>> Y PRINT+16, HEAD+2
ZTDESC DEVICE+13~, DEVICE+14*
>> ZTQUEUED ENTER+4, PRINT+15, PRINT+17, HEAD+1
ZTREQ ENTER+4*, DEVICE+13~, PRINT+17*
ZTRTN DEVICE+13~, DEVICE+14*
>> ZTSK DEVICE+16
ZTSKM DEVICE+13~
ZTSTOP DEVICE+13~, HEAD+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All