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

Package: Registration

Routine: DGPMV31


Information

DGPMV31 ;ALB/MIR - CONTINUE ADMIT PROCESS ; 12 SEP 89 @12

Source Information

Source file <DGPMV31.m>

Entry Points

Name Comments DBIA/ICR reference
UP
PTF
DQ
DICS
DICSQ
ASIH ;update corresponding transfer and NHCU/DOM discharge episodes
KILL
SA
WR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This patient has the following waiting list entries on file:"
  • Line Location: UP+2
Function Call: WRITE
  • Prompt: !?5,"TO: ",$S($D(^DG(40.8,+^DGWAIT(I,0),0)):$E($P(^(0),"^",1),1,20),1:"")
  • Line Location: UP+6
Function Call: WRITE
  • Prompt: ?32,"APPLIED: ",$$FMTE^XLFDT($P(X,"^",2)),?63,"BEDSECTION: ",$P(X,"^",5)
  • Line Location: UP+7
Function Call: WRITE
  • Prompt: !!,"Please delete from the waiting list if necessary.",!
  • Line Location: UP+8
Function Call: WRITE
  • Prompt: !,"Updating corresponding NHCU/DOM movements"
  • Line Location: ASIH+1
Function Call: WRITE
  • Prompt: !,"Incomplete admission...Deleted"
  • Line Location: KILL+0
Function Call: WRITE
  • Prompt: !,"This patient has the following scheduled admissions on file:"
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !?5,Y,?25,$S($P(J,"^",10)="W":"WARD: "_$S($D(^DIC(42,+$P(J,"^",8),0)):$P(^(0),"^",1),1:""),$P(J,"^",10)="T":"FACILITY TREATING SPECIALTY: "_$S($D(^DIC(45.7,+$P(J,"^",9),0)):$P(^(0),"^",1),1:""),1:"")
  • Line Location: WR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls
^DGS(41.1 - [#41.1] Classic Fileman Calls
^DGPT - [#45] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call