Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DG53P897

Package: Registration

Routine: DG53P897


Information

DG53P897 ;BAY/JAT - Patient File Updat; 6/7/04 7:13pm ; 9/9/14 8:15am

Source Information

Source file <DG53P897.m>

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 ;

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*897 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call