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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DG53P641

Package: Registration

Routine: DG53P641


Information

DG53P641 ;BAY/JAT - Patient File Updat; 6/7/04 7:13pm ; 1/4/05 5:06pm

Source Information

Source file <DG53P641.m>

Call Graph

Call Graph Total: 7

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

Entry Points

Name Comments DBIA/ICR reference
HEAD ;
UPDATE(DGENSKIP) ;
ENTER ;
UPDR ;
PRINT ;
CLEANUP ;This entry point will do the update.
DEVICE() ;
REPORT ;This entry point was provided for testing, so that before

External References

Name Field # of Occurrence
C^%DTC CLEANUP+8, REPORT+13
^%ZIS DEVICE+10
HOME^%ZIS DEVICE+18
^%ZISC ENTER+3
^%ZTLOAD DEVICE+16
$$S^%ZTLOAD HEAD+1
EN1^DIK UPDR+6
^DIR PRINT+16, HEAD+2
$$FMTE^XLFDT PRINT+3
$$NOW^XLFDT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This is a one-time update of the Patient File."
  • Line Location: CLEANUP+4
Function Call: WRITE
  • Prompt: !,"It will set the 'ATEST' cross-reference as needed."
  • Line Location: CLEANUP+5
Function Call: WRITE
  • Prompt: !,"This is a preliminary report by DFN of the Patient file"
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: !,"records which would be affected by the update."
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: !!,"*** COUNT OF BAD PATIENT RECORDS"_$S(DGENSKIP:"",1:" UPDATED")_": ",COUNT," ***",!!
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: @IOF,!,DGDDT,?15,"DG*5.3*641 Patient File Update Utility",?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",?15,"SSN",!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HEAD+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+18
Routine Call
  • DIR
  • Line Location:
    • PRINT+16
    • HEAD+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] UPDATE+8, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14
^DPT("ATEST" UPDATE+17
^XTMP("DG53P641" CLEANUP+7!, CLEANUP+9*, REPORT+12!, REPORT+14*, UPDR+2*, PRINT+10, PRINT+12

Label References

Name Line Occurrences
$$DEVICE CLEANUP+10, REPORT+15
ENTER CLEANUP+10, REPORT+15
HEAD PRINT+5, PRINT+11
PRINT UPDATE+20
UPDATE ENTER+2
UPDR UPDATE+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+7~, DEVICE+9*
COUNT UPDATE+6~, UPDATE+7*, UPDR+1*, PRINT+6, PRINT+8
DA UPDR+4~, UPDR+5*
DFN UPDATE+6~, UPDATE+7*, UPDATE+8*, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+17, UPDR+2, UPDR+5
, PRINT+9*, PRINT+10*, PRINT+12, PRINT+13
DGDDT PRINT+2~, PRINT+3*, HEAD+5
DGENSKIP CLEANUP+2~, CLEANUP+3*, REPORT+7~, REPORT+8*, ENTER+2, ENTER+3, DEVICE+14, UPDATE~, UPDR+3, PRINT+8
DGERR UPDATE+6~
DGFDA UPDATE+6~
DGFLG UPDATE+6~
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
DGS UPDATE+6~
DGSSN UPDATE+6~, UPDATE+14*, UPDATE+15, UPDATE+16, UPDR+2, PRINT+12*, PRINT+13
DGVAL UPDATE+6~
DGXREF UPDATE+6~
DIK UPDR+4~, UPDR+5*
DIK(1 UPDR+5*
DIR PRINT+16!, HEAD+2!
DIR(0 PRINT+16*, HEAD+2*
DT CLEANUP+8, CLEANUP+9, REPORT+13, REPORT+14
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+19*, DEVICE+20
POP DEVICE+7~, DEVICE+11
U UPDATE+12, UPDATE+14, PRINT+12
X CLEANUP+9, REPORT+14, HEAD+5!*, HEAD+8*
X1 CLEANUP+6~, CLEANUP+8*, REPORT+11~, REPORT+13*
X2 CLEANUP+6~, CLEANUP+8*, REPORT+11~, REPORT+13*
>> 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*
>> ZTSAVE("DGENSKIP" DEVICE+15*
>> ZTSK DEVICE+17
ZTSKM DEVICE+13~
ZTSTOP DEVICE+13~, HEAD+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All