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 |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 GETS^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG PATIENT PSEUDO SSN REPORT  DGPSEU2  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS TSK1+8
HOME^%ZIS TSK1+8, RPT1+9
^%ZISC TSK1+8, RPT1+9
^%ZTLOAD TSK1+13
GETS^DIQ PSEU1+3
^DIR QUESVET+13, QUESREAS+12, PAUSE+4

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
Routine Call
  • %ZIS
  • Line Location:
    • TSK1+8
    • RPT1+9
Routine Call
  • DIR
  • Line Location:
    • QUESVET+13
    • QUESREAS+12
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • TSK1+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR1+9
^DPT - [#2] LOOP1+18
^DPT("SSN" LOOP1+14, LOOP1+17
^TMP("DGEVC" TSK1+4!, RPT1+10!, LOOP1+4!, LOOP1+5*, LOOP1+6*, LOOP1+7*, LOOP1+8*, LOOP1+9*, LOOP1+10*, LOOP1+11*
, LOOP1+12*, PSEU1+2, PSEU1+23*, PSEU1+24*, PSEU1+25*, REP1+5, REAS+7, REAS+9, REAS+10, REAS+15
, REAS+20

Label References

Name Line Occurrences
$$FY PSEU1+14
HDR1 RPT1+6, REP1+10, REAS+6, REAS+14
LOOP1 RPT1+5
PAUSE RPT1+7, REP1+7, REP1+15, REAS+3, REAS+11
PSEU1 LOOP1+19
QUESREAS TSK1+7
QUESVET TSK1+6
REAS VET+5, VET+7
REP1 RPT1+8
VET REP1+12, REP1+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS TSK1+3~, TSK1+8*
DGARR PSEU1+1~, PSEU1+5!, PSEU1+6!, PSEU1+8!, PSEU1+11!, PSEU1+13!, PSEU1+15!, PSEU1+17!, PSEU1+21!
DGARR(2 PSEU1+5, PSEU1+6, PSEU1+7, PSEU1+9, PSEU1+12, PSEU1+16, PSEU1+18, PSEU1+19, PSEU1+20
DGBOTH QUESVET+1~
DGC RPT1+1~, RPT1+3*, RPT1+7, PSEU1+22*, PSEU1+24, REP1+14
DGCT REP1+1~, REP1+2*, REP1+14, REAS+19*
DGDATE HDR1+1~, HDR1+9*, HDR1+10
DGDFN LOOP1+3~, LOOP1+16*, LOOP1+17*, LOOP1+18, PSEU1+2, PSEU1+3, PSEU1+5, PSEU1+6, PSEU1+7, PSEU1+9
, PSEU1+12, PSEU1+16, PSEU1+18, PSEU1+19, PSEU1+20, PSEU1+23, REAS+1~, REAS+2*, REAS+10*, REAS+15
DGDOB PSEU1+1~, PSEU1+18*, PSEU1+23
DGEC PSEU1+1~, PSEU1+19*, PSEU1+23
DGERR PSEU1+1~, PSEU1+4!
DGFY FY~, FY+4
DGL HDR1+1~, HDR1+7*, HDR1+8
DGLINE HDR1+1~
DGN REAS+1~, REAS+15*, REAS+16, REAS+17*, REAS+18
DGNAM PSEU1+1~, PSEU1+16*, PSEU1+17, PSEU1+23, REAS+1~, REAS+8*, REAS+9*, REAS+10, REAS+15, REAS+16
DGPAGE RPT1+1~, RPT1+2*, HDR1+3*, HDR1+4
DGQ TSK1+1~, REP1+6, REP1+7, REP1+15, VET+4, REAS+3, REAS+9, REAS+10, REAS+11, PAUSE+2*
, PAUSE+5*
DGQUIT TSK1+1~, TSK1+5*, TSK1+6, TSK1+7, QUESVET+14*, QUESREAS+13*
DGR VET+1~, VET+3*, VET+5
DGREAS TSK1+1~
DGREASON TSK1+1~, PSEU1+1~, PSEU1+9*, PSEU1+10*, PSEU1+11, PSEU1+23, PSEU1+25
DGSSN PSEU1+1~, PSEU1+20*, PSEU1+21, PSEU1+23
DGT HDR1+1~, HDR1+5*, HDR1+6*, HDR1+7, HDR1+8
DGTXT TSK1+1~, TSK1+14*, TSK1+15
DGUSER PSEU1+1~, PSEU1+12*, PSEU1+13, PSEU1+14*, PSEU1+15
DGV REP1+1~, REP1+4*, REP1+5, REP1+11, REP1+12
DGVET TSK1+1~, PSEU1+1~, PSEU1+7*, PSEU1+8, PSEU1+13, PSEU1+15, PSEU1+23, PSEU1+25
DGX LOOP1+3~, LOOP1+13*, LOOP1+14*, LOOP1+15, LOOP1+17, PSEU1+21
DGXREAS TSK1+1~, RPT1+8, QUESREAS+14*, PSEU1+11, REP1~, VET+2, VET+6, VET+7, REAS+20
DGXRR REAS~, REAS+7, REAS+9, REAS+10, REAS+15, REAS+20
DGXVET TSK1+1~, RPT1+4, RPT1+8, QUESVET+15*, PSEU1+8, REP1~, REP1+3, REP1+13, VET~, VET+5
, VET+7, REAS~, REAS+7, REAS+9, REAS+10, REAS+15, REAS+20
DGXXVET RPT1+1~, RPT1+4*, HDR1+5
DGYEAR FY+1~, FY+2*, FY+3*, FY+4
DGZ HDR1+12~, HDR1+14*
DIR QUESVET+1~, QUESREAS+1~, PAUSE+1~
DIR("?" QUESVET+11*, QUESREAS+10*
DIR("A" QUESVET+5*, QUESVET+6*, QUESVET+7*, QUESVET+8*, QUESVET+9*, QUESREAS+3*, QUESREAS+4*, QUESREAS+5*, QUESREAS+6*, QUESREAS+7*
, QUESREAS+8*, QUESREAS+9*
DIR("B" QUESVET+10*
DIR(0 QUESVET+12*, QUESREAS+11*, PAUSE+3*
DIROUT QUESVET+1~, QUESVET+14, QUESREAS+1~, QUESREAS+13
DIRUT QUESVET+1~, QUESVET+14, QUESREAS+1~, QUESREAS+13, PAUSE+5
DT FY+2, FY+3, HDR1+9
IO TSK1+2~, LOOP1+2
IO("Q" TSK1+9
IO(0 LOOP1+1
IOBS TSK1+2~
IOF TSK1+2~, HDR1+2, REP1+9, REAS+5, REAS+13
IOHG TSK1+2~
IOM TSK1+2~, HDR1+4, HDR1+8, HDR1+14
ION TSK1+2~
IOPAR TSK1+2~
IOS TSK1+3~
IOSL TSK1+3~, REP1+7, REP1+8, REAS+3, REAS+4, REAS+11, REAS+12
IOST TSK1+3~, LOOP1+1, HDR1+2, REP1+7, REP1+15, REAS+3, REAS+11
IOT TSK1+3~
IOUPAR TSK1+3~
IOXY TSK1+3~
POP TSK1+2~, TSK1+8
U REAS+16, REAS+17, REAS+18
X QUESVET+1~, QUESVET+15, QUESREAS+1~, QUESREAS+14, PAUSE+1~
Y HDR1+1~, HDR1+9*, PAUSE+1~, PAUSE+5
ZTDESC TSK1+2~, TSK1+11*
ZTDTH TSK1+2~
ZTIO TSK1+2~
ZTRTN TSK1+2~, TSK1+10*
ZTSAVE TSK1+3~
ZTSAVE("DGXREAS" TSK1+12*
ZTSAVE("DGXVET" TSK1+12*
ZTSK TSK1+2~, TSK1+14
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 |  All