Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 7 ^%DT  ^DIC  (FILE,YN)^DICN  ^DIE  ^DIK  DT^DIQ  ^DIR  
Registration 5 IN^DGHELP  DFN^DGPMUTL  BUL^DGRUGBGJ  SELECT^DGRUGC1  LO^DGUTL  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Registration 9 DG CNH PAI CLOSE RECORD  DG CNH PAI CREATE RECORD  DG CNH PAI DELETE RECORD  DG CNH PAI OPEN  DG RUG CLOSE  DG RUG CREATE  DG RUG DELETE  DG RUG OPEN  
DGRUG1  

Entry Points

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

External References

Name Field # of Occurrence
^%DT WDCK
IN^DGHELP ASK+2
DFN^DGPMUTL EN1+1
BUL^DGRUGBGJ ASK+10
SELECT^DGRUGC1 ASK+8
LO^DGUTL CLOSE
^DIC EN1, OPEN, KIL, CLOSE
FILE^DICN ASK+10
YN^DICN OKO, OKD, OKC
^DIE ASK+13, ASK+20, OKO+1, OKC+1
^DIK REMOVE+1, DEL, OKD+1
DT^DIQ ASK+15, WR
^DIR ASK+18

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIE
  • Line Location:
    • ASK+13
    • ASK+20
    • OKO+1
    • OKC+1
Routine Call
  • DIC
  • Line Location:
    • EN1
    • OPEN
    • KIL
    • CLOSE
Routine Call
  • DIR
  • Line Location:
    • ASK+18

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(45.9 - [#45.9] ASK+8, ASK+10*, OKO, OKD
^DGPM - [#405] EN1+1, ASK+5, ASK+6
^DGPM("APCA" ASK+6
^DIC(42 - [#42] WDCK+1
^DPT - [#2] WR, OKO, OKD
^UTILITY($J ASK+7, QUIT!, WDCK+1*

Label References

Name Line Occurrences
ASK ASK+2
CLOSE OKC+2
CLOUT WDCK+1
EN ASK+7, ASK+8, ASK+20, NOAD
EN1 ASK+8
KIL OKD+2
NOAD EN1+1
OKC OKC
OKD OKD
OKO OKO
Q EN, EN1, EN1+1, ASK+1
QUIT ASK+7, ASK+8, ASK+20, Q, REMOVE+1, DEL, OPEN, OKO+2, KIL, OKD+1
, OKD+3, CLOSE
REMOVE ASK+14
WDCK ASK+5, ASK+6
YN OKO, OKD, OKC

Naked Globals

Name Field # of Occurrence
^( WDCK+1*
^("R" ASK+11*, ASK+12*
^(0 ASK+5, ASK+6, ASK+10*, WR, WDCK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+2*, QUIT!, OKO*, OKO+1, OKD*, OKD+1, OKD+2, OKC*, OKC+1
>> %DT WDCK*
%Y QUIT!, OKO, OKD, OKC
DA EN1+1*, ASK+10*, ASK+14, QUIT!, REMOVE~, REMOVE+1!, DEL*!, WR*, OPEN*, OKO
, KIL*, OKD, CLOSE*, OKC+2!
DFN EN1*, ASK+5*, ASK+6, ASK+8, ASK+10, QUIT!, Q!, DEL
DGA1 QUIT!
DGAD ASK+5*, ASK+6, QUIT!, WR*, WR+1!, WDCK+1
DGAP ASK+3*, ASK+4*, ASK+8, ASK+10, QUIT!, Q!
DGCNH EN1+1, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, ASK+8
, ASK+9, ASK+11, ASK+12, ASK+13, ASK+15, ASK+16, QUIT+2!
DGCO QUIT!, WDCK+1*, CLOUT*
DGCR ASK+5*, ASK+9*, QUIT!
DGCT QUIT!
DGD ASK+8*, ASK+15, ASK+19*, ASK+20, QUIT!
DGDE EN1+1*, ASK+5, ASK+6, QUIT!
DGDT ASK+5*, ASK+6*, QUIT!, WDCK+1, CLOUT
DGFCNH QUIT+2!
DGFL ASK+8, QUIT!
DGFT QUIT!
DGFY QUIT!
DGI ASK+9*, ASK+10, ASK+11, ASK+12, QUIT!
DGII QUIT!
DGNO ASK+5*, QUIT!, WDCK+1*
DGPT QUIT!
DGR QUIT!, WR*, WR+1!
DGSEMI ASK+4*, Q!, WDCK+1
DGSV QUIT!, WDCK+1*
DGT QUIT!
DGWD ASK+5*, ASK+6*, QUIT!, WDCK+1
DGX QUIT!
DIC EN1!*, EN1+1*, ASK+10*, QUIT!, Q!, OPEN*, OKO+2!, KIL*, OKD+1!, CLOSE*!
, OKC+2!
DIC("A" EN1+1*, OPEN*, KIL*, CLOSE*
DIC("S" EN1+1*, OPEN*!, KIL*!, CLOSE*!
DIC(0 EN1*, EN1+1*, ASK+10*, OPEN*, KIL*, CLOSE*
DICR QUIT!, WR
DIE ASK+13*, QUIT!, OKO+1*, OKC+1*, OKC+2!
DIE("NO^" ASK+13*
DIK QUIT!, REMOVE+1*!, DEL*!, OKD+1*
DIR ASK+17~
DIR("A" ASK+18*
DIR(0 ASK+18*
DIROUT QUIT+1!
DIRUT QUIT+1!
DIV QUIT!
DR ASK+13*, ASK+20*, QUIT!, OKO+1*, OKC+1*, OKC+2!
DT OKC+1, WDCK*, CLOUT
DTIME ASK+1
DTOUT QUIT+1!
DUOUT QUIT+1!
DUZ OKC+1
I ASK+6*, QUIT!
J ASK+6*, QUIT!
K QUIT!
U ASK+5, ASK+6, ASK+10, ASK+11, ASK+12, WR, OKO, OKD, WDCK+1
X ASK*, ASK+1*, ASK+4, ASK+10*, ASK+17~, QUIT!, OPEN*, KIL*, WDCK*
Y EN1, EN1+1, ASK+10, ASK+14, ASK+15*, ASK+17~, QUIT!, WR*, OPEN, KIL
, CLOSE, WDCK
Y(0 ASK+19
Z ASK+1*, QUIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All