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 |  Marked Items |  All
Print Page as PDF
Routine: AGACALV

Package: IHS Patient Registration

Routine: AGACALV


Information

AGACALV ; IHS/OIT/NKD - VERIFY AN IHS ELIGIBILITY LETTER ; FEBRUARY 10, 2014

Source Information

Source file <AGACALV.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Patient 1 ($$DEC,$$ENC)^AUPNPAT  
IHS Patient Registration 1 ^AGACALV  
Kernel 1 ($$FMTE,$$FMTH,$$HTE)^XLFDT  
Toolkit 1 (CNV,DEC)^XTBASE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Patient Registration 2 AGACAL  AGACALV  

Entry Points

Name Comments DBIA/ICR reference
P3(AGREC,AGPID) ;EP - CHECK PATIENT
EN ;EP
PROMPT ;ENTER TO CONTINUE
UIDD(AGUID) ;EP - DECODE ENCRYPTED USER/DT CODE
ENC(AGUSER,AGDT,AGDFN,AGREC) ;EP - CREATE UID
UIDE(AGUSER,AGDT) ;EP - CREATE ENCRYPTED USER/DT CODE
DEC(AGSTR) ;EP - DECODE UID
P2(AGREC,AGUID) ;EP - CHECK USER/DT
P1(AGREC) ;EP - CHECK RECORD NUMBER
MAIN ;MAIN PROCESSING
HDR ;HEADER TEXT

External References

Name Field # of Occurrence
^AGACALV EN+2
$$DEC^AUPNPAT DEC+7
$$ENC^AUPNPAT ENC+2
$$GET1^DIQ P2+5, P3+5, P3+6
^DIR MAIN+7, PROMPT+1
$$FMTE^XLFDT P2+5, P3+6
$$FMTH^XLFDT UIDE+17
$$HTE^XLFDT UIDD+25
CNV^XTBASE UIDE+18
DEC^XTBASE UIDD+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,AGTEXT
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,?16,"LETTER",?35,"RPMS",?60,"RESULTS"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !,?16,"------------",?35,"------------",?60,"------------"
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !,"RECORD NUMBER: ",?16,AGREC,?30,"...",?35,+AGRES,?60,$P(AGRES,U,2)
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: !,"USER: ",?16,AGUSRL,?30,"...",?35,$E(AGUSRR,1,23),?60,$P(AGUSR,U,2)
  • Line Location: P2+10
Function Call: WRITE
  • Prompt: !,"DATE/TIME: ",?16,AGDTL,?30,"...",?35,$E(AGDTR,1,23),?60,$P(AGDT,U,2)
  • Line Location: P2+11
Function Call: WRITE
  • Prompt: !,"PT NAME: ",?16,AGNAML,?30,"...",?35,$E(AGNAMR,1,23),?60,$P(AGNAM,U,2)
  • Line Location: P3+11
Function Call: WRITE
  • Prompt: !,"PT DOB: ",?16,AGDOBL,?30,"...",?35,$E(AGDOBR,1,23),?60,$P(AGDOB,U,2)
  • Line Location: P3+12
Function Call: WRITE
  • Prompt: !,"PT SSN: ",?16,AGSSNL,?30,"...",?35,$E(AGSSNR,1,23),?60,$P(AGSSN,U,2)
  • Line Location: P3+13
Routine Call
  • DIR
  • Line Location:
    • MAIN+7
    • PROMPT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ
^AGACAL - [#9009063.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGACAL - [#9009063.5] P1+3
^VA(200 - [#200] UIDE+4, UIDE+10

Label References

Name Line Occurrences
$$DEC MAIN+10
$$P1 MAIN+13
$$P2 MAIN+14
$$P3 MAIN+15
$$UIDD DEC+7
$$UIDE ENC+2
MAIN EN+4
PROMPT MAIN+13, MAIN+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGCNT EN+1~, EN+2*, ENC+1~, ENC+5*, DEC+1~, DEC+4*
AGCODE MAIN+4~, MAIN+9*, MAIN+10
AGDFN P3+1~, P3+5*, P3+6, ENC~, ENC+2
AGDOB P3+1~, P3+9*, P3+12, P3+15
AGDOBL P3+1~, P3+3*, P3+9, P3+12
AGDOBR P3+1~, P3+6*, P3+9, P3+12
AGDT P2+1~, P2+8*, P2+11, P2+13, ENC~, ENC+2, UIDE~, UIDE+16
AGDTL P2+1~, P2+3*, P2+8, P2+11
AGDTR P2+1~, P2+5*, P2+8, P2+11
AGNAM P3+1~, P3+8*, P3+11, P3+15
AGNAML P3+1~, P3+3*, P3+8, P3+11
AGNAMR P3+1~, P3+6*, P3+8, P3+11
AGPID P3~, P3+3, DEC+1~
AGQUIT MAIN+1~, MAIN+2*, MAIN+3, MAIN+8*
AGREC P1~, P1+3, P1+5, P2~, P2+5, P3~, P3+5, ENC~, ENC+3*, ENC+4*
, ENC+5, DEC+1~, DEC+2*, DEC+4*, DEC+5*, DEC+6*, DEC+7
AGRECE ENC+1~, ENC+2*, ENC+4*, ENC+6, DEC+2*, DEC+3*, DEC+5
AGRES MAIN+4~, MAIN+10*, MAIN+13, MAIN+14, MAIN+15, P1+1~, P1+3*, P1+5, P1+7, ENC+1~
, ENC+2*, ENC+5*, ENC+6*, ENC+7, DEC+1~, DEC+2*, DEC+3*, DEC+4*, DEC+7
AGSSN P3+1~, P3+9*, P3+13, P3+15
AGSSNL P3+1~, P3+3*, P3+9, P3+13
AGSSNR P3+1~, P3+6*, P3+9, P3+13
AGSTR DEC~, DEC+2
AGTEXT EN+1~, EN+2*, EN+3
AGUID P2~, P2+3, DEC+1~, UIDD~, UIDD+5*, UIDD+6*, UIDD+9*, UIDD+13, UIDD+17, UIDD+22
AGUSER ENC~, ENC+2, UIDE~, UIDE+4, UIDE+10
AGUSR P2+1~, P2+7*, P2+10, P2+13
AGUSRL P2+1~, P2+3*, P2+7, P2+10
AGUSRR P2+1~, P2+5*, P2+7, P2+10
AUPNV UIDE+1~, UIDE+7*, UIDE+13*, UIDE+20*, UIDE+23*, UIDE+26*, UIDE+27*, UIDE+29, UIDD+1~, UIDD+2*
, UIDD+18*, UIDD+26*, UIDD+28*, UIDD+29
AUPNX UIDE+1~, UIDE+4*, UIDE+5*, UIDE+6*, UIDE+7, UIDE+10*, UIDE+13, UIDE+16*, UIDE+17*, UIDE+18
, UIDD+1~, UIDD+12*, UIDD+13*, UIDD+14*, UIDD+16, UIDD+17*, UIDD+18, UIDD+21*, UIDD+23*, UIDD+24*
, UIDD+25*, UIDD+26
AUPNY UIDD+1~, UIDD+15*, UIDD+16*, UIDD+17
DIR MAIN+4~, PROMPT+1!
DIR("A" MAIN+6*, PROMPT+1*
DIR(0 MAIN+5*, PROMPT+1*
DIROUT MAIN+4~, MAIN+8
DIRUT MAIN+4~, MAIN+8
DTOUT MAIN+4~, MAIN+8
DUOUT MAIN+4~, MAIN+8
I UIDE+1~, UIDE+6*, UIDE+19*, UIDD+1~, UIDD+13*, UIDD+16*, UIDD+23*
U MAIN+14, MAIN+15, P1+3, P1+5, P2+10, P2+11, P3+11, P3+12, P3+13, UIDE+4
, UIDE+10
X UIDE+1~, UIDE+18*, UIDD+1~, UIDD+22*, UIDD+23, UIDD+24*
X1 UIDE+1~, UIDE+18*, UIDD+1~, UIDD+24*
Y MAIN+4~, MAIN+9, UIDE+1~, UIDE+18*, UIDE+19*, UIDE+20, UIDD+1~, UIDD+24

Marked Items

Name Field # of Occurrence
$T(HDR+AGCNT^AGACALV EN+2
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 |  Marked Items |  All