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

Package: IHS Patient Registration

Routine: AGCVT3


Information

AGCVT3 ; IHS/ASDS/EFG - COMPUTE BIC ELIGIBILITY, OR SET TO "C"-NOT REVIEWED ;

Source Information

Source file <AGCVT3.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 ^%DT  ^DIC  WAIT^DICD  ^DIE  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Patient Registration 2 ^AGBIC2C  $$S^AGVDF  
IHS VA Utilities 1 SET^XBSITE  

Entry Points

Name Comments DBIA/ICR reference
END
FACILITY
READ
DEV
START ;
QUE ;
USER
TEST ;For testing, enter here to set all BIC ELIGIBILITY STATUS and
ENTRY ;EP - TaskMan.

External References

Name Field # of Occurrence
^%DT START+2
^%ZIS ENTRY+2, TEST+3
^%ZISC DEV+1
^%ZTLOAD DEV+1
^AGBIC2C ENTRY+3
$$S^AGVDF START+3
^DIC USER
WAIT^DICD ENTRY+2, TEST+3
^DIE ENTRY+3
^DIR START+13, QUE+5, READ+2
SET^XBSITE FACILITY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?31,"*** AGCVT3 ***",!!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: "This routine reads thru the PATIENT file, and,",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: "if the BIC ELIGIBILITY STATUS does not exist, computes it."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"It will take about ",$J(+$P(^AUPNPAT(0),U,4)*(285/1077)/60,5,1)," minutes",!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: "to run this utility thru your ",$P(^AUPNPAT(0),U,4)," entries.",!!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: USER+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: !!?25,"AGCVT3 SUCCCESSFULLY COMPLETED",!!
  • Line Location: ENTRY+4
Function Call: WRITE
  • Prompt: DA
  • Line Location: TEST+4
Routine Call
  • DIE
  • Line Location:
    • ENTRY+3
Routine Call
  • DIC
  • Line Location:
    • USER
Routine Call
  • DIR
  • Line Location:
    • START+13
    • QUE+5
    • READ+2
Routine Call
  • %ZIS
  • Line Location:
    • ENTRY+2
    • TEST+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV
^AUPNPAT - [#9000001] ENTRY+3, TEST+4
^AUPNPAT(0 START+7, START+8, ENTRY+1, TEST+4
^AUTTLOC - [#9999999.06] DEV

Label References

Name Line Occurrences
END USER, FACILITY, QUE+6
ENTRY QUE+7
QUE DEV+1

Naked Globals

Name Field # of Occurrence
^( ENTRY+3, TEST+4
^(11 ENTRY+3, TEST+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT START+2*
AG DEV+1!
AGHIDA ENTRY+1*, ENTRY+3, END!, TEST+4*
AGIO DEV+1!
AGQIO DEV+1!
DA ENTRY+3*, END!, TEST+4*
>> DFN ENTRY+3*
DFOUT START+9!, QUE+1!, READ!, READ+3*
DIC USER*, FACILITY!, END!
DIC("A" USER*
DIC(0 USER*
>> DIE ENTRY+3*
DIR START+9!, QUE+1!
DIR("A" START+11*, QUE+3*
DIR("B" START+12*, QUE+4*
DIR(0 START+10*, QUE+2*, READ+1*
DIROUT START+9!, QUE+1!
DIRUT START+9!, QUE+1!
DLOUT START+9!, QUE+1!, READ!, READ+4*
DQOUT START+9!, QUE+1!, READ!, READ+6*
DR ENTRY+3*, END!
DT START+2*
DTIME START+1*, DEV+1
DTOUT START+9!, QUE+1!, QUE+6, READ!
DUOUT START+9!, QUE+1!, READ!, READ+5*
DUZ USER*
DUZ(0 FACILITY+1*
DUZ(2 FACILITY*, DEV
DX ENTRY+2*, END!, TEST+3*
DY ENTRY+2*, END!, TEST+3*
G DEV+1!
ION ENTRY+2, TEST+3
>> IOP ENTRY+2*, TEST+3*
U START+7, START+8, DEV, ENTRY+1, ENTRY+3, TEST+4
>> X START+2*
>> XY TEST+4
>> Y START+2, START+14, USER, QUE+6, QUE+7, DEV, DEV+1*, READ+3*, READ+4, READ+5*
, READ+6*
ZTDESC DEV*, DEV+1!
ZTIO DEV*, DEV+1!
>> ZTQUEUED ENTRY+2, ENTRY+4
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