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
Print Page as PDF
Routine: DGOVBC1

Package: Registration

Routine: DGOVBC1


Information

DGOVBC1 ;ALB/MRL - VBC OUTPUT ; 12 FEB 87

Source Information

Source file <DGOVBC1.m>

Entry Points

Name Comments DBIA/ICR reference
Q
DIS
L
PT
A
AC ;Formatting Confidential Address Information
AS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"VETERANS ASSISTANCE UNIT RECORD",?53,"PRINTED: ",$$FMTE^XLFDT(Y,1),?DGHD1,DGHD,!,DGLIN,!
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !,"1. Patient Name: ",$S(VADM(1)]"":VADM(1),1:"UNSPECIFIED PATIENT #"_DFN),?55,"| 2. DOB: ",$P(VADM(3),"^",2)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: ?80,"| 3. PT ID: ",$S(VA("PID"):VA("PID"),1:DGU),?106,"| 4. Claim #: "
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: $S(VAEL(7):VAEL(7),1:DGU),!
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: "_______________________________________________________|________________________|_________________________|_______________________"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: ?57,DGA(I),!
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: ?57,DGA(I)
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !,"6. Service Record",?35,"Service #",?55,"Entry Date",?75,"Separation Date",?108,"Discharge Type"
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: $C(13)," ","______________",$E(DGLN,1,18),"_________",$E(DGLN,1,11),"__________",$E(DGLN,1,10),"_______________",$E(DGLN,1,18),"______________"
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !?3,$S(VASV(I,1):$P(VASV(I,1),"^",2),1:DGU),?35,$S($L(VASV(I,2)):VASV(I,2),1:DGU),?55,$S('VASV(I,4):DGU,1:$P(VASV(I,4),"^",2)),?75,$S('VASV(I,5):DGU,1:$P(VASV(I,5),"^",2)),?108,$S(VASV(I,3):$P(VASV(I,3),"^",2),1:DGU)
  • Line Location: DIS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: ": NO ADMISSIONS ON FILE FOR THIS APPLICANT."
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: ?20,"Admission Type",?55,"Ward",?70,"Admitting Diagnosis",?105,"Admission Authority"
  • Line Location: DIS+14
Function Call: WRITE
  • Prompt: $C(13)," ","______________"," ","______________",$E(DGLN,1,21),"____",$E(DGLN,1,11),"___________________",$E(DGLN,1,16),"___________________"
  • Line Location: DIS+15
Function Call: WRITE
  • Prompt: !?3,DGD(1),?20,DGD(2),?55,$E(DGD(3),1,10),?70,DGD(4),?105,$E(DGD(5),1,25)
  • Line Location: DIS+16
Function Call: WRITE
  • Prompt: !?4,"NOTE: Asterisk [*] indicates admission for Service Connected Condition."
  • Line Location: DIS+18
Function Call: WRITE
  • Prompt: "_"
  • Line Location: L+0
Info |  Source |  Entry Points |  Interaction Calls