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

Package: Registration

Routine: DGPAR


Information

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

Source Information

Source file <DGPAR.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(43 - [#43] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call