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

Package: Automated Medical Information Exchange

Routine: DVBCUTIL


Information

DVBCUTIL ;ALB/GTS-557/THM;C&P UTILITY ROUTINE ; 11/3/2010

Source Information

Source file <DVBCUTIL.m>

Entry Points

Name Comments DBIA/ICR reference
KILL ;common exit
DICW ;used on ^DIC lookups only
DICW1
DICW2
VARS
HDR
ADDR ;
SSNSHRT ; ** Set SSN in the Format '123 45 6789' **
SSNOUT ; ** Set SSN in the Format '123 45 6789 (Z6789) **
ISFORGN(DVBIEN)
GETCNTRY(DVBIEN)
SVC(DFN,DVBCIE) ;Retrieve Last Military Service Data Info
; Using supported API SVC^VAPDT, which encapsulates the
; Military Service Episode (MSE) changes due to the
; Enrollment Military Service Data Sharing (MSDS) project
; (Patch DG*5.3*797)
; INPUT
; DFN - Patient (#2) file internal entry number (Required)
; DVBCIE - "I" to return service dates in Fileman format (Default)
; "E" to return servce dates in external format
; OUTPUT
; Returns '^' delimitted string
; 1. Last Service Entry Date
; 2. Last Service Seperation Date
; 3. Last Service Branch
; 4. Last Service Discharge Type
;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @FF,!!
  • Line Location: KILL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DICW+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DICW+2
Function Call: WRITE
  • Prompt: ?3,EXAM," (",$$FMTE^XLFDT(TSTDT,"5DZ")," by ",RONAME,")",!
  • Line Location: DICW2+0
Function Call: WRITE
  • Prompt: @FF,?(IOM-$L(HD2)\2),HD2,!!!?5,"Veteran name: ",PNAM,?45,"SSN: ",SSN,!?40,"C-NUMBER: ",CNUM,!!,"Exams on this request:",!!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: JII,", ",$S(XST="C":"Completed",XST="RX":"Cancelled by RO",XST="X":"Cancelled by MAS",XST="T":"Transferred",1:"Open"),", "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?0,"Address: ",?14,ADD1,!
  • Line Location: ADDR+5
Function Call: WRITE
  • Prompt: ?0,"City:",?14,CITY," ",STATE," ",ZIP,!?0,"County:",?14,CNTY,!
  • Line Location: ADDR+13
Function Call: WRITE
  • Prompt: ?0,"Postal Code:",?14,POSTCODE,!?0,"City:",?14,CITY,!?0,"Province: ",?14,PROVINCE,!
  • Line Location: ADDR+19
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDR+21
Function Call: WRITE
  • Prompt: "Period of service: ",PRDSV,!
  • Line Location: ADDR+23
Function Call: WRITE
  • Prompt: ?0,"Eligibility data:"
  • Line Location: ADDR+25
Function Call: WRITE
  • Prompt: ?19,ELIG_$S(ELIG]"":", ",1:"")_$S(INCMP=1:"Incompetent",1:""),!
  • Line Location: ADDR+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HL(779.004 - [#779.004] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call