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

Package: Registration

Routine: DGENCLN1


Information

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

Source Information

Source file <DGENCLN1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$LJ^XLFSTR  
Registration 4 $$EXT^DGENELA3  ($$NAME,$$SSN)^DGENPTA  ($$ON,TURNOFF,TURNON)^DGENQRY  $$SEND^DGENQRY1  
VA Fileman 2 ^DIK  ^DIR  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEVICE+10
HOME^%ZIS DEVICE+17
^%ZISC ENTER+36, ENTER+40
^%ZTLOAD DEVICE+15
$$EXT^DGENELA3 PARSE+12, PARSE+18, PARSE+23
$$NAME^DGENPTA ENTER+24
$$SSN^DGENPTA ENTER+25
$$ON^DGENQRY ENTER+12
TURNOFF^DGENQRY ENTER+32
TURNON^DGENQRY ENTER+13
$$SEND^DGENQRY1 ENTER+23
^DIK DELETE+20
^DIR PAUSE+6
$$FMTE^XLFDT HEADER+2, DATE+3
$$LJ^XLFSTR LJ+1

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
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+17
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6
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)
^DGENA(27.14 - [#27.14] ENTER+14, ENTER+16, PARSE+6, PARSE+7
^DPT - [#2] GETPAT+5, GETPAT+6, GETPAT+7, DELETE+10, DELETE+13
^TMP($J ENTER+8!, ENTER+27*, ENTER+28*, ENTER+30!, PRINT+9, PRINT+11, PRINT+12, PRINT+15

Label References

Name Line Occurrences
$$DATE PRINT+13
$$DEVICE CLEANUP+9, REPORT+13
$$LJ ENTER+26, PARSE+13, PARSE+19, PARSE+25
$$PARSE ENTER+21
$$PAUSE PLINE+6
$$PLINE PRINT+13, PRINT+15, PRINT+16
$$STRIP PARSE+11, PARSE+17, PARSE+24
DELETE ENTER+39
ENTER CLEANUP+9, REPORT+13
GETPAT PARSE+10, PARSE+16, PARSE+22
HEADER PRINT+7, PLINE+10, PLINE+16
PRINT ENTER+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+9*
ANODE ENTER+7~, ENTER+16*, ENTER+17, ENTER+18
AUDIT ENTER+7~, ENTER+9*, ENTER+14*, ENTER+16, ENTER+21, PARSE~, PARSE+6, PARSE+7
COND ENTER+15~, ENTER+21, PARSE~
COND( ENTER+28, PARSE+13*, PARSE+19*, PARSE+25*
COUNT ENTER+7~, ENTER+9*, ENTER+22*, ENTER+29, PRINT~, PRINT+17, PARSE+4~, PARSE+5*, PARSE+13*, PARSE+19*
, PARSE+25*, DELETE+7~, DELETE+9*, DELETE+16*, DELETE+21
CRT PRINT+1~, PRINT+3*, PLINE+5, PLINE+13
DA DELETE+19~, DELETE+20*
DATABASE PARSE+4~, PARSE+12*, PARSE+13, PARSE+18*, PARSE+19, PARSE+23*, PARSE+25
DATE DATE+1~*, DATE+3*, DATE+4
DFN ENTER+7~, ENTER+18*, ENTER+19, ENTER+20, ENTER+21, ENTER+23, ENTER+24, ENTER+25, ENTER+27, ENTER+28
, PRINT+1~, PRINT+10*, PRINT+11*, PRINT+12, PRINT+15, PARSE~, PARSE+10, PARSE+16, PARSE+22, GETPAT~
, GETPAT+5, GETPAT+6, GETPAT+7, DELETE+7~, DELETE+9*, DELETE+10*, DELETE+13, DELETE+17, DELETE+20
DGENON ENTER+7~, ENTER+12*, ENTER+13, ENTER+32
DGENSKIP CLEANUP+2~, CLEANUP+3*, REPORT+7~, REPORT+8*, ENTER+11, ENTER+23, ENTER+31, ENTER+36, ENTER+39, ENTER+40
, DEVICE+13, DELETE~, DELETE+8, DELETE+17, DELETE+18, DELETE+21
DIK DELETE+19~, DELETE+20*
DIR PAUSE+3~
DIR(0 PAUSE+6*
DT HEADER+2
FMDATE DATE~, DATE+2*, DATE+3
FOUND PARSE+4~, PARSE+5*, PARSE+13*, PARSE+19*, PARSE+25*, PARSE+26
GOOD DELETE+7~, DELETE+12*, DELETE+14*, DELETE+15
I STRIP+1~, STRIP+2*, STRIP+3, STRIP+5*, STRIP+6
IO PRINT+4
IO("Q" DEVICE+12
IOF PRINT+5, PLINE+8, PLINE+14
IOM HEADER+1, HEADER+2
IOSL PLINE+5, PLINE+13, PAUSE+5
IOST PRINT+3
LEN LJ~, LJ+1
LINE ENTER+7~, ENTER+28*, PRINT+1~, PRINT+12*, PRINT+13, PRINT+14*, PRINT+15*, PARSE+4~, PARSE+5*, PARSE+6*
, PARSE+7, PLINE~, PLINE+11, PLINE+17, PLINE+19
NAME ENTER+7~, ENTER+24*, ENTER+26, PRINT+1~, PRINT+8*, PRINT+9*, PRINT+11, PRINT+12, PRINT+13, PRINT+15
NAMESSN ENTER+7~, ENTER+26*, ENTER+27, ENTER+28
NEWVALUE PARSE+4~, PARSE+11*, PARSE+13, PARSE+17*, PARSE+19, PARSE+24*, PARSE+25
NODE PRINT+1~, PARSE+4~, PARSE+7*, PARSE+9, PARSE+11, PARSE+15, PARSE+17, PARSE+21, PARSE+24, GETPAT+4~
, GETPAT+7*, GETPAT+8, GETPAT+9
OK DEVICE+7~, DEVICE+8*, DEVICE+11*, DEVICE+12, DEVICE+18*, DEVICE+19
PAGE PRINT+1~, PRINT+6*, PRINT+13, PRINT+15, PRINT+16, PLINE~, PLINE+9*, PLINE+10, PLINE+15*, PLINE+16
, HEADER~, HEADER+1
PAT PARSE+4~, PARSE+10, PARSE+16, PARSE+22, GETPAT~
PAT("LAST ASK ED" , PARSE+19, GETPAT+9*
PAT("MEDICAID" PARSE+18, GETPAT+8*
PAT("POW" PARSE+12, GETPAT+6*
PAT("VADISAB" PARSE+23, GETPAT+5*
>> POP DEVICE+11
QUIT PRINT+1~, PRINT+2*, PRINT+9, PRINT+13*, PRINT+15*, PRINT+16*, PLINE+4~*, PLINE+6*, PLINE+7, PLINE+20
, PAUSE+3~, PAUSE+4*, PAUSE+7*, PAUSE+8
SEEDDATE ENTER+7~, ENTER+17*, ENTER+21, ENTER+27, PARSE~, PARSE+19
SSN ENTER+7~, ENTER+25*, ENTER+26
STR LJ~, LJ+1, STRIP~, STRIP+2, STRIP+3*, STRIP+4*, STRIP+5, STRIP+6*, STRIP+7*, STRIP+8
SUB DELETE+7~, DELETE+11*, DELETE+13*, DELETE+14
X PAUSE+3~
XREFDFN ENTER+7~, ENTER+9*, ENTER+14*, ENTER+20
Y PAUSE+3~, PAUSE+7
>> ZTDESC DEVICE+13*
>> ZTQUEUED ENTER+41
>> ZTREQ ENTER+41*
>> ZTRTN DEVICE+13*
>> ZTSAVE("DGENSKIP" DEVICE+14*
>> ZTSK DEVICE+16
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