Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: NURSUT0

Package: Nursing Service

Routine: NURSUT0


Information

NURSUT0 ;HIRMFO/MD,RM,FT-NURS STAFF FILE EDIT UTILITY ; 1/17/03 2:54pm

Source Information

Source file <NURSUT0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(NURSEMP,NURSDT) ; DETERMINE IF EMPLOYEE HAS ANY ACTIVE ASSIGNMENTS
EN2 ; FIND PRIMARY SERVICE POSITION
SVPOS
EN3 ; SELECT FIRST ACTIVE PRIMARY ASSIGNMENT
CHECK ;
EN4 ;SET LOGIC FOR DE XREF OF 211.82 SUBFILE
EN5 ;KILL LOGIC FOR DE XREF 0F 211.82 SUBFILE
EN6 ; SELECT MULTIPLE REPORT COPIES
EN7 ; NURS DEVICE HANDLING/QUEUEING LOGIC
EN8 ; INPUT TRANSFORM FOR 2.1 & 2.5 SUBFIELDS OF FIELD 22.5
EN9 ; FIND TOUR OF DUTY FROM STAFF FILE
EN11(D0) ; PRINT EMPLOYEE MI REVIEW GROUPS
EN12(DA) ; PRINT EMPLOYEE SALARY
EN13(DA) ; LATEST PROMOTION DATE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"How many copies of this report are required: 1// "
  • Line Location: EN6+1
Function Call: WRITE
  • Prompt: !,$C(7),?5,"ANSWER WITH A NUMBER BETWEEN 1 AND 20",!!
  • Line Location: EN6+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: EN7+3
Function Call: WRITE
  • Prompt: !,$C(7)," ** THIS REPORT MUST BE SENT TO A 132 COLUMN DEVICE **",!
  • Line Location: EN7+4
Function Call: WRITE
  • Prompt: !?5,NURS("HELP")
  • Line Location: EN8+5
Function Call: WRITE
  • Prompt: !?5,"DATE MUST BE A CURRENT OR PAST DATE"
  • Line Location: EN8+6
Function Call: WRITE
  • Prompt: !,?$S($G(EDIT)=1:0,1:9),"MI REVIEW GROUP: "
  • Line Location: EN11+2
Function Call: WRITE
  • Prompt: ?$S($G(EDIT)=1:18,1:26),$P($G(^PRSE(452.3,+PRSE,0)),U)
  • Line Location: EN11+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $O(^PRSPC(PDA,5,D1))
  • Line Location: EN11+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(212.7 - [#212.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call