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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ANSEAD

Package: Nursing Acuity

Routine: ANSEAD


Information

ANSEAD ;IHS/OIRM/DSD/CSC - ENTER/EDIT ADMISSIONS/DISCHARGES; [ 02/25/98 10:32 AM ]

Source Information

Source file <ANSEAD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Nursing Acuity 6 DIR^ANSDIC  ^ANSEAD1  ^ANSEAD3  ^ANSMENU  ^ANSUAD  ^ANSUPT  

Entry Points

Name Comments DBIA/ICR reference
DISP
HEAD
EN
EDIT
PRI
DISP2
DAT
EN1
DISP1
EXIT
B1
DSCH
PRI1
DISP3
ADM

External References

Name Field # of Occurrence
DIR^ANSDIC ADM+2, DSCH+2, EDIT+2, PRI1+2
^ANSEAD1 B1
^ANSEAD3 PRI1+8
^ANSMENU HEAD
^ANSUAD PRI1+5
^ANSUPT EN1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DSCH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRI1+1
Function Call: WRITE
  • Prompt: !!,?80-$L(ANSX)/2,ANSX
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !!,"Not Currently An Inpatient"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: " (No Prior Admissions Recorded)"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!,$S(P:"Last Admission",1:"Admitted On")," ",Y
  • Line Location: DISP2+5
Function Call: WRITE
  • Prompt: " Discharged On ",Y
  • Line Location: DISP2+6
Function Call: WRITE
  • Prompt: !!,"Current Location: ",$P(^ANSD(59.1,Y,0),U)
  • Line Location: DISP3+3
Function Call: WRITE
  • Prompt: " Rm ",$P(^(0),U)
  • Line Location: DISP3+4
Function Call: WRITE
  • Prompt: "-",$P(^(0),U)
  • Line Location: DISP3+4
Function Call: WRITE
  • Prompt: !!,"Diagnosis: ",Y
  • Line Location: DISP3+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ANSD(59.1 - [#9009059.1] DISP3+2, DISP3+3, DISP3+4
^ANSR - [#9009052] DISP2, DISP2+1, DISP2+6
^ANSR("AA" PRI, DISP+2, DISP+5
^ANSR("PT" EN1+3
^DD("DD" DISP2+4, DISP2+6

Label References

Name Line Occurrences
ADM EN1+5
B1 ADM+5, DSCH+6, EDIT+6
DISP EN1+4
DISP1 DISP
DSCH EN1+6
EDIT DSCH+4
EN1 EN+1
HEAD EN1+1
PRI ADM+4, EDIT+4

Naked Globals

Name Field # of Occurrence
^("B" DISP3+4
^("DX" DISP2+1
^(0 DISP2+6, DISP3+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN~, DISP2+1*, DISP2+2
ANS EXIT!
ANSADM EXIT!, EN1+3*, EN1+5, EDIT+5, PRI1+6, PRI1+7, DISP, DISP1
ANSADMS EXIT!
ANSB EXIT+1!
ANSD EXIT!, PRI*, PRI+1
ANSDA EXIT!, EN1+3*, EDIT+5*, PRI1+7*
ANSDC EXIT+1!
ANSDFN EN1!, EN1+2, EN1+3, PRI, DISP+2, DISP+5
ANSDT EXIT!
ANSDX EXIT+1!
ANSR EXIT+1!
ANSS EXIT!
ANSSH EXIT!
ANSTYPE EXIT!, EN1+3*, DSCH+5*
ANSU EXIT!
ANSUN EXIT!
ANSX EXIT+1!, HEAD+1*, HEAD+2
B EN~, DISP2+1*, DISP2+6, DISP3, DISP3+3, DISP3+4, DISP3+5
C EN~
D EN~, DISP+2*, DISP+3, DISP+5
>> DIR("A" ADM*, DSCH*, EDIT*, PRI1*
>> DIR("B" ADM*, DSCH*, EDIT*, PRI1*
>> DIR(0 ADM*, DSCH*, EDIT*, PRI1*
>> DTOUT EN1+2, ADM+3, DSCH+3, EDIT+3, PRI1+3, PRI1+6
>> DUOUT EN1+2, ADM+3, DSCH+3, EDIT+3, PRI1+3, PRI1+6
F EN~
H EN~
I EN~, DISP+5*
L EN~, DISP+4*, DISP+5*
M EN~
N EN~
P EN~, DISP+6*, DISP1*, DISP2+5, DISP2+6, DISP2+7
S EN~
U DISP2+2, DISP2+6, DISP3, DISP3+3, DISP3+4, DISP3+5
X EN~, DAT+1, DAT+2, DISP+4*, DISP+5*, DISP1*, DISP2, DISP2+1, DISP2+6*
Y EN~, ADM+4, DSCH+4, EDIT+4, PRI1+4, DAT*, DAT+2*, DISP2+2*, DISP2+3, DISP2+5
, DISP2+6*, DISP3*, DISP3+1, DISP3+2, DISP3+3*, DISP3+4*, DISP3+5*, DISP3+6
Z EN~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All