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

Package: Registration

Routine: DGENCLN1


Information

DGENCLN1 ;ALB/CJM - National Enrollment Seeding, Patient File Cleanup; 2/22/1999

Source Information

Source file <DGENCLN1.m>

Entry Points

Name Comments DBIA/ICR reference
CLEANUP ;This entry point will do the cleanup.
REPORT ;This entry point was provided for testing, so that before
ENTER ;
PRINT(COUNT) ;
PARSE(AUDIT,DFN,SEEDDATE,COND) ;
GETPAT(DFN,PAT) ;
DEVICE() ;
PLINE(PAGE,LINE) ;
HEADER(PAGE) ;
PAUSE() ;
DATE(FMDATE) ;
LJ(STR,LEN) ;
STRIP(STR) ;
DELETE(DGENSKIP) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** This is a one-time cleanup for the National Enrollment Seeding ***"
  • Line Location: CLEANUP+4
Function Call: WRITE
  • Prompt: !,"Patient records whose seeding update may not have completed will be"
  • Line Location: CLEANUP+5
Function Call: WRITE
  • Prompt: !,"reported, and a query for each patient will be sent to HEC in order"
  • Line Location: CLEANUP+6
Function Call: WRITE
  • Prompt: !,"to complete the cleanup. Also, records in the Patient file with no"
  • Line Location: CLEANUP+7
Function Call: WRITE
  • Prompt: !,"zero node that were created by the seeding will be deleted."
  • Line Location: CLEANUP+8
Function Call: WRITE
  • Prompt: !,"*** This is a one-time report for the National Enrollment Seeding ***"
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: !,"Patient records whose seeding update may not have completed will be"
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: !,"reported. Also, records in the Patient file with no zero node that"
  • Line Location: REPORT+11
Function Call: WRITE
  • Prompt: !,"were created by the seeding will be listed by DFN"
  • Line Location: REPORT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!," *** Total #Patients Found: "_COUNT_" ***"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PLINE+19
Function Call: WRITE
  • Prompt: !,?((IOM-77)/2),"Incomplete Patient Updates from National Enrollment Seeding",?(IOM-10),"PAGE: ",PAGE
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,?((IOM-24)\2),$$FMTE^XLFDT(DT,"D")
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!," Patient SSN Date Of Seeding"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"____________________________________________________________________________",!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Function Call: WRITE
  • Prompt: !,"BAD PATIENT RECORD FOUND, DFN= ",DFN
  • Line Location: DELETE+17

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