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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGFIX7A

Package: IHS Patient Registration

Routine: AGFIX7A


Information

AGFIX7A ; IHS/ASDS/EFG - FIX MEDICAID ELIGIBLE FILE ;

Source Information

Source file <AGFIX7A.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^%DT  NOW^%DTC  ^DIC  WAIT^DICD  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Patient Registration 1 $$S^AGVDF  

Entry Points

Name Comments DBIA/ICR reference
END1
COMMENT ; This routine is a one-time-only run.
; It reads thru the 'B' index of the MEDICAID ELIGIBLE
; file (^AUPNMCD) to look for patients who are eligible for MEDICAID,
; fix their eligibility numbers if necessary, and
; flag them for inclusion with next export.
; RPMS/GTH
END
FACILITY
READ
DEV
START
DFN ;
QUE
USER
IEN ;
MSG
ENTRY ; EP - TaskMan.

External References

Name Field # of Occurrence
^%DT START
NOW^%DTC IEN+12
^%ZIS ENTRY+1
^%ZISC DEV+1
^%ZTLOAD DEV+1
$$S^AGVDF MSG
^DIC USER, FACILITY
WAIT^DICD ENTRY+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"IF YOU ARE SURE YOU WANT TO RUN THIS ROUTINE",!!,"PLEASE ENTER AT 'START', I.E. 'D START^AGFIX7A'.",!
  • Line Location: AGFIX7A+2
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !?31,"*** AGFIX7A ***"
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !!?5,"THIS REGISTRATION UTILITY READS THRU THE 'B' INDEX OF THE",!!?5,"MEDICAID ELIGIBLE FILE (^AUPNMCD), REMOVES ALL NON-NUMERIC CHARACTERS",!!?5,"FROM THE M'CAID ELIGIBILITY NUMBERS,"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !!?5,"AND SETS ^AGPATCH SO THE CORRECTED PATIENTS ARE EXPORTED DURING"
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !!?5,"THE NEXT REGISTRATION EXPORT.",!!?5,"note: THE 'AB' INDEX IS KILLED AND REBUILT DURING THE PROCESS",!!!?10,"DO YOU WANT TO CONTINUE? (Y/N) N // "
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: USER+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: FACILITY+0
Function Call: WRITE
  • Prompt: !!,*7,"You can 'q' this process to TaskMan to run at another time.",!
  • Line Location: QUE+0
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"Task Number = ",ZTSK,!!,"Press RETURN..."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENTRY+1
Function Call: WRITE
  • Prompt: !,AGTOTAL," records changed.",!
  • Line Location: END1+0
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Variable: Y
  • Line Location: READ+0
Function Call: READ
  • Timeout: 5
  • Variable: Y
  • Line Location: READ+0
Routine Call
  • DIC
  • Line Location:
    • USER
    • FACILITY
Routine Call
  • %ZIS
  • Line Location:
    • ENTRY+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV
^AGPATCH( IEN+13*
^AUPNMCD - [#9000004] IEN+2, IEN+3, IEN+11*, END1+1
^AUPNMCD("AB" IEN+5*, IEN+10!, IEN+11*, END1+1!
^AUPNMCD("B" DFN+1, IEN+1, IEN+2!
^AUTTLOC - [#9999999.06] DEV
^DIC(5 - [#5] IEN+7

Label References

Name Line Occurrences
DFN IEN+1
END MSG+5, USER, FACILITY, QUE
END1 DFN+1
ENTRY QUE+1
FACILITY QUE
IEN IEN+2, IEN+4, IEN+6, IEN+7, IEN+9, IEN+14
MSG MSG+5
QUE QUE, DEV+1
READ MSG+5, QUE, READ

Naked Globals

Name Field # of Occurrence
^(0 IEN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % IEN+12
%DT START*!, END!
A END1+1*, END!
AG DEV+1!, END!
AG("STATE" IEN+7*
AGACCT IEN+3*, IEN+4, IEN+5, IEN+6, IEN+8, IEN+10, END!
AGDATE END!
AGDTS IEN+12*, IEN+13, END!
AGIO DEV+1!
AGNEWNUM IEN+8*, IEN+9, IEN+11, END!
AGQIO DEV+1!
AGST IEN+3*, IEN+4, IEN+5, IEN+7, IEN+10, IEN+11, END!
AGTOTAL START+1*, ENTRY+2*, IEN+11*, END1, END!
D END1+1*, END!
DFN ENTRY+2*, DFN+1*, IEN+1, IEN+2, IEN+5, IEN+10, IEN+11, IEN+13, END!
DFOUT MSG+5, QUE, END!, READ!, READ+1*
DIC USER*, FACILITY*!
DIC("A" USER*, FACILITY*
DIC(0 USER*, FACILITY*
DLOUT MSG+5, END!, READ!, READ+1*
DQOUT MSG+5, QUE, END!, READ!, READ+1*
DT START*
DTIME MSG*, DEV+1, READ
DTOUT MSG+5, QUE, END!, READ!*
DUOUT MSG+5, QUE, END!, READ!, READ+1*
DUZ USER*
DUZ(2 FACILITY*, DEV, IEN+13
DUZ2 FACILITY*, END!
DX ENTRY+1*, END!
DY ENTRY+1*, END!
G DEV+1!
>> I IEN+8*, END1+1*
IEN DFN+2*, IEN+1*, IEN+2, IEN+3, IEN+5, IEN+10, IEN+11, END1+1*, END!
ION ENTRY+1
>> IOP ENTRY+1*
S END1+1*, END!
U DEV, IEN+3, IEN+7, IEN+11
X START*, END!
XY END!
Y START, MSG+5, USER, FACILITY, QUE*, QUE+1, DEV, DEV+1*, END!, READ*
, READ+1*
ZTDESC DEV*, DEV+1!
ZTIO DEV*, DEV+1!
>> ZTQUEUED ENTRY+1, END1
ZTRTN DEV*, DEV+1!
ZTSAVE DEV*, DEV+1!
ZTSK DEV+1!
ZTUCI DEV*, DEV+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All