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

Package: Registration

Routine: DGRUGC


Information

DGRUGC ;ALB/BOK/MLI - CREATE A PATIENT ASSESSMENT RECORD ; 27 OCT 86

Source Information

Source file <DGRUGC.m>

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
ASK
QUIT
Q
REMOVE(DA) ;
NOAD
DEL
WR
OPEN
OKO
KIL
OKD
CLOSE
OKC
WDCK
YN
CLOUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"(A)dmission/transfer or (S)emi Annual Census: A//"
  • Line Location: ASK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,?12,"CHOOSE FROM:",!?12,"A - Assessment purpose is admission transfer",!?12,"S - Assessment purpose is semi-annual census",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"NEITHER ADMISSION NOR TRANSFERS ARE TO INTERMEDIATE CARE OR NURSING HOME WARDS",!?8,"AFTER THE LAST CLOSEOUT"
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!,*7,"There is already an admission/transfer assessment created for that",!,"admission/transfer date",!
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"Record Deleted."
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !,"ADMISSION/TRANSFER DATE: "
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !!,"ASSESSMENT RECORD CREATED",!!
  • Line Location: ASK+20
Function Call: WRITE
  • Prompt: !,*7,"THERE ARE NO ADMISSIONS ON FILE FOR THIS PATIENT"
  • Line Location: NOAD+0
Function Call: WRITE
  • Prompt: " ","Assessment date: "
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !!,DA," ",$P(^DPT(+^DG(45.9,DA,0),0),U,1)
  • Line Location: OKO+0
Function Call: WRITE
  • Prompt: !,"Ok to reopen"
  • Line Location: OKO+0
Function Call: WRITE
  • Prompt: !!,"*OPENED*"
  • Line Location: OKO+1
Function Call: WRITE
  • Prompt: !,"Ok to delete ",$P(^DPT(+^DG(45.9,DA,0),0),U,1)," PAF record "
  • Line Location: OKD+0
Function Call: WRITE
  • Prompt: !,"*DELETED*"
  • Line Location: OKD+1
Function Call: WRITE
  • Prompt: !,"Answer YES or NO",!
  • Line Location: OKD+2
Function Call: WRITE
  • Prompt: !,"Ok to close"
  • Line Location: OKC+0
Function Call: WRITE
  • Prompt: !!,"*CLOSED*"
  • Line Location: OKC+1
Function Call: WRITE
  • Prompt: !?5,"ANSWER 'Y'ES OR 'N'O"
  • Line Location: YN+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGPM - [#405] Classic Fileman Calls
^DG(45.9 - [#45.9] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call