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

Package: Nursing Service

Routine: NURSUT3


Information

NURSUT3 ;HIRMFO/RM,MD-UTILITIES FOR FILES 210 AND 211.8 ; 3/4/03 10:51am

Source Information

Source file <NURSUT3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Nursing Service 3 (EN2,EN3)^NURSAUTL  EN3^NURSUT2  ($$EN7,$$EN8,$$EN9)^NURSUT3  
VA FileMan 2 ^%DT  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
Nursing Service 39 *CONTINUING EDUCATION PROGRAM  NATIONAL CERTIFICATION  NURA6I2  NURA9I  NURAAGS1  NURAAU2  NURAED1  NURAED2  
NURAED5  NURAED7  NURAFSD  NURAMH9  NURAR11A  NURAR1A  NURARCRW  NURARMH1  
NURARMH2  NURARNCT  NURARPC3  NURARPC4  NURARWL1  NURARWL2  NURARWL4  NURSAFLL  
NURSAGP1  NURSAGS0  NURSAL0  NURSAUTL  NURSCPLC  NURSEP31  NURSEP3I  NURSEPCA  
NURSEPD0  NURSEPD2  NURSEPIN  NURSEPML  NURSUT0  NURSUT3  OCCUPANCY/TRANSFERRED DATE  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; INPUT TRANSFORM FOR THE VACANCY DATE (#3) OF THE OCCUPANCY/TRANS.
; DATE (#2) FIELD OF THE POSITION CONTROL FILE.
EN2 ; ENTRY FROM INPUT TRANSFORM FOR 1 & 1.5 SUBFIELDS OF FIELD 27
; OF FILE 210
EN3 ; ENTRY FROM INPUT TRANSFORM ON SUBFIELD .01 OF SUBFIELD 5.5 OF
; FIELD 27 IN FILE 20
EN4 ; PRINT ERROR MESSAGE BASED ON WHAT IS RETURNED FROM EN3
; INPUT VARIABLES: NURSBAD=$S(0:NO PROB,1:PROB)^$S(1:FTEE>1,2:DUP PRI,
; 3:STARTDT>VACDT,4:DUP)
; SERVICE POS,5:NO PRI)
; ASS:ERR,7:DUP DUTY
; TOURS)
EN5 ; ENTRY FROM INPUT TRANSFORM FOR 2 & 3 SUBFIELDS OF FIELD 24
; OF FILE 210
EN6(DA) ; SCREEN IF EMPLOYEE IS AUTHORIZED TO VIEW THIS LOCATION
; VARIABLES ARE SET BASED ON DIC("S") TO FILE 210.
EN7(DUZ) ; PRSE TRAIN SECURITY KEY CHECK
EN8(DUZ) ; PRSE SUP SECURITY KEY CHECK
EN9(DUZ) ; PRSE CORD SECURITY KEY CHECK
EN10(DUZ) ;
EN11(DA) ; GET FACILITY WITH POSITION CONTROL IEN IN THE NURS POSITION
; CONTROL 211.8 FILE. THE VALUE OF THE FUNCTION WILL BE "" IF THERE
; IS NO FACILITY ASSOCIATED WITH THIS HOSPITAL LOCATION, OR THE
; FREE TEXT VALUE OF THE FACILITY
EN12(DA) ; GET FACILITY WITH IEN FROM THE NURS LOCATION 211.4 FILE
; THE VALUE OF THE FUNCTION WILL BE " BLANK" IF THERE IS NO FACILITY ASSOCIATED
; WITH THIS NURS LOCATION OR THE FREE TEXT VALUE OF THE FACILITY
EN13(NOD1) ; GET PRODUCT LINE OF PRIMARY NURS LOCATIO WITH IEN FROM THE
; POSITION CONTROL FILE THE VALUE OF THE FUNCTION WILL BE " BLANK
; IF THERE IS NO PRODUCT LINE ASSOCIATED WITH THIS NURS LOCATION OR THE
; FREE TEXT VALUE OF THE PRODUCT LINE
GETSER() ; THIS PROCEDURE WILL RETURN THE VALUE FOR NURSING IN THE
; PAID COST CENTER ORGANIZATION CODE (454.1) FILE. THE VALUE
; OF THE FUNCTION WILL BE "" IF THERE ARE NO NURSING ENTRIES, OR
; A LIST OF NURSING ENTRY IEN's SEPARATED BY ^'s.

External References

Name Field # of Occurrence
^%DT EN2+3, EN5+4
$$GET1^DIQ EN11+4, EN11+5, EN11+6, EN12+3, EN13+5
EN2^NURSAUTL EN6+17
EN3^NURSAUTL EN6+13
EN3^NURSUT2 EN1+3
$$EN7^NURSUT3 EN10+3
$$EN8^NURSUT3 EN10+1
$$EN9^NURSUT3 EN10+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,NURS("HELP")
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"NO FUNDS WERE REQUESTED FOR "_$S(X="T":"TRAVEL",X="A":"AIRFARE",X="P":"PER DIEM",1:"REGISTRATION")_":"
  • Line Location: EN3+3
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=1:"THE TOTAL FTEE",$P(NURSBAD,U,2)=2:"TWO PRIMARY ASSIGNMENTS EXIST FOR",$P(NURSBAD,U,2)=3:"THE START DATE IS GREATER THAN",$P(NURSBAD,U,2)=4:"DUPLICATE SERVICE POSITIONS ON THE",1:"")
  • Line Location: EN4+7
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=7:"DUPLICATE DUTY TOURS ON THE",1:"")
  • Line Location: EN4+8
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=1:"",$P(NURSBAD,U,2)=2:"",$P(NURSBAD,U,2)=3:"",$P(NURSBAD,U,2)=4:"",$P(NURSBAD,U,2)=5:"NO PRIMARY POSITION WAS DESIGNATED, THIS POSITION WILL BE PRIMARY",$P(NURSBAD,U,2)=7:"",1:"")
  • Line Location: EN4+9
Function Call: WRITE
  • Prompt: $S($P(NURSBAD,U,2)=1:"",$P(NURSBAD,U,2)=2:"",$P(NURSBAD,U,2)=3:"",$P(NURSBAD,U,2)=4:"",$P(NURSBAD,U,2)=5:"",$P(NURSBAD,U,2)=6:"NO PRIMARY POSITION EXISTS FOR THIS ",$P(NURSBAD,U,2)=7:"",1:"INVALID DATA EXISTS FOR THIS")
  • Line Location: EN4+10
Function Call: WRITE
  • Prompt: !?5,$S($P(NURSBAD,U,2)=1:"WOULD BE GREATER THAN 1 FOR THIS ",$P(NURSBAD,U,2)=2:"THIS ",$P(NURSBAD,U,2)=3:"THE VACANCY DATE FOR THIS ",$P(NURSBAD,U,2)=4!($P(NURSBAD,U,2)=7):"SAME LOCATION EXIST FOR THIS ",1:"")
  • Line Location: EN4+11
Function Call: WRITE
  • Prompt: !?5,NURS("HELP")
  • Line Location: EN5+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.8 - [#211.8] GET1^DIQ
^NURSF(212.7 - [#212.7] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^NURSA(213.2 - [#213.2] EN11+6
^NURSF(210 - [#210] EN2+2, EN3+2, EN5+2, EN6+5
^NURSF(211.4 - [#211.4] EN12+3, EN13+4, EN13+5
^NURSF(211.8 - [#211.8] EN1+2, EN6+9, EN6+10, EN6+11, EN13+4
^PRSP(454.1 - [#454.1] GETSER+5, GETSER+6
^SC - [#44] EN12+3
^XUSEC("PRSE CORD" EN9+1
^XUSEC("PRSE SUP" EN8+1
^XUSEC("PRSE TRAIN" EN7+1

Label References

Name Line Occurrences
EN4 EN1+4

Naked Globals

Name Field # of Occurrence
^(0 EN1+2, EN2+2, EN3+2, EN5+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN2+3*, EN2+4!, EN5+4*, EN5+5!
%DT(0 EN2+2*, EN2+3!, EN5+2*, EN5+3*, EN5+4!
>> D1 EN3+2*
>> D2 EN3+2*
DA EN1+2, EN2+2, EN5+2, EN6~, EN11~, EN11+4, EN12~, EN12+3
DA(1 EN1+2, EN2+2, EN5+2
DA(2 EN3+2
DIC44DA EN11+4*, EN11+5, EN11+7!
DIC4DA EN11+5*, EN11+7!, EN12+3*!
DT EN6+12
DUZ EN7~, EN7+1, EN8~, EN8+1, EN9~, EN9+1, EN10~, EN10+1, EN10+2, EN10+3
FXN GETSER+4~, GETSER+7*, GETSER+8*, GETSER+9
FXN(1 GETSER+5*, GETSER+7
FXN(2 GETSER+6*, GETSER+7
NOD1 EN13~, EN13+4
>> NUR(0 EN1+2*, EN1+3*
NUR200DA EN6+4~, EN6+5*, EN6+9, EN6+10
NUR21182 EN6+4~, EN6+10*, EN6+11
NUR2127 EN13+4~, EN13+5*
NURDATA EN6+4~, EN6+11*, EN6+12
>> NURMDSW EN11+6
NURNODE4 EN6+4~, EN6+9*, EN6+10, EN6+11
NURS EN2+2, EN2+4!, EN3+2*, EN3+3, EN3+4!, EN5+2, EN5+5!
NURS("HELP" EN2+2*, EN2+3, EN5+2*, EN5+4
NURS(0 EN2+2*, EN3+2*, EN5+2*
NURSBAD EN1+2*, EN1+3, EN1+4, EN4+6, EN4+7, EN4+8, EN4+9, EN4+10, EN4+11, EN4+12
EN4+13!
NURSSEE EN6+4~
>> NURSZAP EN6+7, EN6+17, EN10+1*, EN10+2*, EN10+3*
>> NURSZORT EN6+3*, EN6+5*, EN6+6, EN6+7, EN6+8*, EN6+9, EN6+10, EN6+13*, EN6+19
NURUNIT EN13+4~*, EN13+5
NX EN4+13!
SC44DA EN13+4~*
U EN1+2, EN1+3, EN2+2, EN3+2, EN4+6, EN4+7, EN4+8, EN4+9, EN4+10, EN4+11
EN4+12, EN5+2, EN6+12, EN12+3, EN13+5, GETSER+7
X EN1+3, EN1+4!, EN2+3*!, EN3+2, EN3+3!, EN5+4*!
>> XXX EN11+4*, EN11+5*, EN11+6*, EN11+8, EN12+3*, EN12+4, EN13+5*, EN13+6
>> Y EN1+2, EN2+3, EN5+4, EN6+5
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