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

Package: Nursing Service

Routine: NURSCPLD


Information

NURSCPLD ;HIRMFO/RM-DISCHARGE MODULE TO DISCHARGE PATIENT FROM NURSING ;SEPTEMBER 1986

Source Information

Source file <NURSCPLD.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^%DT  ^DIE  
Nursing Service 1 EN5^NURSCUTL  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURSPT-INAC  

Entry Points

Name Comments DBIA/ICR reference
LOCATE ; SELECT AND VALIDATE PATIENT
QUIT ; KILL LOCAL VARIABLES
DISCONT ;
DISQUES1 ;
ERRSTAT ;
EN1 ;
DISQUES
DISEDIT ; EDIT DISCHARGE DATE

External References

Name Field # of Occurrence
^%DT DISQUES1+1
^DIE DISQUES1+4, DISEDIT+1
EN5^NURSCUTL LOCATE+1
DEM^VADPT DISQUES1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LOCATE+1
Function Call: WRITE
  • Prompt: !,"PATIENT HAS ALREADY BEEN DISCHARGED FROM THE NURSING SYSTEM.",!,"DO YOU WANT TO CHANGE THE DISCHARGE DATE? NO//"
  • Line Location: DISQUES+0
Function Call: WRITE
  • Prompt: !,"ANSWER YES OR NO"
  • Line Location: DISQUES+2
Function Call: WRITE
  • Prompt: !,VADM(1)," is discharged from the Nursing System."
  • Line Location: DISQUES1+5
Function Call: WRITE
  • Prompt: !!,*7,"THIS PATIENT IS NOT ADMITTED CURRENTLY IN THE NURSING SYSTEM - CANNOT DISCHARGE"
  • Line Location: ERRSTAT+1
Routine Call
  • DIE
  • Line Location:
    • DISQUES1+4
    • DISEDIT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN1+1
^NURSF(214 - [#214] DISCONT+1, DISCONT+2, DISCONT+3, DISQUES1+1

Label References

Name Line Occurrences
DISEDIT DISQUES+1
DISQUES DISQUES+2
DISQUES1 DISCONT+3
ERRSTAT DISCONT+1
NURSCPLD DISQUES+1, DISQUES1+2, DISQUES1+6, DISEDIT+2
QUIT EN1+2, LOCATE+2, DISCONT+1, DISQUES+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DISQUES1+1*!, QUIT+1!
%DT("A" DISQUES1+1*
%DT("B" DISQUES1+1*
%DT(0 DISQUES1+1*
%Y QUIT+1!
D QUIT+1!
D0 QUIT+1!
DA DISQUES1+4*, DISEDIT+1*, QUIT+1!
DFN LOCATE+2, DISCONT+1, DISCONT+2, DISCONT+3, DISQUES1+1, DISQUES1+4, DISEDIT+1, QUIT+1!
DI QUIT+1!
DIC QUIT+1!
DIC(0 LOCATE+1*
DIE DISQUES1+4*, DISEDIT+1*, QUIT+1!
DIPGM QUIT+1!
DR DISQUES1+4*, DISEDIT+1*, QUIT+1!
DTIME DISQUES
I QUIT+1!
NACT LOCATE+1*, QUIT+1!
NASK LOCATE+1*, QUIT+1!
NURSDIS DISCONT+2*, DISCONT+3, DISQUES, DISQUES1+3*, QUIT+1!
VA QUIT+1!
VADM QUIT+1!
VADM(1 DISQUES1+5
VAERR QUIT+1!
>> X DISQUES*, DISQUES+1, DISQUES1+2
>> Y DISQUES1+2, DISQUES1+3
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