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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: NURSCEP1

Package: Nursing Service

Routine: NURSCEP1


Information

NURSCEP1 ;HIRMFO/JH/MH-LIST STAFF (#210) FILE DISCREPANCIES - CONT. ;7/15/97

Source Information

Source file <NURSCEP1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Nursing Service 2 EN7^NURSAUTL  ENDPG^NURSUT1  
VA Fileman 2 ^%DT  D^DIQ  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURSCEP  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; WRITE POSITION CONTROL REPORT DETAIL LINE
WRT ;
STAT(NOD) ; DETERMINE IF THE NURSING LOCATION IS ACTIVE BASED ON A NURS
; POSITION CONTROL FILE POINTER (NOD)
HDR

External References

Name Field # of Occurrence
^%DT HDR+2
D^DIQ HDR+2
EN7^NURSAUTL STAT+3
ENDPG^NURSUT1 NURSCEP1+4, NURSCEP1+7, NURSCEP1+10, HDR
$$REPEAT^XLFSTR HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,NURSDA,?10,NAME
  • Line Location: NURSCEP1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NURSCEP1+3
Function Call: WRITE
  • Prompt: !?6,"STAFF RECORD HAS NO CORRESPONDING NEW PERSON (#200) FILE ENTRY."
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !?6,"STAFF RECORD CONTAINS MISSING/INVALID DATA IN NAME FIELD."
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !?6,"STAFF RECORD CONTAINS MISSING/INVALID STATUS DATA."
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?6,"STAFF RECORD MISSING THE `B' INDEX ENTRY."
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !?6,"STAFF RECORD HAS ACTIVE STATUS AND NO CURRENT FILE 211.8 ASSIGNMENT(S)."
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !?6,"STAFF RECORD HAS `B' INDEX ENTRY AND NO DATA ON ZEROTH NODE."
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: ?15,$P($G(^VA(200,+NAM,0)),U)
  • Condition for execution: '(NURTYPE=3) !,NOD_",1,"_NDA_",0)" W:$G(NURTYPE)=3 !,$P($G(^VA(200,+NAM,0)),U) W:'(NURTYPE=3)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?40,$P(NURX,U),?53,$E($P(NURX,U,2),1,10),?65,$P(NURX,U,3),?72,$P(NURX,U,4)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: "NURS POSITION CONTROL/NURS STAFF File Integrity Report "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?57,Y,?71," PAGE: ",NURPAGE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"RECORD#",?12,"NAME",!,?6,"DISCREPANCY"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?40,"POSITION",?53,"UNIT",?64,"FTEE",?70,"START DATE"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"The following assignments are duplicates in the NURS Position Control (211.8)",!,"File. To deactivate a specific assignment use the global root ^NURSF(211.8,",!,"and the global reference indicated for that assignment:",!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"The following assignments have no corresponding Nurs Staff (#210) File entry.",!,"To remove the assignment use the global root ^NURSF(211.8, and the global",!,"reference indicated for that assignment:",!!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"The following active employees are assigned to inactive nursing locations.",!,"To deactivate or edit a specific assignment use the Status and Position Option",!,"[NURAED-STF-STAT/POS] of the Staff Record Edit",!!
  • Line Location: HDR+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^NURSF(211.4 - [#211.4] STAT+4, STAT+5
^NURSF(211.8 - [#211.8] STAT+3
^SC("B" STAT+4
^TMP("INACT" NURSCEP1+12
^TMP("NOSTAFF" NURSCEP1+9, NURSCEP1+10
^TMP("NURP" NURSCEP1+6, NURSCEP1+7
^TMP("NURS" NURSCEP1+3, NURSCEP1+4, WRT+2
^VA(200 - [#200] PRINT+2

Label References

Name Line Occurrences
HDR NURSCEP1+3, WRT+1, PRINT+1
PRINT NURSCEP1+6, NURSCEP1+9, NURSCEP1+12
WRT NURSCEP1+3

Naked Globals

Name Field # of Occurrence
^( NURSCEP1+3, NURSCEP1+9, NURSCEP1+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
IOF HDR+1
IOSL NURSCEP1+3, WRT+1, PRINT+1
IOST NURSCEP1+4, NURSCEP1+7, NURSCEP1+10, HDR, HDR+1
>> NAM NURSCEP1+5*, NURSCEP1+6*, NURSCEP1+8*, NURSCEP1+9*, NURSCEP1+11*, NURSCEP1+12*, PRINT+2
>> NAME NURSCEP1+3*
>> NDA NURSCEP1+6*, NURSCEP1+9*, NURSCEP1+12*, PRINT+2
NOD NURSCEP1+6*, NURSCEP1+9*, NURSCEP1+12*, PRINT+2, STAT~, STAT+3
>> NPWARD STAT+3*, STAT+4
>> NSW1 NURSCEP1+3, NURSCEP1+5*, NURSCEP1+8*, NURSCEP1+11*, PRINT+1, HDR, HDR+9*
>> NUM NURSCEP1+3*, WRT+2
>> NURDA STAT+4*, STAT+5
>> NURLOC STAT+4*
>> NUROUT NURSCEP1+3, NURSCEP1+4, NURSCEP1+6, NURSCEP1+7, NURSCEP1+9, NURSCEP1+10, NURSCEP1+12, WRT+1, PRINT+1, HDR
>> NURPAGE HDR+1*, HDR+2
>> NURQUEUE HDR
>> NURSDA NURSCEP1+2*, NURSCEP1+3*
NURSTAT STAT+2~, STAT+3*, STAT+5*, STAT+6
>> NURTYPE NURSCEP1+2*, NURSCEP1+5*, NURSCEP1+8*, NURSCEP1+11*, PRINT+2, HDR+3, HDR+4, HDR+6, HDR+7, HDR+8
>> NURX NURSCEP1+6*, NURSCEP1+9*, NURSCEP1+12*, PRINT+2
>> SCDA STAT+4*
>> SW WRT+2*, WRT+3, WRT+4, WRT+5, WRT+6, WRT+7, WRT+8
U PRINT+2
>> X HDR+2*
>> Y HDR+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All