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

Package: IHS Patient Registration

Routine: AGED


Information

AGED ; IHS/ASDS/EFG - EDITOR MAIN ROUTINE ; MAR 19, 2010

Source Information

Source file <AGED.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Patient Registration 4 (CHKNPP,CHKRHI)^AG  UPDATE1^AGED  ($$DTEST,PROGVIEW)^AGUTILS  $$S^AGVDF  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIE  
IHS VA Utilities 1 ^XBNEW  
Kernel 1 HOME^%ZIS  

Caller Graph

Caller Graph Total: 51

Package Total Caller Graph
IHS Patient Registration 49 AGADDREG  AGAPIPAT  AGBICEDZ  AGED  AGED1  AGED10  AGED10A  AGED11  
AGED11A  AGED12  AGED13  AGED2  AGED3  AGED4  AGED42  AGED4A1  
AGED4B  AGED4PD  AGED5  AGED6  AGED62  AGED6PD  AGED7A  AGED7B  
AGED8  AGED9  AGEDBEA  AGEDBEB  AGEDBEC  AGEDBED  AGEDBEE  AGEDBEF  
AGEDBEG  AGEDBEH  AGEDBEI  AGEDGUAR  AGEDMCD  AGEDPRV  AGEDPRVB  AGEDPRVP  
AGEDTPL  AGEDWC  AGEL3  AGEL5  AGELUP2  AGELUP3  AGELUP7  AGPHADDR  
AGSEE7  
PCC New Encounter Form 1 VENPCCD  
Patient Care Component 1 APCDEA3  

Entry Points

Name Comments DBIA/ICR reference
ZMFI ;
10 ;;30;Other Patient Data
UPDATE1(AGSITE,AGZDFN,AGPTPG,AGGDA)
SCRN ;;Label DY^Label DX^File Number^Field;;Data Format for drawing EDIT screens.
11 ;;0;
UPDATE ;PEP - CALLED FROM PCC TO UPDATE AGPATCH FILE
1 ;;0;
3 ;;24;Emergency Contact/Next of Kin
2 ;;21;Religion/Tribal Data/Employment
5 ;;0;
XBDIE ;NESTED DIE
7 ;;26;Death Info/Other Names
6 ;;28;Veteran's Information
9 ;;23;CHS Eligibility & Document Summary
END ;
8 ;;0;
BICFLDS ;;35;BIC Fields
4 ;;30;Medical Sequencing

External References

Name Field # of Occurrence
DD^%DT ZMFI+15
NOW^%DTC UPDATE1+3
HOME^%ZIS AGED+3
CHKNPP^AG AGED+14
CHKRHI^AG AGED+14
UPDATE1^AGED UPDATE+2
$$DTEST^AGUTILS AGED+21
PROGVIEW^AGUTILS AGED+5
$$S^AGVDF AGED+4, AGED+19
^DIE ZMFI+9, ZMFI+13
^XBNEW UPDATE1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!
  • Line Location: AGED+4
Function Call: WRITE
  • Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR")
  • Line Location: AGED+6
Function Call: WRITE
  • Prompt: " (page ",+AG("PG"),")"
  • Line Location: AGED+8
Function Call: WRITE
  • Prompt: ?78-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U)
  • Line Location: AGED+9
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: AGED+12
Function Call: WRITE
  • Prompt: !,AGPAT
  • Line Location: AGED+15
Function Call: WRITE
  • Prompt: !,AGPAT
  • Line Location: AGED+17
Function Call: WRITE
  • Prompt: !,$$S^AGVDF("RVN"),AGPAT,$$S^AGVDF("BLN")," (RHI)",$$S^AGVDF("BLF"),$$S^AGVDF("RVF")
  • Line Location: AGED+19
Function Call: WRITE
  • Prompt: ?27,$$DTEST^AGUTILS(DFN)
  • Line Location: AGED+21
Function Call: WRITE
  • Prompt: ?55,"HRN:",AGCHRT
  • Line Location: AGED+22
Function Call: WRITE
  • Prompt: ?66,$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PEND. VERIF",1:"NONE")
  • Line Location: AGED+26
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: AGED+27
Function Call: WRITE
  • Prompt: !?$P($T(@AG("PG")),";",3),$P($T(@AG("PG")),";",4)
  • Line Location: AGED+30
Function Call: WRITE
  • Prompt: !?30,"SUMMARY COVERAGE"
  • Line Location: AGED+33
Function Call: WRITE
  • Prompt: !?78-$L(CATHD)/2,CATHD
  • Line Location: AGED+35
Routine Call
  • %ZIS
  • Line Location:
    • AGED+3
Routine Call
  • DIE
  • Line Location:
    • ZMFI+9
    • ZMFI+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGPATCH( XBDIE+1*, ZMFI+3*
^AUPNPAT - [#9000001] AGED+25, ZMFI+7*
^AUTTSITE(1 ZMFI+2
^DIC(4 - [#4] AGED+9
^DPT - [#2] AGED+13
^XTMP("AGHL7" ZMFI+18*
^XTMP("AGHL7AG" ZMFI+19*

Label References

Name Line Occurrences
END AGED+28, UPDATE+1, UPDATE1+2, ZMFI+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % UPDATE1+4
>> AG("ED" END+1!
>> AG("NOUPDATE" UPDATE+1
>> AG("PG" AGED+8, AGED+23, AGED+28, AGED+29, AGED+31, AGED+34
>> AGCHRT AGED+22
AGDTS END+1!, UPDATE1+4*, XBDIE+1, ZMFI+3
>> AGELSTS AGED+25*, AGED+26
AGGDA UPDATE1~, ZMFI+3
>> AGLINE("-" AGED+10*
>> AGLINE("EQ" AGED+11*, AGED+12, AGED+27
>> AGPAT AGED+13*, AGED+15, AGED+17, AGED+19
AGPTPG UPDATE1~, UPDATE1+2!, ZMFI+2, ZMFI+3, ZMFI+4!, ZMFI+20!
>> AGSEENLY AGED+6
AGSITE UPDATE1~, XBDIE+1, ZMFI+3
>> AGUPDT ZMFI+16*
AGZDFN UPDATE1~, UPDATE1+2!, XBDIE+1, ZMFI+3, ZMFI+7, ZMFI+8, ZMFI+12, ZMFI+20!
>> APMFVAR UPDATE1+1
>> CATHD AGED+31, AGED+34, AGED+35
>> DA ZMFI+8*, ZMFI+12*, ZMFI+18, ZMFI+19
>> DFN AGED+13, AGED+21, AGED+25, UPDATE+2
DIE END+1!, ZMFI+5*, ZMFI+10*
>> DIU(0 UPDATE1+1
DR END+1!, ZMFI+6*, ZMFI+11*
DT ZMFI+14
DUZ AGED+5, UPDATE1+1, ZMFI+7
DUZ(2 AGED+9, UPDATE+2, ZMFI+18, ZMFI+19
IOF AGED+3
>> RHIFLAG AGED+15, AGED+16, AGED+17, AGED+18, AGED+19
>> SEQHD AGED+8
U AGED+9, AGED+13, AGED+25, ZMFI+2, ZMFI+7
>> Y ZMFI+14*, ZMFI+16

Marked Items

Name Field # of Occurrence
$T(@AG(1) AGED+30
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 |  Marked Items |  All