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

Package: Registration

Routine: DGRP12


Information

DGRP12 ;ALB/MRL - REGISTRATION SCREEN 12/ADMISSION INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP12.m>

Entry Points

Name Comments DBIA/ICR reference
ADM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO ADMISSION DATA ON FILE FOR THIS PATIENT!!",*7
  • Line Location: DGRP12+3
Function Call: WRITE
  • Prompt: " Admission Date: "
  • Line Location: ADM+0
Function Call: WRITE
  • Prompt: "Admit Ward: ",$S($D(^DIC(42,+$P(I1,"^",6),0)):$P(^(0),"^",1),1:DGRPU)
  • Line Location: ADM+0
Function Call: WRITE
  • Prompt: !?4,"Admit Diagnosis: ",$S($P(I1,"^",10)]"":$P(I1,"^",10),1:DGRPU),!?5,"Discharge Date: "
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"NOT DISCHARGED")
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: !?5,"Discharge Type: ",$S($D(^DG(405.1,+$P(I2,"^",4),0)):$P(^(0),"^",1),1:$S(+I2>0:DGRPU,1:"NOT DISCHARGED"))
  • Line Location: ADM+2
Function Call: WRITE
  • Prompt: " TO '",$P(^(0),"^",1),"'"
  • Line Location: ADM+2
Info |  Source |  Entry Points |  Interaction Calls