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

Package: Registration

Routine: DGPMGL5


Information

DGPMGL5 ;ALB/MRL - G&L PARAMETER ENTRY/EDIT; 29 APR 2003

Source Information

Source file <DGPMGL5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DIS ; -- display params
ASK ;
EDIT ; -- edit params

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?27,"ENTER/EDIT G&L PARAMETERS",!
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: I
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !,"G&L Initialization Date",?43,": "
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NOT SPECIFIED")
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !,"TSR Initialization Date",?43,": "
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NOT SPECIFIED")
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !,"SSN Format",?43,": DISPLAY ",$S($P(DGPM,"^",2)=6:"LAST FOUR ONLY",$P(DGPM,"^",2)=1:"ENTIRE SSN",1:"FORMAT UNSPECIFIED")
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: !,"Means Test Copay Applicability Display",?43,": ",$S($P(DGPM,"^",3):"YES",1:"NO")
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: !,"Patient's Treating Specialty (Display)",?43,": ",$S($P(DGPM,"^",4):"YES",1:"NO")
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: !,"Show Non-Movements on G&L",?43,": ",$S($P(DGPM,"^",6):"YES",1:"NO")
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !,"Recalculate From (Earliest Date to Recalc)",?43,": "
  • Line Location: DIS+11
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"UNSPECIFIED")
  • Line Location: DIS+11
Function Call: WRITE
  • Prompt: !,"Count Vietnam Vets Remaining",?43,": ",$S($P(DGPM,"^",8):"YES",1:"NO")
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: !,"Count Over 65'S Remaining (patients>65 y/o)",?43,": ",$S($P(DGPM,"^",9):"YES",1:"NO")
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: !,"Days to Maintain G&L Corrections",?43,": ",$S($D(^DG(43,1,0)):+$P(^(0),U,29),1:0)
  • Line Location: DIS+15
Function Call: WRITE
  • Prompt: !,I
  • Line Location: DIS+16
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+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