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 |  Local Variables |  All
Print Page as PDF
Routine: NURACEW

Package: Nursing Service

Routine: NURACEW


Information

NURACEW ;HIRMFO/RM,MD,FT-CLASSIFY PATIENTS ON A GIVEN WARD ;8/14/96 09:57

Source Information

Source file <NURACEW.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Nursing Service 3 (EN1,EN2)^NURACE0  SORTTABL^NURACEW1  EN6^NURSAUTL  
Registration 1 1^VADPT  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Nursing Service 2 NURAPC-REVWRD  NURAPC-WRD  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;KILL LOCAL VARIABLES
CHKCONT2 ;
READNXT ; GET NEXT PATIENT
EDIT ; SELECT WARD TO BE SEARCHED
CHKCONT ;
QUIT2 ; KILL THE REST OF THE VARIABLES
EN1 ;
EN2 ; ENTRY FROM OPTION NURAPC-REVWRD
CHKENTR ;ASK TO CLASSIFY ON THE WARD
CHKCONT1 ;
BGNRPT ; VALIDATE EACH PATIENT REGISTERED ON WARD

External References

Name Field # of Occurrence
^DIC EDIT+2
EN1^NURACE0 CHKCONT1+3
EN2^NURACE0 CHKCONT1+3
SORTTABL^NURACEW1 CHKENTR+5
EN6^NURSAUTL EDIT+5
1^VADPT BGNRPT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"**** NO PATIENTS REGISTERED ON WARD ",NPWARD," ****"
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !,"Begin updating patient classifications."
  • Line Location: CHKENTR+3
Function Call: WRITE
  • Prompt: !!,$P(NURSTABL(TCNT),"^",2),?$X+10,ROOMTABL(TCNT)," OK? YES// "
  • Line Location: CHKCONT1+1
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO"
  • Line Location: CHKCONT1+5
Function Call: WRITE
  • Prompt: !!,"Do you wish to stop looping through names? YES//"
  • Line Location: CHKCONT2+1
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO"
  • Line Location: CHKCONT2+4
Function Call: WRITE
  • Prompt: !!,?16,"**** ROUTINE FINISHED ****",!!
  • Line Location: QUIT2+1
Routine Call
  • DIC
  • Line Location:
    • EDIT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN1+1, EN2+1
^NURSF(214 - [#214] EDIT+3, READNXT+1

Label References

Name Line Occurrences
BGNRPT READNXT+3
CHKCONT CHKCONT1+3, CHKCONT2+3
CHKCONT1 CHKCONT1+5
CHKCONT2 CHKCONT1+4, CHKCONT2+4
CHKENTR READNXT+2
EDIT EN1+4
QUIT EN1+2, EN2+2, CHKENTR+1
QUIT2 CHKENTR+2, CHKCONT+2, CHKCONT1+2, CHKCONT2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EDIT+5!
DFN EDIT+3*, EDIT+5, BGNRPT+3, READNXT+1*, READNXT+2, QUIT+1!
DIC EDIT+1*, EDIT+2!, EDIT+5!, QUIT+1!
DIC("A" EDIT+1*
DIC("S" EDIT+1*
DIC(0 EDIT+1*
DTIME CHKCONT1+1, CHKCONT2+1
I QUIT+1!
NOPATSW EDIT+5!, QUIT+1!
NPWARD EDIT+5*!
NURSCNT BGNRPT+3*, QUIT2+2!
NURSDTSW QUIT2+2!
NURSTABL EDIT+6!, QUIT2+2!
NURSTABL( BGNRPT+3*, CHKCONT+2, CHKCONT1+1
NURSTABL(1 CHKENTR+2, QUIT2+1
NURSWHO QUIT2+2!
NURSX CHKCONT1+1*, CHKCONT1+2*, CHKCONT1+3, CHKCONT1+4, CHKCONT2+1*, CHKCONT2+2*, CHKCONT2+3, QUIT2+2!
NURSY QUIT2+2!
NURSZ QUIT2+2!
POP QUIT+1!
REVSW EN1+3*, EN2+3*, EDIT+2!, EDIT+5!, CHKCONT1+3, QUIT2+2!
ROOMTABL QUIT2+2!
ROOMTABL( BGNRPT+3*, CHKCONT1+1
TABLSW CHKCONT1+3*, QUIT2+2!
TCNT EDIT+6*, BGNRPT+3*, CHKENTR+4*, CHKCONT+1*, CHKCONT+2, CHKCONT1+1, QUIT2+2!
>> VADM(1 BGNRPT+3
>> VAIN(5 BGNRPT+2
VAROOT QUIT2+2!
WARDNAM EDIT+3*, EDIT+5!, READNXT+1, QUIT+1!
X EDIT+2, QUIT+1!
XRMBD BGNRPT+1*, BGNRPT+2*, BGNRPT+3, QUIT2+2!
Y EDIT+2, EDIT+3, QUIT+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 |  Local Variables |  All