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

Package: Mental Health

Routine: YSDGDEM0


Information

YSDGDEM0 ;ALB/ASF,ALB/XAK-Patient Demographic Lookup (cont.) ;4/4/90 08:34 ;08/12/93 15:33

Source Information

Source file <YSDGDEM0.m>

Entry Points

Name Comments DBIA/ICR reference
A ;
LOSS ;
YSADM ;
L
YSTRN ;
INP ;
DIS ;
SA ;
CL ;
YSFA ;
RMK ;
YSCOV ;
YSCOV1 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Inpatient Status: "
  • Line Location: A+1
Function Call: WRITE
  • Prompt: "Not admitted"
  • Line Location: A+1
Function Call: WRITE
  • Prompt: "Active",!,"Admitted: ",$P(VAIN(7),U,2),?30,"Ward: ",$P(VAIN(4),U,2)," -"
  • Line Location: INP+1
Function Call: WRITE
  • Prompt: "On ward Bed: ",$P(VAIP(6),U,2)
  • Line Location: INP+2
Function Call: WRITE
  • Prompt: "Absent Due: "
  • Line Location: INP+3
Function Call: WRITE
  • Prompt: $P(VAIP(11),U,2)
  • Condition for execution: VAIP(11)]""
  • Line Location: INP+3
Function Call: WRITE
  • Prompt: !?26,"Seriously Ill"
  • Line Location: INP+4
Function Call: WRITE
  • Prompt: "Inactive",?28,"Discharged: ",$P(VAIP(17,1),U,2)," Type: ",$P(VAIP(17,4),U,2),?72,"LOS: ",X
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !?18,"Scheduled Admission on ward ",$P(^DIC(42,X,0),U)," on ",$E(L,4,5),"/",$E(L,6,7),"/",$E(L,2,3)
  • Line Location: SA+1
Function Call: WRITE
  • Prompt: !!,"Currently enrolled in "
  • Line Location: CL+1
Function Call: WRITE
  • Prompt: !?22
  • Condition for execution: $X>60
  • Line Location: CL+1
Function Call: WRITE
  • Prompt: $S($D(^SC(+^(0),0)):$P(^(0),U)_", ",1:"")
  • Line Location: CL+1
Function Call: WRITE
  • Prompt: "NONE"
  • Line Location: YSFA+1
Function Call: WRITE
  • Prompt: ?22,"Date",?34,"Time",?42,"Clinic",!?22
  • Line Location: YSFA+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: YSFA+2
Function Call: WRITE
  • Prompt: !,"See Scheduling options for additional appointments."
  • Line Location: YSFA+4
Function Call: WRITE
  • Prompt: !!,"Remarks: ",$P(PTI(0),U,10)
  • Line Location: RMK+1
Function Call: WRITE
  • Prompt: " PATIENT HAS DIED."
  • Line Location: RMK+1
Function Call: WRITE
  • Prompt: !?22,$P(YSFDT," "),?34,$P(YSFDT," ",2),?42,$P($S($D(^SC(C,0)):^(0),1:""),U)," ",YSCOV
  • Line Location: YSCOV1+2
Info |  Source |  Entry Points |  Interaction Calls