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

Package: Nursing Service

Routine: NURCYED0


Information

NURCYED0 ;HIRMFO/YH,FT-PATIENT INTAKE/OUTPUT ENTER/EDIT ;9/16/96 14:31

Source Information

Source file <NURCYED0.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^%DT  MIX^DIC1  (FILE,YN)^DICN  
General Medical Record - IO 2 (INPUT,OUTPUT)^GMRYED1  LIST^GMRYED3  
Nursing Service 1 WARDPAT^NURCVUT0  
Registration 1 (1,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Nursing Service 3 NURCPE-I/O-INTAKE  NURCPE-I/O-IV CARE  NURCPE-I/O-OUTPUT  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;CALL TO EDIT PATIENT OUTPUT
EN2 ;CALL TO EDIT INTAKE
EN3 ;IV AND IV MAINTENANCE
EDIT ;
EDTPT ;
EDIT2
ASKOK ; LOOPING THROUGH NAMES
ASL
SETUTIL ; SET ARRAY OF PATIENTS
WRDST ; SET UTILITY FOR PATIENTS ON WARD
DATE ; CALL TO SET AND GMRVIDT (WHEN THE VITALS WERE TAKEN)
; ALSO RETURNS NURQUIT=1 IF TIMEOUT OR UPARROW OUT.
Q ;
CHECK
NEXT

External References

Name Field # of Occurrence
^%DT DATE+2
MIX^DIC1 CHECK+1
FILE^DICN CHECK+1
YN^DICN ASKOK+1, ASL
INPUT^GMRYED1 EDIT2+1
OUTPUT^GMRYED1 EDIT2+1
LIST^GMRYED3 EDIT2+1
WARDPAT^NURCVUT0 EDIT+1
1^VADPT EDIT2, WRDST+1
KVAR^VADPT Q+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,NURNAM,?$X+10,$S(NURRM=" BLANK":" ",1:NURRM)_"-"_$S(NBED=" BLANK":" ",1:NBED_" ")
  • Line Location: ASKOK+1
Function Call: WRITE
  • Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'"
  • Line Location: ASKOK+2
Function Call: WRITE
  • Prompt: !,"Do you wish to stop looping through names?"
  • Line Location: ASL+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASL+0
Function Call: WRITE
  • Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'"
  • Line Location: ASL+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(126 - [#126] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EN1+1, EN2+1, EN3+1
^DIC(42 - [#42] EDIT2
^GMR(126 - [#126] CHECK*
^NURSF(214 - [#214] SETUTIL+1, SETUTIL+2
^TMP($J EDIT+1, EDIT+2, EDTPT+1, SETUTIL+1!, WRDST+3*

Label References

Name Line Occurrences
ASKOK EDTPT+1, ASKOK+2
ASL ASL+1
CHECK EDTPT+1
EDIT EN1+1, EN2+1, EN3+1
EDIT2 EDTPT+1
EDTPT EDIT+2
NEXT CHECK+1
Q EN1+1, EN2+1, EN3+1
SETUTIL EDIT+1
WRDST SETUTIL+1, SETUTIL+2

Naked Globals

Name Field # of Occurrence
^(0 SETUTIL+1
^(44 EDIT2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKOK+1*, ASKOK+2, ASL*, ASL+1
%DT DATE+2*!
%DT("A" DATE+2*
%DT(0 DATE+2*
>> D CHECK+1*
DA EDTPT+1, Q+1!, CHECK+1*
DD CHECK+1!, NEXT!
DDLAYGO NEXT!
DFN EDTPT+1*, SETUTIL+1, SETUTIL+2*, WRDST+3, Q+1!, CHECK+1
DIC CHECK+1*, NEXT!
DIC(0 CHECK+1*
>> DINUM CHECK+1*
>> DLAYGO CHECK+1*
DO NEXT!
GDA Q+1!
GMRHLOC EDIT2*, EDIT2+1, Q+1!
GMROUT EDIT2*, EDIT2+1*, Q+1!
GMRQUAL Q+1!
>> GMRVIDT DATE+4*
GNUROP EN1+1*, EN2+1*, EN3+1*, EDIT2+1, Q+1!
IOST WRDST+1
NBED EDIT+2*, EDTPT+1, ASKOK+1, Q+1!
ND1 Q+1!
NDA Q+1!
NORM Q+1!
NPWARD Q+1!
NRMBD EDIT+1, Q+1!
NRMBD( WRDST+2
NUREDB EDIT+1, EDTPT+1, EDIT2+1, SETUTIL+1, SETUTIL+2, WRDST+2, Q+1!
NURHLO Q+1!
NURI Q+1!
NURLEN Q+1!
NURNAM EDIT+2*, EDTPT+1, ASKOK+1, Q+1!
NUROP EN1+1*, EN2+1*, EN3+1*, Q+1!
NUROUT Q+1!
NURP Q+1!
NURQUIT EDIT+1*, EDIT+2, EDTPT+1, EDIT2+1*, ASKOK+1*, ASL*, DATE+3*, Q+1!
NURQUIT(1 EDIT+1*, EDIT2, EDIT2+1, ASKOK+1*, ASL+2*
NURRM EDIT+2*, EDTPT+1, ASKOK+1, Q+1!
NURRMST Q+1!
NURSX Q+1!
NURSY Q+1!
NURWARD SETUTIL+1*, SETUTIL+2, Q+1!
NURWLO Q+1!
NURX Q+1!
NWLOC Q+1!
POP Q+1!
VA Q+1!
>> VADM(1 WRDST+2, WRDST+3
>> VAIN(4 EDIT2
>> VAIN(5 WRDST+2, WRDST+3
X EN1+1*, EN2+1*, EN3+1*, DATE+2*, DATE+3, Q+1!, CHECK+1*
Y DATE+3, DATE+4, Q+1!, CHECK+1
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