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

Package: Registration

Routine: DG53P600


Information

DG53P600 ;BAY/JAT - Patient File Updat; 6/7/04 7:13pm ; 7/16/04 3:22pm

Source Information

Source file <DG53P600.m>

Call Graph

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  FILE^DIE  ^DIR  

Entry Points

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

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
FILE^DIE UPDR+7
^DIR PRINT+18, 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 correct the TEST PATIENT INDICATOR flag."
  • 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*600 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",?26,"Test Patient Indicator",?50,"'ATEST' crossref",!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HEAD+8
Routine Call
  • DIE
  • Line Location:
    • UPDR+7
Routine Call
  • DIR
  • Line Location:
    • PRINT+18
    • HEAD+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+10
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+18

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$DEVICE CLEANUP+10, REPORT+15
ENTER CLEANUP+10, REPORT+15
HEAD PRINT+5, PRINT+11
PRINT UPDATE+28
UPDATE ENTER+2
UPDR UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26

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
DFN UPDATE+6~, UPDATE+7*, UPDATE+8*, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+18, UPDATE+19, UPDR+4
, UPDR+6, UPDR+8, PRINT+9*, PRINT+10*, PRINT+12, PRINT+13, PRINT+14, PRINT+15
DGDDT PRINT+2~, PRINT+3*, HEAD+5
DGENSKIP CLEANUP+2~, CLEANUP+3*, REPORT+7~, REPORT+8*, ENTER+2, ENTER+3, DEVICE+14, UPDATE~, UPDR+5, PRINT+8
DGERR UPDATE+6~
DGFDA UPDATE+6~
DGFDA(2 UPDR+6*
DGFLG UPDATE+6~, UPDATE+18*, UPDATE+21, UPDATE+23, UPDATE+25, UPDR+2*, UPDR+4, PRINT+13*, PRINT+15
DGPG PRINT+2~, PRINT+4*, PRINT+18, HEAD+2, HEAD+4*, HEAD+5
DGQUIT PRINT+2~, PRINT+4*, PRINT+10, PRINT+17, PRINT+18*, HEAD+1*, HEAD+2*, HEAD+3
DGS UPDATE+6~, UPDATE+16*, UPDATE+17*, UPDATE+21, UPDATE+23, UPDATE+24, UPDATE+25, UPDATE+26
DGSSN UPDATE+6~, UPDATE+14*, UPDATE+15, UPDATE+16, UPDR+4, PRINT+12*, PRINT+15
DGVAL UPDATE+6~, UPDATE+23*, UPDATE+24*, UPDATE+25*, UPDATE+26*, UPDR+6, UPDR+8
DGXREF UPDATE+6~, UPDATE+19*, UPDATE+21, UPDATE+24, UPDATE+26, UPDR+3*, UPDR+4, PRINT+14*, PRINT+15
DIR PRINT+18!, HEAD+2!
DIR(0 PRINT+18*, 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+18, 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, UPDATE+18, PRINT+12, PRINT+13, PRINT+14
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+18, HEAD+2
ZTDESC DEVICE+13~, DEVICE+14*
>> ZTQUEUED ENTER+4, PRINT+17, PRINT+19, HEAD+1
ZTREQ ENTER+4*, DEVICE+13~, PRINT+19*
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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All