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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VAFCPDT2

Package: Registration

Routine: VAFCPDT2


Information

VAFCPDT2 ;BIR/CML/ALS-DISPLAY MPI/PD INFORMATION FOR SELECTED PATIENT ;14 Nov 2018 4:20 PM

Source Information

Source file <VAFCPDT2.m>

Entry Points

Name Comments DBIA/ICR reference
CMORHIS ;Find CMOR History
CMORCHG ;Find CMOR change request
EXT ;Extended patient demographic data
NC(NCIEN,TAB1,TAB2) ;**974,Story 841921 (mko): Get and write Name Components
CHISHDR
CCHGHDR

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+26
Function Call: WRITE
  • Prompt: !,"PLACE OF BIRTH COUNTRY",?31,": ",$S(POBC:$$GET1^DIQ(779.004,POBC_",",2),1:"")
  • Line Location: EXT+29
Function Call: WRITE
  • Prompt: !,"FATHER'S NAME",?31,": ",FNM
  • Line Location: EXT+30
Function Call: WRITE
  • Prompt: !,"MOTHER'S NAME",?31,": ",MNM
  • Line Location: EXT+31
Function Call: WRITE
  • Prompt: !,"MOTHER'S MAIDEN NAME",?31,": ",MMNM
  • Line Location: EXT+32
Function Call: WRITE
  • Prompt: !,"NAME OF PRIMARY NEXT OF KIN",?31,": ",NOK
  • Line Location: EXT+33
Function Call: WRITE
  • Prompt: !,"NEXT OF KIN PHONE NUMBER",?31,": ",NOKN
  • Line Location: EXT+34
Function Call: WRITE
  • Prompt: !,"NAME OF DESIGNEE",?31,": ",DESIG
  • Line Location: EXT+35
Function Call: WRITE
  • Prompt: !,"EMERGENCY NAME",?31,": ",EMER
  • Line Location: EXT+36
Function Call: WRITE
  • Prompt: !,"MARITAL STATUS",?31,": ",MARS
  • Line Location: EXT+37
Function Call: WRITE
  • Prompt: !,"RELIGIOUS PREFERENCE",?31,": ",RELP
  • Line Location: EXT+38
Function Call: WRITE
  • Prompt: !,"ETHNICITY INFORMATION",?31,": ",$P(VADM(11,1),"^",2)
  • Line Location: EXT+42
Function Call: WRITE
  • Prompt: !?3,$P(VADM(12,RACEMUL),"^",2)
  • Line Location: EXT+47
Function Call: WRITE
  • Prompt: !,"PRIMARY ELIGIBILITY CODE",?31,": ",ELIG
  • Line Location: EXT+49
Function Call: WRITE
  • Prompt: !,"PATIENT TYPE",?31,": ",PATTYPE
  • Line Location: EXT+50
Function Call: WRITE
  • Prompt: !,"VETERAN (Y/N)?",?31,": ",VET
  • Line Location: EXT+51
Function Call: WRITE
  • Prompt: !,"SERVICE CONNECTED PERCENT",?31,": ",SRVCPCT
  • Line Location: EXT+52
Function Call: WRITE
  • Prompt: !,"PERIOD OF SERVICE",?31,": ",POSRVC
  • Line Location: EXT+53
Function Call: WRITE
  • Prompt: !,"POW STATUS INDICATED?",?31,": ",POW
  • Line Location: EXT+54
Function Call: WRITE
  • Prompt: !,"PATIENT NAME COMPONENTS:"
  • Line Location: EXT+72
Function Call: WRITE
  • Prompt: !,"PREFERRED NAME",?31,": ",DNODE(2,DFN,.2405,"E")
  • Line Location: EXT+84
Function Call: WRITE
  • Prompt: !,"DATE ENTERED IN PATIENT FILE",?31,": ",FILEDT
  • Line Location: EXT+86
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
^VA(20 - [#20] GETS^DIQ
^DIC(23 - [#23] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^HL(779.004 - [#779.004] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call