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

Package: Registration

Routine: DGWAIT


Information

DGWAIT ;ALB/JDS - ENTER PATIENTS INTO WAIT LIST; 21 APR 84 13:57

Source Information

Source file <DGWAIT.m>

Entry Points

Name Comments DBIA/ICR reference
DIV
PAT
EDIT
CD
Q
DIVK
PATK
OKD
W
T ;;S DIE("NO^")="",DFN=+^DGWAIT(DA(1),"P",DA,0);S SC=$S('$D(^DPT(DFN,.3)):0,$P(^(.3),"^",1)="Y":1,1:0);.01;2//NOW;12//HOSPITAL;I X'="h" S Y=1;13//GENERAL;1;1.5;3.5;I 'X S Y=4;3.6;3.7;4//PENDING;3///^S X=SC;K SC;5;K DIE("NO^");10;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!,"Patient Deleted from Waiting List",*7
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !!,"Patient Entered on Waiting List"
  • Line Location: CD+0
Function Call: WRITE
  • Prompt: !!,"Above inconsistencies must be corrected before continuing.",!
  • Line Location: CD+1
Function Call: WRITE
  • Prompt: !,"ANSWER 'Y'ES OR 'N'O"
  • Line Location: OKD+0
Function Call: WRITE
  • Prompt: !,"*DELETED*"
  • Line Location: OKD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !," > ",$P(DGF,"^",X)," ",X1
  • Line Location: W+0

FileMan Files Accessed Via FileMan Db Call

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