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

Package: Registration

Routine: DG53P622


Information

DG53P622 ;BAY/JAT - Patient File Updat; 6/7/04 7:13pm ; 1/21/05 1:15pm

Source Information

Source file <DG53P622.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA Fileman 4 C^%DTC  FILE^DICN  FILE^DIE  ^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
FILE^DICN UPDR+16, UPDR+21
FILE^DIE UPDR+8, UPDR+11, UPDR+14, UPDR+19
^DIR PRINT+15, 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 Race & Ethnicity records."
  • 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*622 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,"Action to be taken",!
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HEAD+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+18
Routine Call
  • DIE
  • Line Location:
    • UPDR+8
    • UPDR+11
    • UPDR+14
    • UPDR+19
Routine Call
  • DIR
  • Line Location:
    • PRINT+15
    • 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, UPDATE+17, UPDATE+18, UPDATE+19, UPDATE+21, UPDATE+22
, UPDATE+23, UPDATE+26, UPDATE+27, UPDATE+31, UPDATE+32
^XTMP("DG53P622" CLEANUP+7!, CLEANUP+9*, REPORT+12!, REPORT+14*, UPDR+1, UPDR+3, UPDR+4*, 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+36
UPDATE ENTER+2
UPDR UPDATE+19, UPDATE+23, UPDATE+29, UPDATE+34

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 UPDATE+6~
DA(1 UPDR+15*, UPDR+20*
DFN UPDATE+6~, UPDATE+7*, UPDATE+8*, UPDATE+10, UPDATE+12, UPDATE+13, UPDATE+14, UPDATE+17, UPDATE+18, UPDATE+19
, UPDATE+21, UPDATE+22, UPDATE+23, UPDATE+26, UPDATE+27, UPDATE+31, UPDATE+32, UPDR+1, UPDR+3, UPDR+4
, UPDR+7, UPDR+10, UPDR+13, UPDR+15, UPDR+18, UPDR+20, PRINT+9*, PRINT+10*, PRINT+12
DGDATA UPDATE+6~, UPDATE+27*, UPDATE+28, UPDATE+32*, UPDATE+33
DGDDT PRINT+2~, PRINT+3*, HEAD+5
DGDUPE UPDATE+6~, UPDATE+16*, UPDATE+19*, UPDR+4, UPDR+6
DGENSKIP CLEANUP+2~, CLEANUP+3*, REPORT+7~, REPORT+8*, ENTER+2, ENTER+3, DEVICE+14, UPDATE~, UPDR+5, PRINT+8
DGETHN UPDATE+6~, UPDATE+20*, UPDATE+23*, UPDR+4, UPDR+9
DGETHNIC UPDATE+6~, UPDATE+25*, UPDATE+30*, UPDATE+33*, UPDATE+34, UPDR+4, UPDR+17, UPDR+20
DGFDA UPDATE+6~
DGFDA( UPDR+7*, UPDR+10*, UPDR+13*, UPDR+18*
DGMULT UPDATE+6~, UPDATE+16*, UPDATE+17*, UPDATE+18, UPDATE+19, UPDATE+20*, UPDATE+21*, UPDATE+22, UPDATE+23, UPDATE+25*
, UPDATE+26*, UPDATE+27, UPDATE+29, UPDATE+30*, UPDATE+31*, UPDATE+32, UPDATE+34, UPDR+7, UPDR+10, UPDR+13
, UPDR+18
DGPG PRINT+2~, PRINT+4*, PRINT+15, HEAD+2, HEAD+4*, HEAD+5
DGQUIT PRINT+2~, PRINT+4*, PRINT+10, PRINT+14, PRINT+15*, HEAD+1*, HEAD+2*, HEAD+3
DGRACE UPDATE+6~, UPDATE+25*, UPDATE+28*, UPDATE+29, UPDATE+30*, UPDR+4, UPDR+12, UPDR+15
DGSAVE UPDATE+6~, UPDATE+16*, UPDATE+18*, UPDATE+19, UPDATE+20*, UPDATE+22*, UPDATE+23
DGTEST UPDATE+6~
>> DGTEXT UPDR+2*, UPDR+3*, UPDR+4
DIC UPDATE+6~, UPDR+15*, UPDR+20*
DIC(0 UPDR+15*, UPDR+20*
DINUM UPDATE+6~, UPDR+15*, UPDR+20*
DIR PRINT+15!, HEAD+2!
DIR(0 PRINT+15*, HEAD+2*
DO UPDR+16!, UPDR+21!
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+15, 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, UPDATE+19, UPDATE+22, UPDATE+23, UPDATE+28, UPDATE+33
X CLEANUP+9, REPORT+14, UPDATE+6~, UPDR+15*, UPDR+20*, HEAD+5!*, HEAD+8*
X1 CLEANUP+6~, CLEANUP+8*, REPORT+11~, REPORT+13*
X2 CLEANUP+6~, CLEANUP+8*, REPORT+11~, REPORT+13*
>> Y PRINT+15, HEAD+2
ZTDESC DEVICE+13~, DEVICE+14*
>> ZTQUEUED ENTER+4, PRINT+14, PRINT+16, HEAD+1
ZTREQ ENTER+4*, DEVICE+13~, PRINT+16*
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