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

Package: Registration

Routine: DGREGE


Information

DGREGE ;ALB/JDS - EDIT REGISTRATIONS/DISPOSITIONS ; 04/30/2004

Source Information

Source file <DGREGE.m>

Entry Points

Name Comments DBIA/ICR reference
A
F11
HELP
NUM ; choose by number of find last registration
W1
Q
DT
EL
ELQ
CO(DFN,SDDT,SDISHDL) ; -- ask check out questions
COQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"No registrations to print from.",!!
  • Line Location: A+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Registration date/time: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: F11+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: F11+0
Function Call: WRITE
  • Prompt: $J(J,2),". ",$$FMTE^XLFDT($E(L,1,12),"5Z")
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: ?$X\40+1*40
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>75
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"Enter the date and time, Entry #, or 'L' for the last registration,",!," to select the registration you wish to edit"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT(9999999-DFN1,"5Z"),!!
  • Line Location: NUM+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!,"Updating eligibility status for this registration...",!
  • Line Location: EL+0
Function Call: WRITE
  • Prompt: !!,"Disposition on AMIS Segment ",DGSEG," - ",$S($D(^DG(391.1,+DGSEG,0)):$P(^(0),"^",1),1:"SEGMENT NAME UNKNOWN")
  • Line Location: EL+5
Function Call: WRITE
  • Prompt: !!,"Patient falls into a means test category...AMIS 401-420 segment will be",!,"determined at time the report is generated..."
  • Line Location: EL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ELQ+0

FileMan Files Accessed Via FileMan Db Call

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