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
Print Page as PDF
Routine: DGPMGL

Package: Registration

Routine: DGPMGL


Information

DGPMGL ;ALB/MRL/LM/MJK - G&L ENTRY POINT; 29 APR 2003

Source Information

Source file <DGPMGL.m>

Entry Points

Name Comments DBIA/ICR reference
A
PCHK ; Parameter Check
PAR ; -- display params
GLR ; G&L Running
RCR ; ReCalc Running
RCR1
WD
LAST
READ
ERR
Q
Q1
DAT ; -- get params
VAR ; WD=Ward ; LD=Last Date G&L was run ; BS=Bed Status ; GL=G&L ;
; SS=SSN format ; MT=Means Test display ; TS=Treating Speciality ;
; CP=Column Placement ; RM=Right Margin ; OS=OffSet ;
; SNM=Show Non-Movement ; VN=count Vietnam remaining ;
; SF=count > Sixty Five y/o ; TSD=Treating Speciality Default ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"<<<GAINS & LOSSES SHEET/BED STATUS REPORT/TREATING SPECIALTY REPORT>>>",!
  • Line Location: DGPMGL+3
Function Call: WRITE
  • Prompt: !,"'",$S($D(^DD(43,1000_C,0)):$P(^(0),"^",1),1:"UNKNOWN"),"' PARAMETER NOT DEFINED!!"
  • Line Location: PCHK+4
Function Call: WRITE
  • Prompt: !,$E("Earliest Date for G&L"_L,1,58),Y
  • Line Location: PAR+2
Function Call: WRITE
  • Prompt: "NOT DEFINED"
  • Line Location: PAR+4
Function Call: WRITE
  • Prompt: !,$E("Earliest Date to Recalculate"_L,1,58),Y
  • Line Location: PAR+6
Function Call: WRITE
  • Prompt: !,$E("SSN Format"_L,1,58),$S(SS=1:"ENTIRE",1:"LAST FOUR OF")," SSN"
  • Line Location: PAR+7
Function Call: WRITE
  • Prompt: !,$E("Means Test Copay Applicability"_L,1,58),$S(MT:"",1:"NOT "),"DISPLAYED"
  • Line Location: PAR+8
Function Call: WRITE
  • Prompt: !,$E("Patient's Actual Treating Specialty"_L,1,58),$S(TS:"",1:"NOT "),"DISPLAYED"
  • Line Location: PAR+9
Function Call: WRITE
  • Prompt: !,$E("Show Non-Movements on G&L"_L,1,58),$S(SNM:"",1:"DON'T "),"SHOW"
  • Line Location: PAR+10
Function Call: WRITE
  • Prompt: !,$E("Store Vietnam Vet's Remaining in CENSUS file"_L,1,58),$S(VN:"YES",1:"NO")
  • Line Location: PAR+12
Function Call: WRITE
  • Prompt: !,$E("Store Patient's over 65 y/o Remaining in CENSUS file"_L,1,58),$S(SF:"YES",1:"NO")
  • Line Location: PAR+13
Function Call: WRITE
  • Prompt: !,"G&L HAS BEEN RUNNING SINCE ",Y
  • Line Location: GLR+1
Function Call: WRITE
  • Prompt: !,"RECALCULATION IS RUNNING AND CURRENTLY PROCESSING ON ",Y,"."
  • Line Location: RCR+2
Function Call: WRITE
  • Prompt: !?4,"Answer YES if you want to start G&L despite fact recalculation is running",!?4,"otherwise respond NO to abort this process.",*7,!
  • Line Location: RCR1+1
Function Call: WRITE
  • Prompt: !!,"WARDS HAVE NOT BEEN DEFINED!"
  • Line Location: WD+0
Function Call: WRITE
  • Prompt: !!,"TREATING SPECIALTIES HAVE NOT BEEN DEFINED FOR THE TSR!"
  • Line Location: WD+3
Function Call: WRITE
  • Prompt: !!,"G&L HASN'T BEEN RUN IN LAST WEEK...RECALCULATION MUST BE RUN FIRST!!",*7
  • Line Location: LAST+0
Function Call: WRITE
  • Prompt: !!,"TREATING SPECIALTY REPORT WILL NOT BE GENERATED UNTIL THE ",!,"TSR INITIALIZATION DATE IS DEFINED",*7
  • Line Location: LAST+3
Function Call: WRITE
  • Prompt: !!,"TREATING SPECIALTY REPORT WILL NOT BE GENERATED UNTIL THE ",!,"RECALCULATION IS PERFORMED BACK TO THE TSR INITIALIZATION DATE",*7
  • Line Location: LAST+4
Function Call: WRITE
  • Prompt: !!,"NOTHING SELECTED!",*7
  • Line Location: LAST+6
Function Call: WRITE
  • Prompt: !!,"PRINT ",X
  • Line Location: READ+0
Function Call: WRITE
  • Prompt: !?4,"Answer YES if you wish to generate a ",X," for this date",!?4,"Otherwise answer NO."
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !!,"UNABLE TO PROCEED...CONTACT YOUR SYSTEMS MANAGER OR MAS ADPAC!",*7
  • Line Location: ERR+0
Info |  Source |  Entry Points |  Interaction Calls