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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBCHPRC1

Package: Fee Basis

Routine: FBCHPRC1


Information

FBCHPRC1 ;AISC/DMK-PRINT REPORT OF CONTACT CONT ;08/02/88

Source Information

Source file <FBCHPRC1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Fee Basis 2 $$SIGBLK^FBAAPRC  RPTC^FBCHPRC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Fee Basis 1 FBCHPRC  

Entry Points

Name Comments DBIA/ICR reference
BOT

External References

Name Field # of Occurrence
$$SIGBLK^FBAAPRC BOT+2
RPTC^FBCHPRC FBCHPRC1+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?70,"Page ",FB("PG"),!
  • Line Location: FBCHPRC1+3
Function Call: WRITE
  • Prompt: ?40,L,?58,L,!,?8,">> REPORT OF CONTACT <<",?40,L,$E(FBSITE,1,18),?58,L,?60,$P(VADM(2),"^",2),!,?40,L,$E(FBSITE,19,30),?58,L,"DOB: ",$P(VADM(3),"^",2),!,Q,!,?3," Name of Veteran",?34,L,"Telephone No. of Vet.",?58,L,"Date of Contact",!
  • Line Location: FBCHPRC1+4
Function Call: WRITE
  • Prompt: ?34,L,?58,L,!,?3,$E(VADM(1),1,30),?34,L,VAPA(8),?58,L,?61,FB(4),!,Q,!,?3," Address of Veteran",?58,L,"Type of Contact",!,?3,VAPA(1),?58,L,!,?3,VAPA(4),",",$P(VAPA(5),"^",2)
  • Line Location: FBCHPRC1+5
Function Call: WRITE
  • Prompt: ?63,$S(FB(6)="T":"Telephone",1:"Personal"),!,Q,!,?3," Person Contacted",?58,L,"Telephone Number of",!,?3,FB(7),?58,L," Person Contacted",!,?3,FB(8),?58,L,?61,FB(18)
  • Line Location: FBCHPRC1+7
Function Call: WRITE
  • Prompt: !?3,$S(FB(9)]"":FB(9),1:FB(10)_", "_$S(FB(11)="":"Unknown",$D(^DIC(5,FB(11),0)):$P(^(0),"^"),1:"Unknown")_", "_FB(12))
  • Line Location: FBCHPRC1+8
Function Call: WRITE
  • Prompt: !,Q
  • Line Location: FBCHPRC1+8
Function Call: WRITE
  • Prompt: !?3,FB(10),", ",$S($D(^DIC(5,+FB(11),0)):$P(^(0),"^"),1:"Unknown"),", ",FB(12),!,Q
  • Line Location: FBCHPRC1+9
Function Call: WRITE
  • Prompt: !?15,"NOTIFICATION OF ADMISSION TO PRIVATE HOSPITAL",!?14,$E(Q,1,47)
  • Line Location: FBCHPRC1+10
Function Call: WRITE
  • Prompt: !?3,"AUTHORIZATION FROM DATE/TIME: ",FB(5),!?3,"DATE/TIME OF ADMISSION: ",FB(19),!?9,"NAME of HOSPITAL: ",FBVEN,!?18,"ADDRESS: ",FBVEN(1),?54,"PHONE: ",FBVEN(6),!?27,$S(FBVEN(2)]"":FBVEN(2),1:FBVEN(3)_", "_FBVEN(4)_" "_FBVEN(5))
  • Line Location: FBCHPRC1+11
Function Call: WRITE
  • Prompt: !?27,FBVEN(3),", ",FBVEN(4)," ",FBVEN(5)
  • Line Location: FBCHPRC1+12
Function Call: WRITE
  • Prompt: !?9,"PHYSICIAN'S NAME: ",$S(FB(13)="":"Not Entered",1:FB(13))
  • Line Location: FBCHPRC1+13
Function Call: WRITE
  • Prompt: ?50,"PHONE: ",FB(14)
  • Line Location: FBCHPRC1+14
Function Call: WRITE
  • Prompt: !?6,"TENTATIVE DIAGNOSIS: ",FB(15),!?11,"INSURANCE TYPE: ",FB(16),!?3,"MODE of TRANSPORTATION: ",FB(17)
  • Line Location: FBCHPRC1+15
Function Call: WRITE
  • Prompt: !,?16
  • Condition for execution: $X+$L(X)>80
  • Line Location: FBCHPRC1+16
Function Call: WRITE
  • Prompt: X
  • Line Location: FBCHPRC1+16
Function Call: WRITE
  • Prompt: !,Q
  • Line Location: FBCHPRC1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: ?3,"APPROVED/DISAPPROVED",!!?2,"______________________"
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !?3,$$SIGBLK^FBAAPRC($P(FB1(0),U,6))
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !,Q,!,?6,"Division or Section",?40,L," Executed by(signature and title)",!,?7,"FEE BASIS SECTION",?40,L," ",!,Q,!?3,"VA form 119C"
  • Line Location: BOT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] FBCHPRC1+8, FBCHPRC1+9

Naked Globals

Name Field # of Occurrence
^(0 FBCHPRC1+8, FBCHPRC1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BOT BOT*
>> BT BOT*
>> FB("PG" FBCHPRC1+3
>> FB(10 FBCHPRC1+8, FBCHPRC1+9
>> FB(11 FBCHPRC1+8, FBCHPRC1+9
>> FB(12 FBCHPRC1+8, FBCHPRC1+9
>> FB(13 FBCHPRC1+13
>> FB(14 FBCHPRC1+14
>> FB(15 FBCHPRC1+15
>> FB(16 FBCHPRC1+15
>> FB(17 FBCHPRC1+15
>> FB(18 FBCHPRC1+7
>> FB(19 FBCHPRC1+11
>> FB(4 FBCHPRC1+5
>> FB(5 FBCHPRC1+11
>> FB(6 FBCHPRC1+7
>> FB(7 FBCHPRC1+7
>> FB(8 FBCHPRC1+7
>> FB(9 FBCHPRC1+8, FBCHPRC1+9
>> FB1(0 BOT+2
>> FBSITE FBCHPRC1+4
>> FBVEN FBCHPRC1+11
>> FBVEN(1 FBCHPRC1+11
>> FBVEN(2 FBCHPRC1+11, FBCHPRC1+12
>> FBVEN(3 FBCHPRC1+11, FBCHPRC1+12
>> FBVEN(4 FBCHPRC1+11, FBCHPRC1+12
>> FBVEN(5 FBCHPRC1+11, FBCHPRC1+12
>> FBVEN(6 FBCHPRC1+11
IOSL BOT
>> J FBCHPRC1+16*
>> L FBCHPRC1+4, FBCHPRC1+5, FBCHPRC1+6, FBCHPRC1+7, BOT+3
>> Q FBCHPRC1+4, FBCHPRC1+5, FBCHPRC1+7, FBCHPRC1+8, FBCHPRC1+9, FBCHPRC1+10, FBCHPRC1+17, BOT+3
U FBCHPRC1+6, BOT+2
>> VADM(1 FBCHPRC1+5
>> VADM(2 FBCHPRC1+4
>> VADM(3 FBCHPRC1+4
>> VAEL(1 FBCHPRC1+16
>> VAPA(1 FBCHPRC1+5
>> VAPA(11 FBCHPRC1+6
>> VAPA(4 FBCHPRC1+5
>> VAPA(5 FBCHPRC1+5
>> VAPA(6 FBCHPRC1+6
>> VAPA(8 FBCHPRC1+5
>> X FBCHPRC1+16*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All