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 |  Marked Items |  All
Print Page as PDF
Routine: AGED13

Package: IHS Patient Registration

Routine: AGED13


Information

AGED13 ; IHS/ASDS/EFG - EDIT PAGE 6 - VETERAN'S INFO ;

Source Information

Source file <AGED13.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Patient Registration 6 L11^AG0  (,UPDATE1)^AGED  READ^AGED1  ^AGED8  ^AGEDBEA  VERIF^AGUTILS  
VA Fileman 4 DD^%DT  ^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Patient Registration 4 AGED11  AGED4B  AGED8  AGEDBEA  

Entry Points

Name Comments DBIA/ICR reference
EDIT
NONE ;
DISAB ;RATED DISABILITIES
END
VACARD ;DOES PATIENT HAVE A VALID VA CARD
READ
SVCSEP ;LAST SERVICE SEPARATION DATE
CLMNUM ;CLAIM NUMBER
VET ;VETERAN FIELD
SVCBR ;LAST SERVICE BRANCH FIELD
1 ;
VIETSVC ;VIETNAM SERVICE INDICATED
ADD ;EP - ADD A PATIENT
SVCCON ;SERVICE CONNECTED
VAR ;
TOOYUNG(AGDA,X) ;
SVCENT ;LAST SERVICE ENTRY DATE
DRAW ;EP

External References

Name Field # of Occurrence
DD^%DT DRAW+21
L11^AG0 ADD+13
^AGED VAR+6, DRAW+5
UPDATE1^AGED VAR+33, READ+11, ADD+12
READ^AGED1 VAR+28, READ+5
^AGED8 END+7
^AGEDBEA END+5
VERIF^AGUTILS VAR+18, DRAW+28
^DIE VET+6, VET+12, SVCBR+5, SVCENT+5, SVCSEP+5, VIETSVC+5, SVCCON+5, CLMNUM+5, DISAB+5, VACARD+5
, VACARD+15, VACARD+35, EDIT+3
$$GET1^DIQ VAR+15, DRAW+13
^DIR VACARD+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,AG,".",?(40-$L($P($G(^DD(DIC,DR,0)),U))),$P($G(^DD(DIC,DR,0)),U)," : "
  • Line Location: VAR+14
Function Call: WRITE
  • Prompt: AGVETFLD,?50,"Obtained on "
  • Line Location: VAR+16
Function Call: WRITE
  • Prompt: Y
  • Line Location: VAR+16
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: VAR+17
Function Call: WRITE
  • Prompt: !!,AGLINE("EQ")
  • Line Location: VAR+19
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+30
Function Call: WRITE
  • Prompt: !!,AGLINE("EQ")
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: READ+7
Function Call: WRITE
  • Prompt: *7," Must be VETERAN. Edit #1 first."
  • Line Location: READ+8
Function Call: WRITE
  • Prompt: !,AG,".",?(40-$L($P($G(^DD(DIC,DR,0)),U))),$P($G(^DD(DIC,DR,0)),U)," : "
  • Line Location: DRAW+12
Function Call: WRITE
  • Prompt: AGVETFLD,?50,"Obtained on "
  • Line Location: DRAW+14
Function Call: WRITE
  • Prompt: Y
  • Line Location: DRAW+14
Function Call: WRITE
  • Prompt: $E(AGVETFLD,1,37),!
  • Line Location: DRAW+16
Function Call: WRITE
  • Prompt: ?43,$E(AGVETFLD,38,60)
  • Line Location: DRAW+16
Function Call: WRITE
  • Prompt: AGVETFLD
  • Line Location: DRAW+17
Function Call: WRITE
  • Prompt: AGVETFLD
  • Line Location: DRAW+19
Function Call: WRITE
  • Prompt: ?49,"DATE OBTAINED: ",Y
  • Line Location: DRAW+22
Function Call: WRITE
  • Prompt: ?48,"TOLD HOW TO OBTAIN VA CARD? "
  • Line Location: DRAW+24
Function Call: WRITE
  • Prompt: "NO"
  • Line Location: DRAW+25
Function Call: WRITE
  • Prompt: "YES"
  • Line Location: DRAW+26
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: DRAW+27
Function Call: WRITE
  • Prompt: !!,"This service entry date would make the patient too young for service.",!,"DOB ",Y,!,*7
  • Line Location: TOOYUNG+3
Routine Call
  • DIE
  • Line Location:
    • VET+6
    • VET+12
    • SVCBR+5
    • SVCENT+5
    • SVCSEP+5
    • VIETSVC+5
    • SVCCON+5
    • CLMNUM+5
    • DISAB+5
    • VACARD+5
    • VACARD+15
    • VACARD+35
    • EDIT+3
Routine Call
  • DIR
  • Line Location:
    • VACARD+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] VAR+8!, VAR+16, DRAW+6!, DRAW+14, DRAW+20, DRAW+21, DRAW+23, DRAW+25, DRAW+26, VACARD+8
, VACARD+9, VACARD+10*, VACARD+18, VACARD+19*, VACARD+21, VACARD+22*, VACARD+23*, VACARD+25, VACARD+26
^DD( VAR+14, DRAW+12
^DD("DD" VAR+16, DRAW+14, TOOYUNG+3
^DPT - [#2] VAR+2, VAR+8!, READ+8, DRAW+6!, TOOYUNG+2, EDIT+1!, EDIT+2, ADD+2, ADD+11
^DPT("APOS" VAR+8!, DRAW+6!, EDIT+1!, ADD+11!
^UTILITY("DIQ1" VAR+9!, END!, DRAW+7!

Label References

Name Line Occurrences
@( VAR+30, VAR+32, READ+7, READ+10
CLMNUM ADD+8
DISAB ADD+9
DRAW READ
END VAR+29, READ+6
READ VAR+2, READ+7, READ+8
SVCBR ADD+3
SVCCON ADD+7
SVCENT ADD+4
SVCSEP ADD+5
VACARD VACARD+30, ADD+10
VAR VAR+30, VAR+34, READ+12
VET ADD+1
VIETSVC ADD+6

Naked Globals

Name Field # of Occurrence
^("VET" EDIT+1!, ADD+2, ADD+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG VAR+10*, VAR+14, END!, DRAW+8*, DRAW+12, DRAW+14, DRAW+15, DRAW+18, DRAW+20, DRAW+23
AG("ED" VAR+30, READ+7
AG("N" VAR+3*, VAR+10, VAR+22, VAR+30, VAR+32, READ+4, READ+7, READ+10, DRAW+1*, DRAW+8
AG("PG" VAR+1*, DRAW+3*
AG("SEL" VAR+32*, READ+10*, EDIT, EDIT+1, EDIT+2
AGDA TOOYUNG~, TOOYUNG+2
AGI VAR+32*, READ+10*, END!
>> AGLINE("-" VAR+17, DRAW+27
>> AGLINE("EQ" VAR+19, READ+2
AGSCRN VAR+11*, VAR+12, VAR+13, END!, DRAW+9*, DRAW+10, DRAW+11, EDIT, ADD+11!
>> AGSEENLY VAR+20, READ+1, END+4
AGVETFLD VAR+15*, VAR+16, END!, DRAW+13*, DRAW+14, DRAW+15, DRAW+16, DRAW+17, DRAW+18, DRAW+19
>> AGXTERN VAR+30, READ+7, END+3
AGY VAR+31*, VAR+32, READ+9*, READ+10, END!
DA VAR+4*, END!, DRAW+2*, VET+3*, VET+10*, SVCBR+3*, SVCENT+3*, SVCSEP+3*, VIETSVC+3*, SVCCON+3*
, CLMNUM+3*, DISAB+3*, VACARD+3*, VACARD+13*, VACARD+33*, EDIT*
>> DFN VAR+2, VAR+4, VAR+8, VAR+15, VAR+16, VAR+33, READ+8, READ+11, DRAW+2, DRAW+6
, DRAW+13, DRAW+14, DRAW+20, DRAW+21, DRAW+23, DRAW+25, DRAW+26, VET+3, VET+10, SVCBR+3
, SVCENT+3, SVCSEP+3, VIETSVC+3, SVCCON+3, CLMNUM+3, DISAB+3, VACARD+3, VACARD+8, VACARD+9, VACARD+10
, VACARD+13, VACARD+18, VACARD+19, VACARD+21, VACARD+22, VACARD+23, VACARD+25, VACARD+26, VACARD+33, EDIT
, EDIT+1, EDIT+2, ADD+2, ADD+11, ADD+12
>> DFOUT VAR+29, READ+6, END+2
DIC VAR+12*, VAR+14, VAR+15, END!, DRAW+10*, DRAW+12, DRAW+13, VACARD+37!
DIE END!, VET+2*, VET+9*, SVCBR+2*, SVCENT+2*, SVCSEP+2*, VIETSVC+2*, SVCCON+2*, CLMNUM+2*, DISAB+2*
, VACARD+2*, VACARD+12*, VACARD+32*, VACARD+37!, EDIT*
DIE("NO^" VET+5*
DIR VAR+21!, READ+3!, END+5!, END+6!, VACARD+29!
DIR("?" VAR+23*, VAR+24*, VAR+25*, VAR+26*, VAR+27*
DIR("A" VAR+22*, READ+4*, VACARD+28*
DIR(0 VACARD+27*
>> DIROUT VAR+29, READ+6
DLOUT VAR+29, READ+6, END!
DQOUT VAR+30, READ+7, END!
DR VAR+13*, VAR+14, VAR+15, END!, DRAW+11*, DRAW+12, DRAW+13, VET+4*, VET+11*, SVCBR+4*
, SVCENT+4*, SVCSEP+4*, VIETSVC+4*, SVCCON+4*, CLMNUM+4*, DISAB+4*, VACARD+4*, VACARD+14*, VACARD+34*, EDIT*
DTOUT VAR+29, READ+6, END!
DUOUT VAR+29, READ+6, END+5, VET+1!, VET+7*, SVCBR+1!, SVCBR+6*, SVCENT+1!, SVCENT+6*, SVCSEP+1!
, SVCSEP+6*, VIETSVC+1!, VIETSVC+6*, SVCCON+1!, SVCCON+6*, CLMNUM+1!, CLMNUM+6*, DISAB+1!, DISAB+6*, VACARD+1~
, VACARD+6*, VACARD+11~, VACARD+16*, VACARD+31~, VACARD+36*
DUZ(2 VAR+33, READ+11, ADD+12
L TOOYUNG+1~, TOOYUNG+2*
ROUTID VAR+5*, END+1!, DRAW+4*
U VAR+12, VAR+13, VAR+14, VAR+16, DRAW+10, DRAW+11, DRAW+12, DRAW+14, DRAW+20, DRAW+21
, DRAW+23, DRAW+25, DRAW+26, VACARD+8, VACARD+9, VACARD+10, VACARD+18, VACARD+19, VACARD+21, VACARD+22
, VACARD+23, VACARD+25, VACARD+26, EDIT
X TOOYUNG~, TOOYUNG+3!
>> Y VAR+16*, VAR+30, VAR+31, READ+7, READ+8, READ+9, DRAW+14*, DRAW+21*, DRAW+22, VET+7
, SVCBR+6, SVCENT+6, SVCSEP+6, VIETSVC+6, SVCCON+6, CLMNUM+6, DISAB+6, VACARD+6, VACARD+16, VACARD+30
, VACARD+36, TOOYUNG+2*, TOOYUNG+3, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+9
, ADD+10

Marked Items

Name Field # of Occurrence
$T( VAR+5, DRAW+4
$T(@1+AG VAR+11, DRAW+9
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 |  Marked Items |  All