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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGRPTPDP

Package: IHS Patient Registration

Routine: AGRPTPDP


Information

AGRPTPDP ;IHS/SD/TPF - POTENTIAL DUPLICATE PATIENT REPORT

Source Information

Source file <AGRPTPDP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Patient Registration 2 $$CHKDEATH^AGEDERR  (CENTER,WRAP)^AGUTILS  
VA Fileman 2 NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
SELCRIT(CRITERIA) ;EP
ACTFAC(FAC) ;EP - IS THE FACILITY ACTIVE?
EN ;EP
ASKACTDE ;EP
ASKAGAIN ;EP
ASKLOC ;EP
A1
A3
A2
REPORT(CRITERIA) ;EP
A4
CRITTXT ;;1:NAME^2:DOB^3:SSN^4:COM^5:MAIDEN
EXIT ;CLEANUP VARS
QUE ;EP
HDR(CRITERIA) ;EP - MAIN HEADER
ASKCRIT ;EP - ASK FOR CRITERIA
SHOWCRIT(CRITERIA) ;EP - DISPLAY CRITERIA SELECTED
ASKDEV ;EP
MAIN(CRITERIA) ;MAIN

External References

Name Field # of Occurrence
NOW^%DTC MAIN+2
^%ZIS ASKDEV+2
^%ZISC A4+8
^%ZTLOAD QUE+10
$$CHKDEATH^AGEDERR MAIN+7, REPORT+10
CENTER^AGUTILS HDR+5, HDR+7, HDR+11, HDR+13, HDR+15
WRAP^AGUTILS HDR+9
^DIR EN+24, ASKAGAIN+13, A1+6, ASKLOC+6, ASKACTDE+6, REPORT+21, REPORT+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"This report is intended to help identify duplicate patient"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"records in the Registration system. The system can check"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"against the following fields:"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"-Last Name and First initial of Patient"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"-Patient Date of Birth"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"-Social Security Number"
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"-Current Community"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"-Mother's Maiden Name"
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"Choose at least two factors that you wish to check against for potential"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"duplicates. The system will also prompt to check over active"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"locations and inactive/deceased patients."
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASKCRIT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKCRIT+2
Function Call: WRITE
  • Prompt: !,"Please choose at least two criteria in which you want this report to run:"
  • Line Location: ASKCRIT+3
Function Call: WRITE
  • Prompt: !,"CRITERIA ALREADY SELECTED"
  • Line Location: ASKAGAIN+15
Function Call: WRITE
  • Prompt: !,"NOT ENOUGH CRITERIA SELECTED!"
  • Line Location: ASKAGAIN+16
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+1
Function Call: WRITE
  • Prompt: !,"DUPLICATE CHECK COMPLETE "
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+35
Function Call: WRITE
  • Prompt: !!,"You have selected "
  • Line Location: SHOWCRIT+2
Function Call: WRITE
  • Prompt: " and "
  • Line Location: SHOWCRIT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,RPTREQ,?69,"page ",PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: "PATIENT NAME",?26,"BIRTH DATE",?38,"MOTHERS MAIDEN",?54,"CUR. COMMUNITY",?69,"LOC",?73,"HRN"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,"============",?26,"==========",?38,"==============",?54,"==============",?69,"===",?73,"======"
  • Line Location: HDR+18
Routine Call
  • DIR
  • Line Location:
    • EN+24
    • ASKAGAIN+13
    • A1+6
    • ASKLOC+6
    • ASKACTDE+6
    • REPORT+21
    • REPORT+35
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" EN+3
^AUPNPAT - [#9000001] MAIN+6, MAIN+19, REPORT+15, REPORT+26, REPORT+29, REPORT+31
^AUTTLOC - [#9999999.06] REPORT+28, ACTFAC+1
^DD("DD" MAIN+2, REPORT+12
^DPT - [#2] MAIN+10, MAIN+15, MAIN+17, MAIN+21, REPORT+9, REPORT+11, REPORT+14
^VA(200 - [#200] EN+2
^XTMP( MAIN+1!, MAIN+23*, MAIN+24*, REPORT+5, REPORT+7, REPORT+8

Label References

Name Line Occurrences
$$ACTFAC REPORT+27
A1 A2
A2 A3
A3 A4+1
ASKACTDE A3
ASKAGAIN ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+21
ASKCRIT ASKAGAIN+17, ASKAGAIN+18
ASKDEV A4
ASKLOC A2
CRITTXT ASKAGAIN+18
HDR REPORT+3, REPORT+21, REPORT+22
MAIN A4+4
QUE A4+2
REPORT MAIN+26
SELCRIT ASKAGAIN+17, ASKAGAIN+18
SHOWCRIT A1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAIN+2
>> %ZIS ASKDEV+1*
>> AGLINE("-" EN+7*
>> AGLINE("EQ" EN+6*
>> ALLLOC ASKLOC+1*, ASKLOC+7*
>> COM MAIN+4*, MAIN+19*, MAIN+22
COUNT EXIT+1!
CRITERIA ASKCRIT+4*, ASKAGAIN+2, ASKAGAIN+4, ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+17, ASKAGAIN+18*, ASKAGAIN+19*, ASKAGAIN+20*, SELCRIT~
, A1, A4+4, MAIN~, MAIN+9, MAIN+14, MAIN+16, MAIN+18, MAIN+20, MAIN+26, REPORT~
, REPORT+3, REPORT+21, REPORT+22, SHOWCRIT~, SHOWCRIT+3, HDR~
>> CRITSTR SHOWCRIT+1*, SHOWCRIT+4*, SHOWCRIT+6*, HDR+9
>> CURCOM REPORT+15*, REPORT+18*, REPORT+24
>> DECEASE MAIN+7*, MAIN+8, REPORT+10*, REPORT+24
DIR EN+22!, ASKAGAIN+1!, A1+2!, ASKLOC+2!, ASKACTDE+2!, REPORT+21!, REPORT+35!
DIR("A" ASKAGAIN+2*, ASKAGAIN+3*, A1+3*, ASKLOC+3*, ASKACTDE+3*
DIR("B" ASKAGAIN+4*, A1+4*, ASKLOC+4*, ASKACTDE+4*
DIR("L" ASKAGAIN+6*, ASKAGAIN+7*, ASKAGAIN+8*, ASKAGAIN+9*, ASKAGAIN+10*, ASKAGAIN+11*, ASKAGAIN+12*
DIR(0 EN+23*, ASKAGAIN+4*, ASKAGAIN+5*, A1+5*, ASKLOC+5*, ASKACTDE+5*, REPORT+21*, REPORT+35*
DIROUT ASKAGAIN+1!, ASKAGAIN+14
DIRUT ASKAGAIN+1!
>> DOB MAIN+4*, MAIN+15*, MAIN+22
DT ACTFAC+3
DTOUT ASKAGAIN+1!, ASKAGAIN+14
DUOUT ASKAGAIN+1!, ASKAGAIN+14, A2, A3, REPORT+21
DUZ EN+2
EFFDATE EXIT+1!
EMPLECNT EXIT+1!
EMPLEE EXIT+1!
EMPLEENM EXIT+1!
EMPLEREC EXIT+1!
EMPLRBEG EXIT+1!
EMPLRCNT EXIT+1!
EMPLREND EXIT+1!
EMPLRNM EXIT+2!
EMPLRREC EXIT+2!
EMPREC EXIT+2!
>> ESCAPE REPORT+2*, REPORT+5, REPORT+7, REPORT+21*
FAC ACTFAC~, ACTFAC+1
>> FIRSTINI MAIN+12*, MAIN+13
>> FUNNYSUB MAIN+22*, MAIN+23, MAIN+24, REPORT+4*, REPORT+5*, REPORT+7, REPORT+8
>> HRN REPORT+31*, REPORT+33
>> HRNFAC REPORT+25*, REPORT+26*, REPORT+27, REPORT+28, REPORT+29, REPORT+31
>> INACTDT ACTFAC+1*, ACTFAC+2, ACTFAC+3
>> INACTIVE REPORT+29*, REPORT+30, REPORT+33
>> INCACTDE ASKACTDE+1*, ASKACTDE+7*, MAIN+8, REPORT+30
IO A4+3
IO("Q" A4+2, QUE+1!
IO("S" REPORT+21, REPORT+35
IOF EN+1, ASKCRIT+1, HDR+2
IOSL REPORT+21, REPORT+22
IOST REPORT+21, REPORT+22, REPORT+35
>> LASTINI MAIN+4*, MAIN+13*, MAIN+22
>> LASTNAME MAIN+11*, MAIN+13
>> LN1 REPORT+7*
>> LN2 REPORT+26*, REPORT+32
>> MAIDEN MAIN+4*, MAIN+21*, MAIN+22, REPORT+14*, REPORT+17*, REPORT+19*, REPORT+24
>> NAME MAIN+10*, MAIN+11, MAIN+12
>> PAGE REPORT+1*, HDR+1*, HDR+3
>> PATDOB REPORT+11*, REPORT+12*, REPORT+13*, REPORT+24
>> PATIEN MAIN+5*, MAIN+6*, MAIN+7, MAIN+10, MAIN+15, MAIN+17, MAIN+19, MAIN+21, MAIN+23, REPORT+6*
, REPORT+7*, REPORT+9, REPORT+10, REPORT+11, REPORT+14, REPORT+15, REPORT+26, REPORT+29, REPORT+31
>> PATNAME REPORT+9*, REPORT+16*, REPORT+24
>> PIECE SHOWCRIT+3*, SHOWCRIT+4
>> POP A4+1
>> PSEUDO REPORT+28*, REPORT+33
>> ROUTINE EN+5*, MAIN+1, MAIN+23, MAIN+24, REPORT+5, REPORT+7, REPORT+8
>> RPTDATE MAIN+3*, HDR+15
>> RPTREQ EN+2*, HDR+3
>> SEL SHOWCRIT+3*
>> SSN MAIN+4*, MAIN+17*, MAIN+22
U EN+2, ASKAGAIN+16, ASKAGAIN+17, ASKAGAIN+20, MAIN+10, MAIN+15, MAIN+17, MAIN+19, MAIN+21, MAIN+22
, REPORT+9, REPORT+11, REPORT+14, REPORT+15, REPORT+28, REPORT+29, REPORT+31, ACTFAC+1, SHOWCRIT+3
>> UCI EN+4*, HDR+11
>> Y EN+4, ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+17, ASKAGAIN+19, ASKAGAIN+20, A1+7, ASKLOC+7, ASKACTDE+7, MAIN+2*
, MAIN+3, REPORT+12*
>> Y(0 ASKAGAIN+15, ASKAGAIN+18, ASKAGAIN+19, ASKAGAIN+20
>> ZTDESC QUE+2*
>> ZTRTN QUE+2*
>> ZTSAVE("ALLLOC" QUE+4*
>> ZTSAVE("CRITERIA" QUE+3*
>> ZTSAVE("CRITSTR" QUE+8*
>> ZTSAVE("INCACTDE" QUE+5*
>> ZTSAVE("ROUTINE" QUE+6*
>> ZTSAVE("RPTREQ" QUE+7*
>> ZTSAVE("UCI" QUE+9*
>> ZTSK QUE+10

Marked Items

Name Field # of Occurrence
$T( EN+5
$T(CRITTXT ASKAGAIN+18
$T(CRITTXT+SEL SHOWCRIT+5, SHOWCRIT+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All