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 |  Caller 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: AGBIC1B

Package: IHS Patient Registration

Routine: AGBIC1B


Information

AGBIC1B ; IHS/ASDS/EFG - WRITE BENEFICIARY ID CARD (BIC) ;

Source Information

Source file <AGBIC1B.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS Patient Registration 2 (PTLK,READ)^AG  $$S^AGVDF  
VA Fileman 2 $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGBIC1  

Entry Points

Name Comments DBIA/ICR reference
PRNTNOW ;
END ;End - close device and kill variables
DATERR ;Data error processing
PRNTCARD ;EP - TaskMan.
DEV ;
START ;Header question to print BIC card
EXPIRE ;
DT ;
NAME ;

External References

Name Field # of Occurrence
^%ZIS DEV+2, DEV+5
^%ZISC DEV+9, DEV+25, PRNTCARD+13, END+2
^%ZTLOAD DEV+17
PTLK^AG PRNTNOW+1
READ^AG START+5, DATERR+5
$$S^AGVDF START+3, PRNTCARD+2, END+1
$$GET1^DIQ NAME+16
^DIR DEV+22
$$FMTE^XLFDT NAME+10, DT+1, EXPIRE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!?40-($L(Y)\2)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: $$S^AGVDF("RVN"),Y,$$S^AGVDF("RVF")
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"Do you want to print a BIC card? N//"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: PRNTCARD+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PRNTCARD+3
Function Call: WRITE
  • Prompt: !,"*",?6,"INDIAN HEALTH SERVICE",?35,"*"
  • Line Location: PRNTCARD+4
Function Call: WRITE
  • Prompt: !,"*",?16-($L(AGFACLTY)\2),AGFACLTY,?35,"*"
  • Line Location: PRNTCARD+5
Function Call: WRITE
  • Prompt: !,"*",?16-($L(AGFACPHN)\2),AGFACPHN,?35,"*"
  • Line Location: PRNTCARD+6
Function Call: WRITE
  • Prompt: !,"*",?35,"*",!,"*",?16-($L(AGNAME)\2),AGNAME,?35,"*"
  • Line Location: PRNTCARD+7
Function Call: WRITE
  • Prompt: !,"* SSN: ",$E(AGSSN,1,3),"-",$E(AGSSN,4,5),"-",$E(AGSSN,6,9),?35,"*"
  • Line Location: PRNTCARD+8
Function Call: WRITE
  • Prompt: !,"* DOB: ",AGDOB,?35,"*"
  • Line Location: PRNTCARD+9
Function Call: WRITE
  • Prompt: !,"* SEX: ",AGSEX,?14,"ISSUED: ",AGDT,?35,"*"
  • Line Location: PRNTCARD+10
Function Call: WRITE
  • Prompt: !,"* TRIBE: ",?35,"*",!,"* ",AGTRIBE,?14,?35,"* "
  • Line Location: PRNTCARD+11
Function Call: WRITE
  • Prompt: !,"*",AGXPHEAD,AGXPIRE,?35,"*",!
  • Line Location: PRNTCARD+12
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PRNTCARD+12
Function Call: WRITE
  • Prompt: !!,*7,"ERROR IN BIC INFORMATION: '",AGITEM
  • Line Location: DATERR+1
Function Call: WRITE
  • Prompt: "' missing/incorrect.",!,*7,!,"The information must be"
  • Line Location: DATERR+2
Function Call: WRITE
  • Prompt: " supplied/corrected before a card can be printed."
  • Line Location: DATERR+3
Function Call: WRITE
  • Prompt: !,"Press Return..."
  • Line Location: DATERR+4
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+1
Routine Call
  • DIR
  • Line Location:
    • DEV+22
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
    • DEV+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+12
^AUPNPAT - [#9000001] NAME+21, NAME+22, NAME+23, EXPIRE+4
^AUTTLOC - [#9999999.06] NAME+30
^AUTTTRI - [#9999999.03] NAME+23
^DIC(4 - [#4] NAME+25
^DPT - [#2] NAME+1, NAME+4, NAME+8, NAME+9, EXPIRE+2, EXPIRE+3

Label References

Name Line Occurrences
DATERR NAME+2, NAME+5, NAME+8, NAME+17, NAME+21, NAME+22, NAME+24, NAME+26, NAME+31
DEV DEV+6, DEV+18
EXPIRE DT+3
NAME PRNTNOW+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
AG DEV+23!, END+3!
AGDOB NAME+9*, NAME+10*, DEV+23!, PRNTCARD+9, END+3!
AGDT DT+1*, DEV+23!, PRNTCARD+10, END+3!
AGFACLTY NAME+25*, NAME+26, DEV+23!, PRNTCARD+5, END+3!
AGFACPHN NAME+29*, NAME+30*, NAME+31, DEV+23!, PRNTCARD+6, END+3!
AGFY END+4!
AGITEM NAME+3*, NAME+6*, NAME+7*, NAME+11*, NAME+20*, NAME+27*, NAME+28*, DATERR+1, END+4!
AGNAME NAME+1*, NAME+2, DEV+15, DEV+23!, PRNTCARD+7, END+4!
AGSEX NAME+16*, NAME+17, DEV+23!, PRNTCARD+10, END+3!
AGSSN NAME+4*, NAME+5, DEV+24!, PRNTCARD+8, END+4!
AGTRIBE NAME+23*, NAME+24, DEV+24!, PRNTCARD+11, END+4!
AGXPHEAD DT+2*, DT+4*, DEV+23!, PRNTCARD+12, END+3!
AGXPIRE DT+4, DEV+23!, PRNTCARD+12, END+3!, EXPIRE+1*, EXPIRE+5*
DFN NAME+1, NAME+4, NAME+8, NAME+9, NAME+16, NAME+21, NAME+22, NAME+23, END+3!, EXPIRE+2
, EXPIRE+3, EXPIRE+4, PRNTNOW+2
>> DFOUT START+6
DIR DEV+19!
DIR("A" DEV+21*
DIR(0 DEV+20*
>> DLOUT START+6
DT DT+1, EXPIRE+3, EXPIRE+5
>> DTOUT START+6
>> DUOUT START+6
DUZ(2 NAME+25, NAME+30
G DEV+16*, DEV+23!
>> I PRNTCARD+3*, PRNTCARD+12*
IO PRNTCARD+1
IO("Q" DEV+6, DEV+8!, DEV+10, DEV+11!
IO("S" DEV+6
ION DEV+4
>> IOP DEV+4*
IOST DEV+6
>> POP DEV+3
U NAME+1, NAME+4, NAME+8, NAME+9, NAME+22, NAME+23, NAME+25, NAME+30, EXPIRE+2, EXPIRE+3
, EXPIRE+4
X END+4!
XY END+4!
Y START+1*, START+2, START+3, DEV+14, END+4!
ZTDESC DEV+15*, DEV+24!
ZTRTN DEV+13*, DEV+24!
ZTSAVE DEV+24!
ZTSAVE( DEV+16*
ZTSK DEV+18, DEV+21, DEV+24!
ZTUCI DEV+14*, DEV+24!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All