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

Package: IHS Patient Registration

Routine: AGFACE1


Information

AGFACE1 ; IHS/ASDS/EFG - FACE SHEET (DEMOGRAPHIC DATA) ;

Source Information

Source file <AGFACE1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient Registration 2 ^AGDICLK  $$RACE^AGUTL  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
END
L2

External References

Name Field # of Occurrence
^AGDICLK AGFACE1+4, AGFACE1+5, AGFACE1+6, AGFACE1+7, AGFACE1+10, L2+9, L2+10, L2+11, L2+13, L2+14
, L2+15, L2+17, L2+18, L2+19, L2+20, L2+21, L2+24, L2+25, L2+26, L2+27
, L2+28
$$RACE^AGUTL L2+3
$$GET1^DIQ L2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"BIRTHPLACE: "
  • Line Location: AGFACE1+4
Function Call: WRITE
  • Prompt: AG("LKPRINT"),", "
  • Line Location: AGFACE1+4
Function Call: WRITE
  • Prompt: !,"RELIGION: "
  • Line Location: AGFACE1+6
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: AGFACE1+6
Function Call: WRITE
  • Prompt: ?47,"TRIBE ENROLL #: "
  • Line Location: AGFACE1+7
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Line Location: AGFACE1+7
Function Call: WRITE
  • Prompt: !,AG("-"),!,"OTHER TRIBES:",?50,"QUANTUM:"
  • Line Location: AGFACE1+9
Function Call: WRITE
  • Prompt: !?5,AG("LKPRINT")
  • Line Location: AGFACE1+10
Function Call: WRITE
  • Prompt: ?53,AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: AGFACE1+10
Function Call: WRITE
  • Prompt: !,AG("-"),!
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !?5,$P(AGRACE,U,AGCNT+1)
  • Line Location: L2+6
Function Call: WRITE
  • Prompt: "FATHER: "
  • Line Location: L2+9
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+9
Function Call: WRITE
  • Prompt: ?40,"BIRTHPLACE: "
  • Line Location: L2+9
Function Call: WRITE
  • Prompt: !,"MOTHER: "
  • Line Location: L2+13
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+13
Function Call: WRITE
  • Prompt: ?40,"BIRTHPLACE: "
  • Line Location: L2+13
Function Call: WRITE
  • Prompt: !,AG("-"),!,"EM CONTACT: "
  • Line Location: L2+17
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+17
Function Call: WRITE
  • Prompt: " (",AG("LKPRINT"),")"
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+17
Function Call: WRITE
  • Prompt: ?51,"EM PHONE: "
  • Line Location: L2+18
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+18
Function Call: WRITE
  • Prompt: !,"EM ADDRESS:"
  • Line Location: L2+18
Function Call: WRITE
  • Prompt: !?5,AG("LKPRINT")
  • Line Location: L2+19
Function Call: WRITE
  • Prompt: !,AG("-"),!,"NEXT-OF-KIN: "
  • Line Location: L2+24
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+24
Function Call: WRITE
  • Prompt: " (",AG("LKPRINT"),")"
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+24
Function Call: WRITE
  • Prompt: ?50,"NOK PHONE: "
  • Line Location: L2+25
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: L2+25
Function Call: WRITE
  • Prompt: !,"NOK ADDRESS:"
  • Line Location: L2+25
Function Call: WRITE
  • Prompt: !?5,AG("LKPRINT")
  • Line Location: L2+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AGFAC - [#9009061] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] AGFACE1+8, AGFACE1+10
^DIC(5 - [#5] L2+11, L2+12, L2+15, L2+16
^DPT - [#2] L2+23

Label References

Name Line Occurrences
END L2+23
L2 AGFACE1+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG AGFACE1+10*, L2+20*, L2+21*, L2+22, L2+27*, L2+28*, L2+29
>> AG("-" AGFACE1+9, L2, L2+7, L2+17, L2+24
>> AG("DRENT1" AGFACE1+10*
>> AG("LKDATA" L2+11, L2+12, L2+15, L2+16
>> AG("LKPRINT" AGFACE1+4, AGFACE1+5, AGFACE1+6, AGFACE1+7, AGFACE1+10, L2+9, L2+10, L2+13, L2+14, L2+17
, L2+18, L2+19, L2+20, L2+21, L2+24, L2+25, L2+26, L2+27, L2+28
AGCNT L2+3~, L2+6*
>> AGOPT(8 AGFACE1+8
AGRACE L2+3~*, L2+4, L2+6
>> DA AGFACE1+4*, AGFACE1+10*
>> DFN AGFACE1+4, AGFACE1+8, AGFACE1+10, L2+3, L2+23
>> DIC AGFACE1+4*, AGFACE1+7*, AGFACE1+10*, L2*, L2+10*, L2+13*, L2+14*, L2+17*, L2+18*, L2+19*
, L2+24*, L2+25*, L2+26*
>> DR AGFACE1+4*, AGFACE1+5*, AGFACE1+6*, AGFACE1+7*, AGFACE1+10*, L2+9*, L2+10*, L2+11*, L2+13*, L2+14*
, L2+15*, L2+17*, L2+18*, L2+19*, L2+20*, L2+21*, L2+24*, L2+25*, L2+26*, L2+27*
, L2+28*
DUZ(2 L2+2
U L2+6, L2+12, L2+16, L2+23
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All