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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMDIFF,$$NOW)^XLFDT  
Registration 2 (ADD,DEM,ELIG,REG)^VADPT  ADM^VADPT2  
VA FileMan 2 (NOW,YX)^%DTC  ^DIR  
Scheduling 1 $$GETLAST^SDOE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Clinical Information Resource Network 1 RGPR PRE-IMP SSN REPORT  

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

External References

Name Field # of Occurrence
NOW^%DTC DQ+2, HEADER+7
YX^%DTC DQ+2, HEADER+7
^%ZIS RGPRSSN+19
HOME^%ZIS RGPRSSN+23
^%ZISC EXIT
^%ZTLOAD RGPRSSN+23
^DIR HEADER+3
$$GETLAST^SDOE LTD+26
ADD^VADPT LST3+4
DEM^VADPT LST3+4
ELIG^VADPT LST3+4, SETGBL+2
REG^VADPT LTD+20
ADM^VADPT2 LTD+13
$$FMDIFF^XLFDT ACTIVE+6
$$NOW^XLFDT ACTIVE+5

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
Routine Call
  • DIR
  • Line Location:
    • HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • RGPRSSN+19
Routine Call
  • %ZIS
  • Line Location:
    • RGPRSSN+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("ATID3" LTD+17
^DIC(8 - [#8] GETECODE+2
^DPT - [#2] DQ+12
^DPT("B" DQ+9, DQ+11
^SCE - [#409.68] LTD+27
^TMP($J RGPRSSN+20!, LST1LST2LST3LST3+1, EXIT+2!, SETGBL+5*
^UTILITY("VARP" LTD+20!, LTD+21!

Label References

Name Line Occurrences
$$ACTIVE LST3+6, SETGBL+4
$$GETECODE LST2
$$LTD ACTIVE+2
$$SETGBL DQ+15, DQ+16, DQ+17, DQ+18, DQ+19, DQ+20, DQ+21, DQ+22, DQ+23, DQ+24
DQ+25, DQ+26
EXIT RGPRSSN+19, LST1LST2LST3
HEAD2 LST2LST3
HEADER LST1LST2LST3
LST1 LST2
LST2 LST3
LST3 LST3+8
LTDQ LTD+9, LTD+13

Naked Globals

Name Field # of Occurrence
^("I" LTD+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RGPRSSN+19*, EXIT+4!
ACTIV1 LST*, LST1*, LST2LST3LST3+1, EXIT+3!, HEADER+9
ACTIVITY LST3+6*, EXIT+3!, SETGBL+4*, SETGBL+5
BREF DQ+7*, DQ+13*, DQ+28, EXIT+3!
DFN LST3+4*, SETGBL+2*, LTD~, LTD+9, LTD+17, LTD+26, ACTIVE~, ACTIVE+2
DIFF ACTIVE+1~, ACTIVE+6*, ACTIVE+8
DIR HEADER+3!
DIR(0 HEADER+2*
DT LTD+13, LTD+17
DTOUT DQ~, LST1LST2LST3HEADER+4, HEAD2+1
DUOUT DQ~, LST1LST2LST3HEADER+4, HEAD2+1
ECODE LST3+2*, LST3+4*, LST3+7, EXIT+3!, SETGBL+1*, SETGBL+2*, SETGBL+3*, SETGBL+5
ECODE1 LST*, LST2*, LST3LST3+1, EXIT+3!, GETECODE+2
IO DQ+1, HEADER+1
IO("Q" RGPRSSN+21, RGPRSSN+23!
>> IO(0 HEADER+1
IOF DQ+1, HEADER+6
IOSL LST2LST3
IOST HEADER+1
LTD LTD+6~, LTD+9*, LTD+13*, LTD+17*, LTD+20*, LTD+27*, LTDQ+1, ACTIVE+1~, ACTIVE+2*, ACTIVE+3
, ACTIVE+4, ACTIVE+6
NAME DQ+8*, DQ+9*, DQ+11, LST3+4*, EXIT+3!, SETGBL+5
NAME1 LST*, LST3*, LST3+1, LST3+7, EXIT+3!
NODE DQ+12*, EXIT+3!
NODE1 EXIT+4!
NODE2 EXIT+3!
NODE3 EXIT+3!
NODE4 EXIT+4!, GETECODE+2*
OPIEN LTD+26~*, LTD+27
PHONE LST3+2*, LST3+4*, LST3+7, EXIT+4!
POP RGPRSSN+19, EXIT+4!
PRNTCODE DQ*, EXIT+4!, GETECODE+1*, GETECODE+2*, GETECODE+3, HEAD2+2, HEAD2+3
REFNO DQ+10*, DQ+11*, DQ+12, DQ+13, EXIT+4!, SETGBL+2, SETGBL+4, SETGBL+5
REFNO1 LST*, LST3+1*, LST3+4, LST3+6, EXIT+4!
RGFS DQ*, EXIT+4!, GETECODE+3*, HEAD2+2, HEAD2+3
RGPRNTCO DQ*, EXIT+4!, HEAD2+2, HEAD2+3*
RGSSN DQ+12*, DQ+14*, DQ+15, DQ+16, DQ+17, DQ+18, DQ+19, DQ+20, DQ+21, DQ+22
DQ+23, DQ+24, DQ+25, DQ+26, LST3+2*, LST3+4*, LST3+7, EXIT+4!
SCRATCH DQ+15*, DQ+16*, DQ+17*, DQ+18*, DQ+19*, DQ+20*, DQ+21*, DQ+22*, DQ+23*, DQ+24*
DQ+25*, DQ+26*, LST2*, EXIT+4!
TODAY ACTIVE+1~, ACTIVE+5*, ACTIVE+6
U LST3+4, SETGBL+2, LTD+20
VADM LST3+4!, LST3+5!
VADM(1 LST3+4
VADM(2 LST3+4
VADMVT LTD+13!, LTD+14!
VAEL LST3+4!, LST3+5!, SETGBL+2!
VAEL(1 LST3+4, SETGBL+2
VAERR LTD+13!, LTD+14!, LTD+21!
VAHOW LST3+4!, LST3+5!
VAINDT LTD+13!, LTD+14!
VAPA LST3+4!, LST3+5!
VAPA(8 LST3+4
VAPTYP LST3+4!, LST3+5!
VAROOT LST3+4!, LST3+5!, LTD+20!
VARP LTD+20!, LTD+21!
VARP("F" LTD+20*
VATEST LST3+4!, LST3+5!
X LTD+6~, LTD+20*
Y DQ+3, HEADER+8!
ZTDESC RGPRSSN+22*, EXIT+4!
>> ZTQUEUED EXIT+1
ZTREQ EXIT+1*, EXIT+4!
ZTRTN RGPRSSN+22*, EXIT+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All