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
Print Page as PDF
Routine: RGPRSSN

Package: Clinical Information Resource Network

Routine: RGPRSSN


Information

RGPRSSN ;WAS/FHM-MPI/PD PSEUDO/MISSING SSN REPORT ;6/25/98

Source Information

Source file <RGPRSSN.m>

Entry Points

Name Comments DBIA/ICR reference
DQ
LST
LST1
LST2
LST3
EXIT
SETGBL()
GETECODE()
LTD(DFN)
LTDQ ;
ACTIVE(DFN) ;
HEADER ;PRINT REPORT HEADER
HEAD2 ;SUB HEADER

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report will provide a list of:"
  • Line Location: RGPRSSN+9
Function Call: WRITE
  • Prompt: !,"(1) any B Cross-references (there is no 'zero' node but a B x-ref)"
  • Line Location: RGPRSSN+10
Function Call: WRITE
  • Prompt: !," on the patient file,"
  • Line Location: RGPRSSN+11
Function Call: WRITE
  • Prompt: !,"(2) patients with Pseudo SSNs who have not had activity within the past 3 years,"
  • Line Location: RGPRSSN+12
Function Call: WRITE
  • Prompt: !,"(3) patients with Pseudo SSNs who have had activity within the past 3 years.",!
  • Line Location: RGPRSSN+13
Function Call: WRITE
  • Prompt: !,"The Reports are sorted by Primary Eligibility Code. The report can"
  • Line Location: RGPRSSN+14
Function Call: WRITE
  • Prompt: !,"be queued if desired."
  • Line Location: RGPRSSN+15
Function Call: WRITE
  • Prompt: !,!,"For MPI/PD purposes, general advice is to concentrate first on"
  • Line Location: RGPRSSN+16
Function Call: WRITE
  • Prompt: !,"getting correct SSNs for the patients who HAVE had activity within"
  • Line Location: RGPRSSN+17
Function Call: WRITE
  • Prompt: !,"the past 3 years.",!
  • Line Location: RGPRSSN+18
Function Call: WRITE
  • Prompt: @IOF,!,"MPI/PD Report of Pseudo, missing & potentially false SSNs "
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: ?55,Y,!
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: !,"Bad B Cross References Report"
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !,"Please contact IRM for assistance with bad B Cross references."
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !,"----------------------------------------------------------------------------"
  • Line Location: DQ+6
Function Call: WRITE
  • Prompt: !,"B Cross Reference with no 0 Node in DPT: DFN= ",REFNO
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !,"*** No Bad B Cross References Found in your account.***"
  • Line Location: DQ+28
Function Call: WRITE
  • Prompt: !
  • Line Location: LST2+0
Function Call: WRITE
  • Prompt: !,?10,ECODE,?20,NAME1,?54,RGSSN,?65,PHONE
  • Line Location: LST3+7
Function Call: WRITE
  • Prompt: !,PRNTCODE
  • Line Location: GETECODE+3
Function Call: WRITE
  • Prompt: @IOF,!,"MPI/PD Report of Pseudo, missing & potentially false SSNs "
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?55,Y,!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,?20,"Patient activity within past 3 years = ",$G(ACTIV1)
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,?1,"Primary"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,?1,"Elig Code"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,?10,"Elig.",?20,"Name",?54,"SSN",?65,"Home Phone"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"-----------------------------------------------------------------------------"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,PRNTCODE
  • Line Location: HEAD2+2
Function Call: WRITE
  • Prompt: !,PRNTCODE
  • Line Location: HEAD2+3
Info |  Source |  Entry Points |  Interaction Calls