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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGPAR

Package: Registration

Routine: DGPAR


Information

DGPAR ;ALB/MRL - ADT PARAMETER ENTRY/EDIT ; 07 MAR 87

Source Information

Source file <DGPAR.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  DT^DICRW  IX1^DIK  
Health Summary 1 ENXQ^GMTSDVR  
Kernel 1 ^%ZIS  
Registration 1 (,DEV)^DGPAR1  

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

Package Total Caller Graph
Registration 2 DG PARAMETER ENTRY  DGPAR1  

Entry Points

Name Comments DBIA/ICR reference
WR
EMB
REC ;Write PATIENT (#2) file record access parameter
PREREG ; write pre-registration parameters
DIV ; write division parameters
DAY
DO

External References

Name Field # of Occurrence
^%ZIS WR
^DGPAR1 DIV+3
DEV^DGPAR1 DIV+2
^DIC WR+27
DT^DICRW WR
IX1^DIK DGPAR+2
ENXQ^GMTSDVR WR+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?20,DGHEAD,!
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: X
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,"[1] Medical Center Name : ",$S($D(^DG(40.8,+$P(DGNOD("GL"),"^",3),0)):$P(^(0),"^",1),1:"NONE SPECIFIED"),?59,"Affiliated: ",$S(+$P(DGNOD("GL"),"^",4):"YES",1:"NO")
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: !?4,"Multidivisional : ",$S(+$P(DGNOD("GL"),"^",2):"YES",1:"NO")
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: !?4,"Nursing Home Wards : ",$S(+$P(DGNOD(0),"^",20):"YES",1:"NO")
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: ?52,"Domiciliary Wards: ",$S(+$P(DGNOD(0),"^",21):"YES",1:"NO")
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: !?4,"System Timeout Sec. : ",+$P(DGNOD(0),"^",5),?51,"Print PTF Messages: ",$S($P(DGNOD(0),"^",31):"YES",1:"NO")
  • Line Location: WR+6
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NONE SPECIFIED")
  • Line Location: WR+7
Function Call: WRITE
  • Prompt: !?4,"Default PTF Printer : ",$S($P(DGNOD(0),"^",19)]"":$P(DGNOD(0),"^",19),1:"NONE SPECIFIED"),?55,"High Intensity: ",$S($P(DGNOD(0),"^",36):"ON",1:"OFF")
  • Line Location: WR+8
Function Call: WRITE
  • Prompt: !?4,"Consistency Checker : ",$S($P(DGNOD(0),"^",37):"ON",1:"OFF"),?50,"Abbreviated Inquiry: ",$S($P(DGNOD(0),"^",38):"YES",1:"NO")
  • Line Location: WR+9
Function Call: WRITE
  • Prompt: ?45,"Maintain G&L Corrections: "
  • Line Location: WR+12
Function Call: WRITE
  • Prompt: !?4,"Disposition late",?31,": "
  • Line Location: WR+12
Function Call: WRITE
  • Prompt: ?51,"Supplemental 10/10: "
  • Line Location: WR+13
Function Call: WRITE
  • Prompt: !?4,"Ask HINQ at Registration",?31,": "
  • Line Location: WR+14
Function Call: WRITE
  • Prompt: ?46,"DRUG PROFILE with 10/10: "
  • Line Location: WR+15
Function Call: WRITE
  • Prompt: !?4,"CHOICE OF DRUG PROFILE?",?31,": "
  • Line Location: WR+17
Function Call: WRITE
  • Prompt: $S(X="A":"ACTION",1:"INFO.")
  • Line Location: WR+19
Function Call: WRITE
  • Prompt: !?4,"Ask EMBOSS at Registration : "
  • Line Location: EMB+0
Function Call: WRITE
  • Prompt: ?50,"Use Nearest Printer: "
  • Line Location: EMB+1
Function Call: WRITE
  • Prompt: !?4,"Reg. Template (LOCAL)",?31,": ",$S('$P(DGNOD(0),"^",35):"NONE SPECIFIED",'$D(^DIE(+$P(DGNOD(0),"^",35),0)):"NONE SPECIFIED",1:$P(^DIE(+$P(DGNOD(0),"^",35),0),"^",1))
  • Line Location: EMB+2
Function Call: WRITE
  • Prompt: ?53,"Use Temp Address: ",$S($P(DGNOD("BT"),"^",3):"YES",1:"NO")
  • Line Location: EMB+3
Function Call: WRITE
  • Prompt: !?4,"Default Code Sheet Printer : ",$S($P(DGNOD(0),"^",25)]"":$P(DGNOD(0),"^",25),1:"NONE SPECIFIED"),?51,"Ask Device in Reg.: ",$S($P(DGNOD(0),"^",39):"YES",1:"NO")
  • Line Location: EMB+4
Function Call: WRITE
  • Prompt: ?49,"Print Encounter Form",?31,": "
  • Line Location: EMB+6
Function Call: WRITE
  • Prompt: !?4,"Default EF Printer",?31,": ",$S($P(DGNOD(0),"^",48)]"":$P(DGNOD(0),"^",48),1:"NONE SPECIFIED")
  • Line Location: EMB+7
Function Call: WRITE
  • Prompt: !?4,"Restrict PATIENT access : ",$S($P($G(DGNOD("REC")),U)=1:"YES",1:"NO")
  • Line Location: REC+1
Function Call: WRITE
  • Prompt: !?4,"Purple Heart Sort",?31,": ",$S($P($G(DGNOD("PH")),U)="A":"Ascending",1:"Descending")
  • Line Location: REC+2
Function Call: WRITE
  • Prompt: !!?4,"[Pre-Registration]"
  • Line Location: PREREG+1
Function Call: WRITE
  • Prompt: !?4,"Sort Method",?31,": ",$P($G(DGNOD("DGPRE")),U),?46,"Background Job Function: ",$P($G(DGNOD("DGPRE")),U,3)
  • Line Location: PREREG+2
Function Call: WRITE
  • Prompt: !?4,"Days Between Calls",?31,": ",$P($G(DGNOD("DGPRE")),U,2),?41,"Days to Maintain Log Entries: ",$P($G(DGNOD("DGPRE")),U,4)
  • Line Location: PREREG+3
Function Call: WRITE
  • Prompt: !?4,"Days to Pull Appointments",?31,": ",$P($G(DGNOD("DGPRE")),U,5),?54,"Run for Weekend: ",$S($P($G(DGNOD("DGPRE")),U,6):"YES",1:"NO")
  • Line Location: PREREG+4
Function Call: WRITE
  • Prompt: !!?4,"Excluded Clinics:"
  • Line Location: PREREG+7
Function Call: WRITE
  • Prompt: !?4,$E($P(^SC(NDX,0),U),1,20)
  • Line Location: PREREG+11
Function Call: WRITE
  • Prompt: ?30,$E($P(^SC(NDX,0),U),1,20)
  • Line Location: PREREG+12
Function Call: WRITE
  • Prompt: ?55,$E($P(^SC(NDX,0),U),1,20)
  • Line Location: PREREG+13
Function Call: WRITE
  • Prompt: !!?4,"Excluded Eligibilities:"
  • Line Location: PREREG+16
Function Call: WRITE
  • Prompt: !?4,$E($P(^DIC(8,NDX,0),U),1,20)
  • Line Location: PREREG+20
Function Call: WRITE
  • Prompt: ?30,$E($P(^DIC(8,NDX,0),U),1,20)
  • Line Location: PREREG+21
Function Call: WRITE
  • Prompt: ?55,$E($P(^DIC(8,NDX,0),U),1,20)
  • Line Location: PREREG+22
Function Call: WRITE
  • Prompt: !?4,"Enable My HealtheVet Prompts",?32,": ",$S(+$P($G(DGNOD("DGPRE")),U,7)=1:"YES",1:"NO")
  • Line Location: PREREG+23
Function Call: WRITE
  • Prompt: !?15
  • Condition for execution: $L(X)>(65-$X)
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: X
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: "FOREVER"
  • Line Location: DAY+0
Function Call: WRITE
  • Prompt: DGD,"-",DGX1,$S(DGD=1:"",1:"S")
  • Line Location: DAY+1
Routine Call
  • %ZIS
  • Line Location:
    • WR
Routine Call
  • DIC
  • Line Location:
    • WR+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(43 - [#43] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" WR+20
^DG(40.8 - [#40.8] WR+2, DIV+1, DIV+2
^DG(43 - [#43] DGPAR+2*, WR, WR+1, WR+11, WR+16, WR+19, WR+26, EMB+5, PREREG+6, PREREG+10
, PREREG+15, PREREG+19
^DIC(8 - [#8] PREREG+20, PREREG+21, PREREG+22
^DIE - [#.402] EMB+2
^SC - [#44] PREREG+11, PREREG+12, PREREG+13

Label References

Name Line Occurrences
DAY WR+12
DO WR+13, WR+14, WR+15, WR+17, WR+24, EMB, EMB+1, EMB+6

Naked Globals

Name Field # of Occurrence
^( WR+1, DIV+1
^("DEV" DIV+2
^("VERSION" WR
^(0 WR+2, WR+11, EMB+5, DIV+1, DIV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA DGPAR+2*
>> DGD DIV+2*, DAY*, DAY+1
>> DGDV DIV+2*
>> DGHEAD WR*, WR+1
DGHSFLG WR+20*, WR+21, WR+22, WR+29!
>> DGMULT WR+2*, DIV+1, DIV+2
>> DGNOD( WR+1*
>> DGNOD("BT" EMB+3
>> DGNOD("DGPRE" PREREG+2, PREREG+3, PREREG+4, PREREG+23
>> DGNOD("GL" WR+2, WR+3, DIV+2
>> DGNOD("PH" REC+2
>> DGNOD("REC" REC+1
>> DGNOD(0 WR+2, WR+4, WR+5, WR+6, WR+8, WR+9, WR+10, EMB+2, EMB+4, EMB+7
, DAY, DO, DO+1
>> DGPTFP WR+2*
>> DGX WR+11*, WR+12*, WR+13*, WR+14*, WR+15*, WR+17*, WR+24*, EMB*, EMB+1*, EMB+5*
, EMB+6*, DAY, DO, DO+1
>> DGX1 WR+12*, DAY+1
>> DGZE DIV+2*
DIC WR+23~, WR+26*
DIC(0 WR+26*
>> DIK DGPAR+2*
>> I WR+1*, DIV+1*
IOF WR+1
IOP WR*!
LNDX PREREG+8~, PREREG+9*, PREREG+11*, PREREG+12*, PREREG+13*, PREREG+17~, PREREG+18*, PREREG+20*, PREREG+21*, PREREG+22*
NDX PREREG+8~, PREREG+10*, PREREG+11, PREREG+12, PREREG+13, PREREG+17~, PREREG+19*, PREREG+20, PREREG+21, PREREG+22
U WR*, WR+11, WR+16, WR+19, WR+26, WR+28, REC+1, REC+2, PREREG+2, PREREG+3
, PREREG+4, PREREG+6, PREREG+11, PREREG+12, PREREG+13, PREREG+15, PREREG+20, PREREG+21, PREREG+22, PREREG+23
X WR+1*, WR+19*, WR+20*, WR+23~, WR+26*, DIV+1*
Y WR+23~, WR+28

Marked Items

Name Field # of Occurrence
$T(ENXQ^GMTSDVR WR+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All