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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DG1010P1

Package: Registration

Routine: DG1010P1


Information

DG1010P1 ;ALB/REW - VA FORM 10-10 (CONT) ; 26 MAY 92

Source Information

Source file <DG1010P1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 3 ($$DATENP,$$DISP,$$POINT,$$UNK)^DG1010P0  CONT^DG1010P2  ADD^VADPT  

Entry Points

Name Comments DBIA/ICR reference
RELIG ;
CLAIM ;
CONTD ;
PARTI
CA ;Display confidential address information
GETADD ;
STR2ZIP
ST
HEADADD ;
PRTTMP ; DGTMP=0 IF TEMP ADDRES ENTER NOT=Y OR END DATE IN PAST
WRADD
SEX

External References

Name Field # of Occurrence
$$DATENP^DG1010P0 CLAIM+3, HEADADD+1, HEADADD+2, RELIG+2
$$DISP^DG1010P0 CLAIM+2, CLAIM+3, CLAIM+4, STR2ZIP+3, STR2ZIP+4, WRADD+9, WRADD+10, SEX+3
$$POINT^DG1010P0 CLAIM+4, STR2ZIP+5, WRADD+5, WRADD+7, RELIG+2
$$UNK^DG1010P0 RELIG+3
CONT^DG1010P2 CONTD+1
ADD^VADPT CA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?25,"SEE ATTACHMENT FOR PAPERWORK REDUCTION INFORMATION AND PRIVACY ACT INFORMATION",!,DGLDASH
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !?54,"PART I - PATIENT DATA",!,DGLUND
  • Line Location: PARTI+0
Function Call: WRITE
  • Prompt: !,"1. Type of benefit applied for: ",$P("HOSPITAL/OUTPATIENT TREATMENT^DOMICILIARY CARE^HOSPITAL/OUTPATIENT TREATMENT^OUTPATIENT DENTAL^NURSING HOME CARE",U,+DGD)
  • Line Location: PARTI+1
Function Call: WRITE
  • Prompt: !,DGLUND
  • Line Location: PARTI+2
Function Call: WRITE
  • Prompt: !,"2. Applicant's Name ",?48,"|"," 3. Other names used (Alias)",?86,"|"," 4. Social Security Number"
  • Line Location: PARTI+3
Function Call: WRITE
  • Prompt: !?5,DGNAM,?48,"|",?54,DGA,?86,"|",?92,DGSS
  • Line Location: PARTI+5
Function Call: WRITE
  • Prompt: !?48,"|",?54,$P($G(^DPT(DFN,.01,DGX,0)),U,1),?86,"|"
  • Line Location: PARTI+6
Function Call: WRITE
  • Prompt: ?131,"",$C(13),DGLUND
  • Line Location: PARTI+7
Function Call: WRITE
  • Prompt: !,"5. Claim Number",?23,"| 6. LOCATION OF CLAIMS FOLDER",?60,"| 7. DATE OF BIRTH",?86,"| 8. PLACE OF BIRTH"
  • Line Location: CLAIM+1
Function Call: WRITE
  • Prompt: ?86,"| ",$E($S((DGNOCITY&DGUNK):"UNANSWERED",1:DGD_$S(($L(DGD)):", ",1:"")_DGD1),1,39),?131,$C(13),DGLUND
  • Line Location: CLAIM+5
Function Call: WRITE
  • Prompt: !,"9. PERMANENT ADDRESS",?66,"|"," 10. TEMPORARY ADDRESS "
  • Line Location: HEADADD+3
Function Call: WRITE
  • Prompt: !,DGL2
  • Line Location: PRTTMP+5
Function Call: WRITE
  • Prompt: !,"9A. STREET ADDRESS:",?21,DGD(.11,1),?66,"|"," 10A. STREET ADDRESS:",?89,DGD(.121,1)
  • Line Location: WRADD+0
Function Call: WRITE
  • Prompt: !,DGL2
  • Line Location: WRADD+3
Function Call: WRITE
  • Prompt: !,"9B. CITY: ",DGD(.11,4),?33,"| ","9C. STATE: ",DGD(.11,5),?66,"|"," 10B. CITY: ",$E(DGD(.121,4),1,20),?99,"| ","10C. STATE: ",DGD(.121,5),!,DGL2
  • Line Location: WRADD+4
Function Call: WRITE
  • Prompt: !,"9D. ZIP CODE: ",DGD(.11,12),?33,"| ","9E. COUNTY: ",$$POINT^DG1010P0(DGP(.11),7,("^DIC(5,"_+$P(DGP(.11),U,5)_",1,"),0),?66,"| "
  • Line Location: WRADD+5
Function Call: WRITE
  • Prompt: "10D. ZIP CODE: ",DGD(.121,12),?99,"| ","10E. COUNTY: "
  • Line Location: WRADD+6
Function Call: WRITE
  • Prompt: !,DGL2
  • Line Location: WRADD+8
Function Call: WRITE
  • Prompt: !,"9F. HOME TELEPHONE NUMBER: ",$$DISP^DG1010P0(DGP(.13),1),?66,"| ","10F. HOME TELEPHONE NUMBER:",?96
  • Line Location: WRADD+9
Function Call: WRITE
  • Prompt: !,DGLUND
  • Line Location: WRADD+11
Function Call: WRITE
  • Prompt: !,"11. CONFIDENTIAL ADDRESS",?66,"|"
  • Line Location: CA+3
Function Call: WRITE
  • Prompt: !,DGL2
  • Line Location: CA+7
Function Call: WRITE
  • Prompt: !,"11A. STREET ADDRESS:",?21,VAPA(13)
  • Line Location: CA+8
Function Call: WRITE
  • Prompt: ?66,"| ","11B. CITY: ",$E(VAPA(16),0,19),?99,"| 11C. STATE: ",$P(VAPA(17),"^",2)
  • Line Location: CA+9
Function Call: WRITE
  • Prompt: !,?21,VAPA(14)
  • Line Location: CA+10
Function Call: WRITE
  • Prompt: ?66,"| ","11D. ZIP CODE: ",$P(VAPA(18),"^",2),?99,"| 11E. COUNTY: ",$P(VAPA(19),"^",2)
  • Line Location: CA+11
Function Call: WRITE
  • Prompt: !,?21,VAPA(15),?66,"| 11F. START DATE: ",$P(VAPA(20),"^",2),?99,"| STOP DATE: ",$P(VAPA(21),"^",2)
  • Line Location: CA+12
Function Call: WRITE
  • Prompt: !,$E(DGL2,1,99),"|",$E(DGL2,1,32)
  • Line Location: CA+13
Function Call: WRITE
  • Prompt: !,"11G. Active Confidential Address Categories",?66,"|"
  • Line Location: CA+14
Function Call: WRITE
  • Prompt: !?11,DGCATN,?66,"|"
  • Line Location: CA+17
Function Call: WRITE
  • Prompt: !,DGLUND
  • Line Location: CA+18
Function Call: WRITE
  • Prompt: !,"12. PATIENT'S SEX",?33,"| ","13. MOTHER'S MAIDEN NAME",?66,"| ","14. MOTHER'S NAME",?99,"| ","15. FATHER'S NAME"
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: !?5,$S((X="M"):"MALE",(X="F"):"FEMALE",1:"UNANSWERED")
  • Line Location: SEX+2
Function Call: WRITE
  • Prompt: ?33,"| ",?40,$E(($$DISP^DG1010P0(DGP(.24),3)),1,25),?66,"| ",?73,$E(($$DISP^DG1010P0(DGP(.24),2)),1,23),?99,"| ",?106,$E(($$DISP^DG1010P0(DGP(.24),1)),1,30),?131,$C(13),DGLUND
  • Line Location: SEX+3
Function Call: WRITE
  • Prompt: !,"16. RELIGIOUS PREFERENCE",?33,"| ","17. DATE OF PREVIOUS CARE",?66,"| ","18. LOCATION OF PREVIOUS CARE",?99,"| ","19. SPINAL CORD INJURY"
  • Line Location: RELIG+1
Function Call: WRITE
  • Prompt: !?5,$$POINT^DG1010P0(DGP(0),8,13),?33,"| ",?40,$$DATENP^DG1010P0(DGP(1010.15),1),?66,"| ",?73,$$POINT^DG1010P0(DGP(1010.15),2,4)
  • Line Location: RELIG+2
Function Call: WRITE
  • Prompt: ?99,"| ",?106,$S((DGUNK):X,(X=1):"PARAPLEGIA-TRAUMATIC",(X=2):"QUADRIPLEGIA-TRAUMATIC",(X=3):"PARAPLEGIA-NONTRAUMATIC",(X=4):"QUADRIPLEGIA-NONTRAUMATIC",(X="X"):"NOT APPLICABLE",1:"INVALID"),?131,$C(13),DGLUND,!
  • Line Location: RELIG+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PARTI+4, PARTI+6

Label References

Name Line Occurrences
SEX CA+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN PARTI+4, PARTI+6
>> DFN1 PRTTMP+3
>> DGA PARTI+4*, PARTI+5
DGACT CA+1~, CA+16*, CA+17
DGCAT CA+1~, CA+16*
DGCATN CA+1~, CA+16*, CA+17
DGCATS CA+1~, CA+15*, CA+16
DGD PARTI+1*, CLAIM+4*, CLAIM+5, PRTTMP+1!, SEX!
DGD( PRTTMP+3*, STR2ZIP+3*, STR2ZIP+4*, STR2ZIP+5*, STR2ZIP+6*, WRADD, WRADD+1, WRADD+2, WRADD+4, WRADD+5
, WRADD+6
>> DGD1 CLAIM+4*, CLAIM+5, HEADADD+1*, PRTTMP+4
>> DGD2 HEADADD+2*, PRTTMP+4
>> DGDMAX HEADADD+4*, STR2ZIP+4*, WRADD+1, WRADD+2
>> DGDPC PRTTMP+3*, STR2ZIP+2*, STR2ZIP+3, STR2ZIP+4, STR2ZIP+5
>> DGI STR2ZIP*, STR2ZIP+3, STR2ZIP+4, STR2ZIP+5
>> DGL2 PRTTMP+5, WRADD+3, WRADD+4, WRADD+8, CA+7, CA+13
>> DGLDASH ST
>> DGLUND ST+1*, PARTI, PARTI+2, PARTI+7, CLAIM+5, WRADD+11, CA+6, CA+18, SEX+3, RELIG+4
>> DGNAM PARTI+5
>> DGNOCITY CLAIM+4*, CLAIM+5
>> DGP( CLAIM+2, CLAIM+3, HEADADD+1, HEADADD+2, PRTTMP+3, STR2ZIP+3, STR2ZIP+4, STR2ZIP+5, WRADD+5, WRADD+7
, WRADD+9, WRADD+10, SEX+3, RELIG+2
>> DGP("DIS" PARTI+1
>> DGP(0 CLAIM+3, CLAIM+4, SEX+2, RELIG+2
>> DGP(57 RELIG+3
>> DGSS PARTI+5
>> DGTMP PRTTMP+2*, PRTTMP+3*, PRTTMP+4, STR2ZIP, STR2ZIP+6, WRADD+7, WRADD+10
>> DGUNK CLAIM+3, CLAIM+4, CLAIM+5, RELIG+4
DGX PARTI+4*, PARTI+6*, CLAIM+2*, CLAIM+3, SEX!
IOST ST+1
U PARTI+1, PARTI+4, PARTI+6, PRTTMP+3, WRADD+5, WRADD+7, SEX+2, RELIG+3
VAPA CA+1~
VAPA(12 CA+4
VAPA(13 CA+8
VAPA(14 CA+10
VAPA(15 CA+12
VAPA(16 CA+9
VAPA(17 CA+9
VAPA(18 CA+11
VAPA(19 CA+11
VAPA(20 CA+12
VAPA(21 CA+12
VAPA(22 CA+15, CA+16
>> X STR2ZIP+5*, SEX+2*, RELIG+3*, RELIG+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All