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

Package: Registration

Routine: DGPMV22


Information

DGPMV22 ;ALB/MIR - SCHEDULED ADMISSION? ; 23 NOV 90

Source Information

Source file <DGPMV22.m>

Entry Points

Name Comments DBIA/ICR reference
SCHDADM ;is this a scheduled admission...DGPMSA=1 for yes, 0 for no
ASK
WHICH
SCHDQ
WR
PTF(DFN,DGPMDA,DGPME,DGPMCA) ;ptf check
PTFQ
PTFC(ADMIT,DGPME) ;check if ptf in close out file/ set error flag if true

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Is this ",$S(DGCT=1:"the",1:"one of the")," scheduled admission",$S(DGCT>1:"s",1:"")," listed above"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,"Answer yes if this is a scheduled admission, otherwise no."
  • Line Location: ASK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WHICH+0
Function Call: WRITE
  • Prompt: !,"Choose a number 1-",DGCT
  • Line Location: WHICH+1
Function Call: WRITE
  • Prompt: !!,"Scheduled admissions:"
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !?2,DGCT,". ",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+2
Info |  Source |  Entry Points |  Interaction Calls