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

Package: Mental Health

Routine: YSDGDEM


Information

YSDGDEM ;ALB/ASF,ALB/XAK,ALB/MJK-Patient Demographic Lookup ;3/28/90 14:09 ;07/28/93 15:36

Source Information

Source file <YSDGDEM.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZIS  $$FMTE^XLFDT  
Mental Health 2 ^YSDGDEM0  $$ZIP4^YSPP  
Registration 1 (DEM,PID)^VADPT  
VA FileMan 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
P ;
EN ; Called by routine YSPPJ

External References

Name Field # of Occurrence
^%ZIS EN+4
^DIC P+1
DEM^VADPT EN+1
PID^VADPT EN+1
$$FMTE^XLFDT EN+11
^YSDGDEM0 EN+12
$$ZIP4^YSPP EN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1),?32,"SSN: ",YSSSN,?58,"DOB: ",$P(VADM(3),U,2)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,$P(PTI(.11),U),?32,"C-#: ",$S($D(^DPT(YSDFN,.31)):$P(^(.31),U,3),1:"Unknown"),?53,"Religion: ",$E($E($G(^DIC(13,+$P(PTI(0),U,8),0)),U),1,17)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$P(PTI(.11),U,4),?42,"Elig: "
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: $P(^(0),U)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(5,+$P(PTI(.11),U,5),0)),U)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: " ",$$ZIP4^YSPP(+YSDFN,1),?42,"HB:",$P(PTI(.362),U,2),?55,"A&A:",$P(PTI(.362),U)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"PHONE: ",$P(PTI(.13),U),?42,"***ELIGIBILITY ",$S(PTI(.361)="P":"PENDING VERIFICATION",PTI(.361)="R":"PENDING RE-VERIFICATION",PTI(.361)="V":"VERIFIED",1:"NOT VERIFIED"),"***"
  • Line Location: EN+10
Routine Call
  • DIC
  • Line Location:
    • P+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(13 - [#13] EN+6
^DIC(5 - [#5] EN+8
^DIC(8 - [#8] EN+7
^DPT - [#2] EN+2, EN+3, EN+6, EN+7

Label References

Name Line Occurrences
EN P+1
P P+1

Naked Globals

Name Field # of Occurrence
^( EN+2, EN+3, EN+6, EN+7
^(0 EN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN+1*
>> DIC P+1*
>> DIC(0 P+1*
DT EN+3
>> I EN+2*
IO EN+4
IOF EN+4, EN+5
IOP EN+4*!
>> PTI( EN+2*, EN+3*, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11
>> PTI(0 EN+2*, EN+6
U EN+2, EN+3, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11
>> VA("PID" EN+2
>> VADM(1 EN+5
>> VADM(3 EN+5
>> X EN+3*
>> Y P+1
YSADFL EN+3*, EN+11!
>> YSDFN P+1*, EN+1, EN+2, EN+3, EN+6, EN+7, EN+9
YSEND EN+11*!
>> YSSSN EN+2*, EN+5
Info |  Source |  Call 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