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

Package: Registration

Routine: DGPMEX


Information

DGPMEX ;ALB/MIR - EXTENDED BED CONTROL ; 02 APR 90 @8:00

Source Information

Source file <DGPMEX.m>

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
ASK
Q
Q1
BREAK
W1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No admissions on file",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:"
  • Line Location: EN1+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?5,"Enter:",!?10,"1 or A to edit admission",!?10,"2 or T to enter/edit a transfer",!?10,"3 or D to enter/edit the discharge"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,DGPME,!
  • Line Location: ASK+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",DGI
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT"
  • Condition for execution: $D(^UTILITY("DGPMVN",$J,DGI+1))
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: !!,*7,"INVALID RESPONSE",!
  • Line Location: BREAK+3
Function Call: WRITE
  • Prompt: ?55,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W1+1
Function Call: WRITE
  • Prompt: !?23,"FROM: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$P(^(0),"^",1),1:"")
  • Line Location: W1+1

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