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

Package: Registration

Routine: DGPSEUDO


Information

DGPSEUDO ;ALB/ERC - REPORTS FOR PSEUDO SSN ; 1/17/06 9:58am

Source Information

Source file <DGPSEUDO.m>

Entry Points

Name Comments DBIA/ICR reference
TSK1 ;
RPT1 ;
QUESVET ;ask user if report should be veterans, non-veterans, or both
QUESREAS ;ask user which Pseudo SSN Reason, or all
LOOP1 ;
PSEU1 ;
FY(DGFY) ;determine if user enrollee date is current FY or later
HDR1 ;
REP1(DGXVET,DGXREAS) ;
VET(DGXVET) ;
REAS(DGXVET,DGXRR) ;
PAUSE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Job Terminated!"
  • Line Location: TSK1+8
Function Call: WRITE
  • Prompt: !,DGTXT
  • Line Location: TSK1+15
Function Call: WRITE
  • Prompt: !!?25,"****NO RECORDS TO REPORT****"
  • Line Location: RPT1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT1+7
Function Call: WRITE
  • Prompt: !!!,?10,"REPORT OF PATIENTS WITH PSEUDO SOCIAL SECURITY NUMBERS"
  • Line Location: QUESVET+2
Function Call: WRITE
  • Prompt: !?5,"This report excludes deceased patients, non-user enrollees and"
  • Line Location: QUESVET+3
Function Call: WRITE
  • Prompt: !?5,"with no Integration Control Numbers (ICN).",!
  • Line Location: QUESVET+4
Function Call: WRITE
  • Prompt: !
  • Line Location: QUESREAS+2
Function Call: WRITE
  • Prompt: !!,"Scanning file...."
  • Line Location: LOOP1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !?((IOM-44)\2),"Patients with Pseudo Social Security Numbers",?70,"Page:"_DGPAGE
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !?((IOM-DGL)\2),DGT
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !?62,"Date: "_$G(DGDATE)
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !!,"PATIENT",?32,"PSEUDO SSN",?44,"BIRTHDATE",?56,"PRIMARY ELIGIBILITY CODE"
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REP1+9
Function Call: WRITE
  • Prompt: !!?5,"Report for "_$S(DGV="VET":"Veterans",1:"Non-Veterans")
  • Line Location: REP1+11
Function Call: WRITE
  • Prompt: !!?29,"Patients with Pseudo SSNs: "_DGCT
  • Line Location: REP1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: REP1+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REAS+5
Function Call: WRITE
  • Prompt: !!?10,"Pseudo SSN Reason: "_$S(DGXRR="NULL":"<NONE ENTERED>",1:DGXRR)
  • Line Location: REAS+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REAS+13
Function Call: WRITE
  • Prompt: !,DGNAM,?32,$P(DGN,U),?44,$P(DGN,U,2)
  • Line Location: REAS+16
Function Call: WRITE
  • Prompt: ?56,$E($P(DGN,U,3),1,23)
  • Line Location: REAS+18
Function Call: WRITE
  • Prompt: !?46,"Subtotal: "_^TMP("DGEVC",$J,"COUNT",DGXVET,DGXRR)
  • Line Location: REAS+20

FileMan Files Accessed Via FileMan Db Call

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