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

Package: IHS Patient Registration

Routine: AGBIC2B


Information

AGBIC2B ; IHS/ASDS/EFG - ENTER CURRENT COMMUNITY ;

Source Information

Source file <AGBIC2B.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 (,DD)^%DT  ^DIC  ^DIE  
IHS Patient Registration 2 (READ,YN)^AG  ^AGBIC2C  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Patient Registration 3 AG2B  AGBIC2  AGBIC2P  

Entry Points

Name Comments DBIA/ICR reference
COMMVER ;EP
DEF1 ;
MSG1 ;
L3A ;
CKHSDA ;
CKPREV ;
CKPRVER ;
L4 ;
EDCOM ;EP - Edit Communities.
L2 ;
L3 ;
SETPRV ;
L1 ;
END ;
STCOMVER ;
E1 ;
S1 ;
DEF ;
E2 ;

External References

Name Field # of Occurrence
^%DT L3A+15
DD^%DT DEF1+4
READ^AG L1+4, L3+5, MSG1+4, COMMVER+5
YN^AG CKHSDA+6, CKPRVER+4
^AGBIC2C COMMVER+13
^DIC L2+4, L3A+6, MSG1+10, E1+5, E2+6
^DIE L4+7, STCOMVER+3, SETPRV+3, E1+10, E2+13, COMMVER+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter PRESENT COMMUNITY: "
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !!,"When did the patient move to this community? "
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: "( ""B"" = ""at BIRTH"" ) ",!," DATE: "
  • Line Location: L3+3
Function Call: WRITE
  • Prompt: !,*7,"There is no DATE-OF-BIRTH on file.",!
  • Line Location: L3A+9
Function Call: WRITE
  • Prompt: !!,"This patient's CURRENT COMMUNITY is "
  • Line Location: CKPREV+3
Function Call: WRITE
  • Prompt: !,"Enter any other COMMUNITY lived in since 09/16/88: "
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !!,$P(^AUTTCOM($P(Y,U),0),U)," is not within a HSDA!"
  • Line Location: MSG1+13
Function Call: WRITE
  • Prompt: $P(^AUTTCOM(AG("CPTR"),0),U),"//"
  • Line Location: DEF+9
Function Call: WRITE
  • Prompt: !,Y,"// "
  • Line Location: DEF1+5
Function Call: WRITE
  • Prompt: !!,"Has this COMMUNITY been VERIFIED? (Y/N): "
  • Line Location: COMMVER+3
Routine Call
  • DIE
  • Line Location:
    • L4+7
    • STCOMVER+3
    • SETPRV+3
    • E1+10
    • E2+13
    • COMMVER+12
Routine Call
  • DIC
  • Line Location:
    • L2+4
    • L3A+6
    • MSG1+10
    • E1+5
    • E2+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUTTCOM - [#9999999.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] L4+1!, L4+2*, L4+3*, DEF+2, DEF+3, DEF+5, DEF+6, DEF1+2, DEF1+3, COMMVER+2
^AUTTCOM - [#9999999.05] L2+8, MSG1+12, MSG1+13, DEF+8, DEF+9, DEF+11, E2+7, E2+8, E2+9
^AUTTCTY - [#9999999.23] L2+8, MSG1+12

Label References

Name Line Occurrences
CKHSDA CKHSDA+5
CKPREV CKPRVER+2
CKPRVER CKPRVER+3
COMMVER CKHSDA+3, CKPRVER+1
DEF L1+3
DEF1 L3+4
END L1+5, L3A+18, STCOMVER+4, CKPREV+1, CKPREV+2, MSG1+5, MSG1+11, SETPRV+4
L1 L2+5, L3+7, L3A+17
L2 L1+6
L3 L3A+19, CKHSDA+4
L3A L3+8
MSG1 MSG1+12
S1 STCOMVER+1, SETPRV+1
STCOMVER CKHSDA+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT L3A+13*
>> %DT(0 L3A+14*, L3A+16!
>> AG("2BPREV" MSG1+3*, MSG1+6!, E2+7, E2+8*
>> AG("BIRTH" L3+1!, L3A+2*, L3A+11!, CKPREV+1, END+1!
>> AG("CDATE" L3A+20*, L4+2, L4+3, CKPREV+2, DEF+3*, DEF+4, DEF+5, DEF+6, DEF1+2, DEF1+3
>> AG("CITY" L2+7*, L4+6, E2+3*, E2+8*, E2+12
>> AG("COMAGED1" COMMVER+7*, COMMVER+11
>> AG("COMM" L1+1!, CKHSDA+1*, CKHSDA+7*, STCOMVER+2, STCOMVER+4, MSG1+2*, CKPRVER+5*, SETPRV+2, END+2!
>> AG("COMMVER" END+1!, COMMVER+1*, COMMVER+2*, COMMVER+4, COMMVER+6
>> AG("CPTR" L2+6*, L4+3, DEF+6*, DEF+7, DEF+8, DEF+9, DEF+11
>> AG("DRENT" E2+1*
>> AG("EDIT" L1+6, L3+1!, L3+8, L3A+18, DEF+1!, DEF+10*, DEF1+1!, DEF1+6*
>> AG("HSDA" L1+1!, L2+8*, CKHSDA+2, CKPREV+4, END+1!, E2+9*
>> AG("LKDATA" L3A+7, L3A+8, E2+7, E2+8, E2+9
>> AG("LKERR" L3A+8
>> AG("PRVCM" L1+1!, L1+6, L1+7, END+1!, DEF+11*
>> AG("PRVDT" L3+1!, L3+8, L3+9, END+1!, DEF1+7*
>> AG("SEL" COMMVER+8
>> AGOPT(14 COMMVER+8
>> DA L3A+4*, L4+5*, E1+6*, E2+5*, E2+11*, COMMVER+10*
>> DFN L3A+4, L4+1, L4+2, L4+3, L4+5, DEF+2, DEF+3, DEF+5, DEF+6, DEF1+2
, DEF1+3, E1+4, E2+5, E2+11, COMMVER+2, COMMVER+10
DFOUT L1+5, L3+6, MSG1+5, S1+1!
DIC L2+1*, L3A+3*, MSG1+7*, END+2!, E1+2*, E2+4*
DIC("S" E1+1!
DIC(0 L2+2*, MSG1+8*
>> DIE L4+4*, E1+7*, E2+10*, COMMVER+9*
DLOUT L1+6, L1+8, L3+8, L3+10, S1+1!, COMMVER+6
DQOUT L1+8, L3+10, S1+1!
>> DR L3A+5*, L4+6*, STCOMVER+2*, SETPRV+2*, E1+3*, E1+8*, E2+2*, E2+12*, COMMVER+11*
>> DR(2 E1+9*
DT L4+3
DTOUT L1+5, L3+6, MSG1+5, S1+1!
DUOUT L1+5, L3+7, CKHSDA+4, MSG1+5, CKPRVER+2, S1+1!
U L2+7, L2+8, L4+3, MSG1+12, MSG1+13, DEF+3, DEF+6, DEF+9, DEF+11, DEF1+3
, E2+8, E2+9, COMMVER+2
>> X L2+3*, L3A+12*, L3A+17, L3A+18, MSG1+9*, E1+4*
>> Y L1+7*, L1+8*, L2+3, L2+5, L2+6, L2+7, L2+8, L3+9*, L3+10*, L3A+1
, L3A+7*, L3A+8, L3A+10*, L3A+12, L3A+19, L3A+20, CKHSDA+5, CKHSDA+7, MSG1+9, MSG1+11
, MSG1+12, MSG1+13, CKPRVER+2, CKPRVER+3, DEF1+3*, DEF1+5, DEF1+7, E1+6, COMMVER+6*, COMMVER+7
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