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

Package: Registration

Routine: DGRP13


Information

DGRP13 ;ALB/MRL - REGISTRATION SCREEN 13/APPLICATION INFORMATION ;06 JUN 88@2300

Source Information

Source file <DGRP13.m>

Entry Points

Name Comments DBIA/ICR reference
AC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO APPLICATION DATA ON FILE FOR THIS PATIENT!",*7
  • Line Location: DGRP13+3
Function Call: WRITE
  • Prompt: " Registered: ",$S(Y]"":Y,1:DGRPU_" DATE")," by '",$S($D(^VA(200,+$P(I1,"^",5),0)):$P(^(0),"^",1)_" (#"_$P(I1,"^",5)_")",1:DGRPU_" USER")_"'"
  • Line Location: AC+0
Function Call: WRITE
  • Prompt: !?6,"Applied for: ",X
  • Line Location: AC+1
Function Call: WRITE
  • Prompt: !?4,"Dispositioned: ",$S(Y]"":Y,1:"OPEN DISPOSITION")
  • Line Location: AC+2
Function Call: WRITE
  • Prompt: " by '",$S($D(^VA(200,+$P(I1,"^",9),0)):$P(^(0),"^",1)_" (#"_$P(I1,"^",9)_")",1:"UNKNOWN USER"),"'."
  • Line Location: AC+2
Function Call: WRITE
  • Prompt: !?4,"Type of Disp.: ",$S($D(^DIC(37,+$P(I1,"^",7),0)):$P(^(0),"^",1),$P(I1,"^",9):DGRPU,1:"OPEN DISPOSITION")
  • Line Location: AC+3
Info |  Source |  Entry Points |  Interaction Calls