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

Package: IHS Patient Registration

Routine: AGED5


Information

AGED5 ; IHS/ASDS/EFG -EDIT PAGE 5 (mcd) ;

Source Information

Source file <AGED5.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Patient Registration 8 YN^AG  (ADDNEW,STATE)^AG5  ^AGDICLK  UPDATE1^AGED  READ^AGED1  EDIT^AGED51  ($$DTEST,VERIF)^AGUTILS  $$S^AGVDF  
VA Fileman 5 DD^%DT  NOW^%DTC  ^DIE  EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
IHS Patient Registration 5 AG5  AGED51  AGEL2  AGEL5  AGELUP4  
PCC New Encounter Form 1 VENPCCD1  
Third Party Billing 1 ABMDTEL  

Entry Points

Name Comments DBIA/ICR reference
EDIT1 ;
L3B
OPTION ;
L3A
EDIT ;
UPDATE ;EP
L6
READ ;
L4 ;
L2
L3
VAR ;EP
END
DELETE
DELETE1
HDR ;

External References

Name Field # of Occurrence
DD^%DT L3A+3
NOW^%DTC DELETE1+1
YN^AG HDR+26
ADDNEW^AG5 VAR+4, HDR+29
STATE^AG5 HDR+1
^AGDICLK L3B+3, L3B+9, L3B+12, L3B+15, L3B+19, L3B+25, L3B+37, L3B+42
UPDATE1^AGED UPDATE+5
READ^AGED1 HDR+22, L4+1
EDIT^AGED51 EDIT1+4
$$DTEST^AGUTILS HDR+10
VERIF^AGUTILS L3B+45
$$S^AGVDF HDR+2
^DIE DELETE1+15, UPDATE+4
EN^DIQ1 L3B+31
^DIR L4+1, DELETE+4, READ+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?36,"MEDICAID"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?80-$L($P(^DIC(4,DUZ(2),0),U)),$P(^DIC(4,DUZ(2),0),U)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$E(AGPAT,1,23)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?23,$$DTEST^AGUTILS(DFN)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?42,"HRN#:",AGCHRT
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !?3,"STATE NUMBER"
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: ?27,"(updated) ELIG DATE COVERAGE ELIG END"
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !,"1.",?4,$P($G(^DIC(5,AG("STATE"),0)),U,2),?9,$P($G(^AUPNMCD(AGELPTR,0)),U,3)
  • Line Location: L3A+0
Function Call: WRITE
  • Prompt: ?25,"(",Y,")"
  • Line Location: L3A+4
Function Call: WRITE
  • Prompt: !!,"3. ","MEDICAID NAME: ",$G(AG("LKPRINT"))
  • Line Location: L3B+13
Function Call: WRITE
  • Prompt: ?44,"4. ","MED. DATE OF BIRTH: ",AG("LKPRINT")
  • Line Location: L3B+23
Function Call: WRITE
  • Prompt: !,"5. ","PRIM CARE PROV: ",AG("LKPRINT")
  • Line Location: L3B+26
Function Call: WRITE
  • Prompt: !,"6. ","GROUP NAME: ",?44,"GROUP NUMBER: "
  • Line Location: L3B+28
Function Call: WRITE
  • Prompt: !,"7. ","PLAN NAME: ",AG(9000004,DA,.11,"E")
  • Line Location: L3B+33
Function Call: WRITE
  • Prompt: !,"8. ","RATE CODE: ",AG(9000004,DA,.12,"E")
  • Line Location: L3B+34
Function Call: WRITE
  • Prompt: !,"9. ","CC ON FILE: ",AG("LKPRINT")
  • Line Location: L3B+38
Function Call: WRITE
  • Prompt: !,AGLINE("-")
  • Line Location: L3B+44
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: L3B+46
Function Call: WRITE
  • Prompt: *7
  • Line Location: L4+13
Function Call: WRITE
  • Prompt: !!!,"The account is deleted.",!,"Press RETURN to continue..."
  • Line Location: DELETE1+15
Routine Call
  • DIE
  • Line Location:
    • DELETE1+15
    • UPDATE+4
Routine Call
  • DIR
  • Line Location:
    • L4+1
    • DELETE+4
    • READ+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNMCD - [#9000004] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGPATCH( DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10*, DELETE1+12*, DELETE1+13*
^AUPNMCD - [#9000004] HDR+1, L3, L3A, L3A+1, L3A+2, DELETE1+8, DELETE1+10, DELETE1+12, DELETE1+13, EDIT1+2
, EDIT1+3
^AUPNMCD("AB" HDR+18, HDR+27
^AUPNPAT - [#9000001] HDR+13
^DIC(4 - [#4] HDR+5
^DIC(5 - [#5] L3A
^XUSEC("AGZMGR" L4+2, L4+4, L4+7

Label References

Name Line Occurrences
@( HDR+25, L4+8
DELETE L4+7
DELETE1 DELETE+6
EDIT L4+11
END OPTION+2, HDR+24, L4+1, L4+9, DELETE+5
HDR VAR+3
L2 HDR+18
L4 L3+1, L4+12
L6 L4+9, L4+11
READ L4+6
VAR HDR+24, HDR+26, HDR+30, L4+13, L6+1

Naked Globals

Name Field # of Occurrence
^( DELETE1+9*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DELETE1+2
AG END+1!
AG("DRENT" L3B+2*, L3B+8*
AG("DRENT1" END+1!
AG("ED" HDR+25, L4+8
AG("EDIT" VAR+4*, HDR+16!, HDR+28*, L4+10, L6*
AG("ERR" HDR+24
AG("I" L3B+1*, L3B+2, L3B+6, L3B+8
AG("LKDATA" END+2!
AG("LKERR" L3B+1, L3B+4, END+2!
AG("LKPRINT" L3B+7, L3B+10, L3B+13, L3B+17, L3B+20*, L3B+21*, L3B+23, L3B+26, L3B+38, L3B+39
, L3B+43, END+2!
AG("MCD" HDR+17!, EDIT1+1*, EDIT1+2, EDIT1+3, END+3!, UPDATE+1
AG("MNUM" EDIT1+3*
AG("PG" VAR+1*
AG("STATE" L2+1*, L3*, L3+1, L3A, EDIT1+2*, END+2!
AG("STPTR" HDR+1*!
AG("SUBSCRPT" DELETE1*, DELETE1+5*, DELETE1+7*, DELETE1+10, DELETE1+12, DELETE1+13, DELETE1+14!
AG("TOT" L2!, L2+1*, L3+2*, DELETE, DELETE+6
AG(9000004 L3B+33, L3B+34
>> AGADDINS VAR+3
>> AGCHRT HDR+11
AGDELETE VAR+6!, DELETE1+16*
AGDOB L3B+16*, L3B+17*, L3B+20, L3B+21, L3B+22!
AGDTS DELETE1+2*, DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10, DELETE1+12, DELETE1+13, END+4!
>> AGELPTR HDR+1, L3, L3A, L3A+1, L3A+2, L3B, L3B+11, L3B+18, L3B+24, L3B+36
, L3B+41, DELETE1+8, DELETE1+10, DELETE1+12, DELETE1+13, DELETE1+15, EDIT1+1
>> AGELSTS HDR+13*, HDR+14
AGL L3B+7, END+2!
>> AGLINE("-" HDR+6*, L2+4, L3B+44
>> AGLINE("EQ" HDR+7*, HDR+8, HDR+15, L3B+46
AGNUM END+2!
AGNXTSUB DELETE1*, DELETE1+4, DELETE1+5, DELETE1+6*, DELETE1+14!
>> AGOPT(4 OPTION+1, OPTION+2
>> AGPAT HDR+9
>> AGSEENLY OPTION+1, VAR+2, HDR+3, HDR+19, L4+1
>> AGTOUT END*
>> AGXTERN HDR+25, L4+8, END+5
>> AGZ("I" DELETE1+4*
D0 HDR+17!
DA HDR+17!, L3B*, L3B+11*, L3B+14*, L3B+18*, L3B+24*, L3B+33, L3B+34, L3B+36*, L3B+41*
, DELETE1+8*, DELETE1+11, DELETE1+12, DELETE1+13, DELETE1+15*, END+1!, UPDATE+1*, UPDATE+5
>> DFN HDR+10, HDR+13, HDR+18, HDR+27, L3B+14, DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10, DELETE1+12
, DELETE1+13, UPDATE+5
DFOUT VAR+5, HDR+26, L4+10, READ+1!, READ+5*
DIC L3B*, L3B+11*, L3B+14*, L3B+18*, L3B+24*, L3B+30*, L3B+35*, L3B+40*, END+1!
>> DIE DELETE1+15*, UPDATE+3*
DIQ L3B+29*, L3B+32!
DIQ(0 L3B+29*
DIR HDR+17!, HDR+23!, DELETE+5!, EDIT+1!
DIR("A" HDR+21*, L4+3*, L4+5*, DELETE+1*
DIR("B" DELETE+3*
DIR(0 DELETE+2*, READ+2*
DIROUT L4+9, END+6!, READ+1!
DLOUT VAR+5, HDR+24, L4+9, READ+1!, READ+6*
DQOUT HDR+26, READ+1!, READ+8*
DR L3B+2*, L3B+8*, L3B+11*, L3B+14*, L3B+18*, L3B+24*, L3B+30*, L3B+36*, L3B+41*, DELETE1+15*
, END+1!, UPDATE+2*
DRENT END+1!
DT DELETE1+13, UPDATE+2
DTIME DELETE1+15
DTOUT VAR+5, HDR+26, L4+9, END, READ+1!, READ+4
DUOUT VAR+5, HDR+24, L4+9, END+6!, READ+1!, READ+7*
DUZ L4+2, L4+4, L4+7
DUZ(2 HDR+5, DELETE1+3, DELETE1+6, DELETE1+9, DELETE1+10, DELETE1+12, DELETE1+13, UPDATE+5
U HDR+1, HDR+5, HDR+13, L3, L3A, L3A+1, L3A+2, L3B+7, DELETE1+10, DELETE1+12
, DELETE1+13, EDIT1+2, EDIT1+3
>> X DELETE1+15*
Y HDR+24, HDR+26, L3A+2*, L3A+4, L4+7, L4+9, L4+11, L4+12, DELETE*, DELETE+5
, END+4!, READ+5, READ+6, READ+7*, READ+8*
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 |  Naked Globals |  Local Variables |  All