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: VAFCPDT2

Package: Registration

Routine: VAFCPDT2


Information

VAFCPDT2 ;BIR/CML/ALS-DISPLAY MPI/PD INFORMATION FOR SELECTED PATIENT ; 12/3/04 3:50pm

Source Information

Source file <VAFCPDT2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 DEM^VADPT  (QUIT,SS)^VAFCPDAT  
VA Fileman 2 $$GET1^DIQ  EN^DIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 VAFCPDAT  

Entry Points

Name Comments DBIA/ICR reference
CMORHIS ;Find CMOR History
CCHGHDR
EXT ;Extended patient demographic data
CMORCHG ;Find CMOR change request
CHISHDR

External References

Name Field # of Occurrence
$$GET1^DIQ CMORHIS+11
EN^DIQ1 CMORHIS+9, CMORCHG+8, EXT+9
DEM^VADPT EXT+44
QUIT^VAFCPDAT EXT+4
SS^VAFCPDAT CMORHIS+3, CMORHIS+14, CMORCHG+3, CMORCHG+16, EXT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Additional DPT Data for: ",NAME," (DFN #",DFN,")",!,LN2
  • Line Location: EXT+5
Function Call: WRITE
  • Prompt: !,"PLACE OF BIRTH [CITY]",?31,": ",COB
  • Line Location: EXT+22
Function Call: WRITE
  • Prompt: !,"PLACE OF BIRTH [STATE]",?31,": ",SOB
  • Line Location: EXT+23
Function Call: WRITE
  • Prompt: !,"FATHER'S NAME",?31,": ",FNM
  • Line Location: EXT+24
Function Call: WRITE
  • Prompt: !,"MOTHER'S NAME",?31,": ",MNM
  • Line Location: EXT+25
Function Call: WRITE
  • Prompt: !,"MOTHER'S MAIDEN NAME",?31,": ",MMNM
  • Line Location: EXT+26
Function Call: WRITE
  • Prompt: !,"NAME OF PRIMARY NEXT OF KIN",?31,": ",NOK
  • Line Location: EXT+27
Function Call: WRITE
  • Prompt: !,"NEXT OF KIN PHONE NUMBER",?31,": ",NOKN
  • Line Location: EXT+28
Function Call: WRITE
  • Prompt: !,"NAME OF DESIGNEE",?31,": ",DESIG
  • Line Location: EXT+29
Function Call: WRITE
  • Prompt: !,"EMERGENCY NAME",?31,": ",EMER
  • Line Location: EXT+30
Function Call: WRITE
  • Prompt: !,"MARITAL STATUS",?31,": ",MARS
  • Line Location: EXT+31
Function Call: WRITE
  • Prompt: !,"RELIGIOUS PREFERENCE",?31,": ",RELP
  • Line Location: EXT+32
Function Call: WRITE
  • Prompt: !,"PRIMARY ELIGIBILITY CODE",?31,": ",ELIG
  • Line Location: EXT+33
Function Call: WRITE
  • Prompt: !,"VETERAN (Y/N)?",?31,": ",VET
  • Line Location: EXT+34
Function Call: WRITE
  • Prompt: !,"SERVICE BRANCH [LAST]",?31,": ",SRVBR
  • Line Location: EXT+35
Function Call: WRITE
  • Prompt: !,"SERVICE NUMBER [LAST]",?31,": ",SRVNUM
  • Line Location: EXT+36
Function Call: WRITE
  • Prompt: !,"SERVICE CONNECTED PERCENT",?31,": ",SRVCPCT
  • Line Location: EXT+37
Function Call: WRITE
  • Prompt: !,"SERVICE ENTRY DATE [LAST]",?31,": ",SRVEDT
  • Line Location: EXT+38
Function Call: WRITE
  • Prompt: !,"SERVICE SEPARATION DATE [LAST]",?31,": ",SRVSDT
  • Line Location: EXT+39
Function Call: WRITE
  • Prompt: !,"PERIOD OF SERVICE",?31,": ",POSRVC
  • Line Location: EXT+40
Function Call: WRITE
  • Prompt: !,"POW STATUS INDICATED?",?31,": ",POW
  • Line Location: EXT+41
Function Call: WRITE
  • Prompt: !,"DATE ENTERED IN PATIENT FILE",?31,": ",FILEDT
  • Line Location: EXT+42
Function Call: WRITE
  • Prompt: !,"ETHNICITY INFORMATION",?31,": ",$P(VADM(11,1),"^",2)
  • Line Location: EXT+46
Function Call: WRITE
  • Prompt: !?3,$P(VADM(12,RACEMUL),"^",2)
  • Line Location: EXT+51
Function Call: WRITE
  • Prompt: !?3,$E($P(^DPT(DFN,.01,ALIAS,0),"^"),1,30),?35,"SSN: "_$P($G(^DPT(DFN,.01,ALIAS,0)),"^",2)
  • Line Location: EXT+56
Function Call: WRITE
  • Prompt: !!,"CMOR History:",!,"--------------"
  • Line Location: CHISHDR+0
Function Call: WRITE
  • Prompt: !!,"CMOR Change Request History:",!,"----------------------------"
  • Line Location: CCHGHDR+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CMORHIS+1, CMORHIS+6, EXT+54, EXT+56
^MPIF(984.9 CMORCHG+1, CMORCHG+6

Label References

Name Line Occurrences
CCHGHDR CMORCHG+5, CMORCHG+17
CHISHDR CMORHIS+5, CMORHIS+15
CMORCHG CMORHIS+1
EXT CMORCHG+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALIAS EXT+56*, EXT+58!
CHG CMORCHG+6*, CMORCHG+7, CMORCHG+9, CMORCHG+10, CMORCHG+11, CMORCHG+12, CMORCHG+13, CMORCHG+14, EXT+58!
CHGDT CMORHIS+12*, CMORHIS+16, CMORCHG+10*, CMORCHG+18, EXT+58!
CHGNODE EXT+58!
CHGNODE( CMORCHG+9, CMORCHG+10, CMORCHG+11, CMORCHG+12, CMORCHG+13, CMORCHG+14
CHGNUM CMORCHG+9*, CMORCHG+18, EXT+58!
CMORNODE EXT+58!
CMORNODE( CMORHIS+10, CMORHIS+12
COB EXT+8~, EXT+10*, EXT+22
DA CMORHIS+7*, CMORHIS+9!, CMORCHG+7*, CMORCHG+8!, EXT+6*, EXT+9!
DA( CMORHIS+7*
DESIG EXT+8~, EXT+13*, EXT+29
>> DFN CMORHIS+1, CMORHIS+4, CMORHIS+6, CMORHIS+7, CMORHIS+15, CMORCHG+1, CMORCHG+4, CMORCHG+6, CMORCHG+17, EXT+5
, EXT+6, EXT+10, EXT+11, EXT+12, EXT+13, EXT+14, EXT+15, EXT+16, EXT+17, EXT+18
, EXT+19, EXT+20, EXT+54, EXT+56
DIC CMORHIS+7*, CMORHIS+9!, CMORCHG+7*, CMORCHG+8!, EXT+6*, EXT+9!
DIQ CMORHIS+8*, CMORHIS+9!, CMORCHG+7*, CMORCHG+8!, EXT+6*, EXT+9!
DIQ(0 CMORHIS+8*, CMORCHG+8*, EXT+6*
DR CMORHIS+7*, CMORHIS+9!, CMORCHG+7*, CMORCHG+8!, EXT+7*, EXT+9!
DR( CMORHIS+7*
ELIG EXT+8~, EXT+15*, EXT+33
EMER EXT+8~, EXT+14*, EXT+30
FILEDT EXT+8~, EXT+11*, EXT+42
FNM EXT+8~, EXT+11*, EXT+24
HIS CMORHIS+6*, CMORHIS+7, CMORHIS+10, CMORHIS+12, EXT+58!
HISCMOR CMORHIS+10*, CMORHIS+11*, CMORHIS+16, EXT+58!
IOF CMORHIS+4, CMORHIS+15, CMORCHG+4, CMORCHG+17, EXT+3
IOSL CMORHIS+2, CMORHIS+13, CMORCHG+2, CMORCHG+15
IOST CMORHIS+2, CMORHIS+13, CMORCHG+2, CMORCHG+15, EXT+1
>> LN2 CMORHIS+4, CMORHIS+15, CMORCHG+4, CMORCHG+17, EXT+5
>> LNQ CMORHIS+3*, CMORHIS+14*, CMORCHG+3*, CMORCHG+16*, EXT+2*
MARS EXT+8~, EXT+18*, EXT+31
MMNM EXT+8~, EXT+12*, EXT+26
MNM EXT+8~, EXT+12*, EXT+25
>> NAME CMORHIS+4, CMORHIS+15, CMORCHG+4, CMORCHG+17, EXT+5
NOK EXT+8~, EXT+13*, EXT+27
NOKN EXT+8~, EXT+20*, EXT+28
POSRVC EXT+8~, EXT+19*, EXT+40
POW EXT+8~, EXT+20*, EXT+41
>> QFLG CMORHIS+2, CMORHIS+3, CMORHIS+6, CMORHIS+13, CMORHIS+14, CMORCHG+2, CMORCHG+3, CMORCHG+6, CMORCHG+15, CMORCHG+16
, EXT+1, EXT+2, EXT+4
RACEMUL EXT+51*, EXT+58!
RELP EXT+8~, EXT+18*, EXT+32
SITE CMORCHG+13*, CMORCHG+19, EXT+58!
SOB EXT+8~, EXT+10*, EXT+23
SRVBR EXT+8~, EXT+16*, EXT+35
SRVCPCT EXT+8~, EXT+19*, EXT+37
SRVEDT EXT+8~, EXT+17*, EXT+38
SRVNUM EXT+8~, EXT+16*, EXT+36
SRVSDT EXT+8~, EXT+17*, EXT+39
STATUS CMORCHG+14*, CMORCHG+20, EXT+58!
TMSG CMORCHG+11*, CMORCHG+18, EXT+58!
TREQ CMORCHG+12*, CMORCHG+19, EXT+58!
VADM EXT+58!
VADM(11 EXT+46
VADM(12 EXT+49, EXT+51
VET EXT+8~, EXT+15*, EXT+34
XDATA EXT+58!
XDATA(2 EXT+10, EXT+11, EXT+12, EXT+13, EXT+14, EXT+15, EXT+16, EXT+17, EXT+18, EXT+19
, EXT+20
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