Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call