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

Package: Nursing Service

Routine: NURSAL0


Information

NURSAL0 ;HIRMFO/JM-DRIVER FOR EDIT,PRINT OPTIONS FOR THE LOCATION REASSIGNMENT OPTION NURSLO-MENU ;8/23/96 10:51

Source Information

Source file <NURSAL0.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Nursing Service 7 (EN1,EN5,PRD)^NURSAGSP  EN1^NURSALED  (EN1,EN6)^NURSAUTL  ^NURSKILL  EN7^NURSUT0  ($$BUDCAT,$$LOCSTAT,CLOSE,ENDPG)^NURSUT1  $$EN12^NURSUT3  
VA Fileman 4 ^%DT  ^DIC  ($$GET1,D)^DIQ  ^DIR  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURSLO-PRINT  

Entry Points

Name Comments DBIA/ICR reference
SORT ;
WRITE
START ;
NHDR1
NHDR
Q
EN1 ;ENTRY FROM OPTION NURSLO-PRINT EDIT LOCATION FILE ENTRIES
EN2 ;ENTRY FROM OPTION NURSLO-EDIT CURRENT LOCATION ENTRIES
ASK ; ENTRY FOR WARD SELECTION PROMPT
NPRINT ;

External References

Name Field # of Occurrence
^%DT NHDR+3
^DIC EN1+2
$$GET1^DIQ SORT+2
D^DIQ NHDR+3
^DIR EN2+4
EN1^NURSAGSP ASK+3
EN5^NURSAGSP ASK+1
PRD^NURSAGSP ASK+2
EN1^NURSALED EN1+2
EN1^NURSAUTL EN2+5
EN6^NURSAUTL SORT+3
^NURSKILL Q
EN7^NURSUT0 EN2+6
$$BUDCAT^NURSUT1 WRITE+11, WRITE+18
$$LOCSTAT^NURSUT1 WRITE+6
CLOSE^NURSUT1 Q
ENDPG^NURSUT1 NHDR
$$EN12^NURSUT3 SORT+2
$$REPEAT^XLFSTR NHDR+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,$E(NPWARD,1,10)
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: ?13,$S($P($G(^NURSF(211.4,+DA,1)),U)="A":"ACTIVE",1:"INACTIV"),?24,$S($G(^NURSF(211.4,+DA,"I"))="A":"ACTIVE",1:"**INACTIV")
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: D1>1
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?35,$P($G(^NURSF(213.3,Y,1)),U)
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: D1>1
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?46,$E($P($G(^DIC(42,X,0)),U),1,9)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?55,$P($G(^NURSF(213.3,+Y,1)),U)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?66,$S(+$$LOCSTAT^NURSUT1(Y):"YES",1:"NO")
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: ?75,$P(NDATA,U,2),?84,$E($P($G(^NURSF(211.5,+$P(NDATA,U,3),0)),U),1,9)
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: ?98,$P(NDATA,U,2),?104,$J($$BUDCAT^NURSUT1(PDA),2,3)
  • Line Location: WRITE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+11
Function Call: WRITE
  • Prompt: ?112,$P($G(^NURSF(211.3,+NDATA,0)),U),?123,$J($P(NDATA,U,2),2,3),!
  • Line Location: WRITE+12
Function Call: WRITE
  • Prompt: ?13,$P(NDATA,U,2),?20,$E($P($G(^NURSF(211.5,+$P(NDATA,U,3),0)),U),1,11)
  • Line Location: WRITE+16
Function Call: WRITE
  • Prompt: ?37,$P(NDATA,U,2),?45,$J($$BUDCAT^NURSUT1(PDA),2,3)
  • Line Location: WRITE+18
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+18
Function Call: WRITE
  • Prompt: ?58,$P($G(^NURSF(211.3,+NDATA,0)),U),?70,$J($P(NDATA,U,2),2,3),!
  • Line Location: WRITE+19
Function Call: WRITE
  • Prompt: !,"EXISTING LOCATION REPORT",?$S(NURS132:100,1:50),NURDT,?$S(NURS132:124,1:72),"PAGE: ",NURPAGE
  • Line Location: NHDR+4
Function Call: WRITE
  • Prompt: !,?13,"PATIENT",?35,"AMIS",?55,"MAS",!,?13,"CARE",?24,"WARD",?35,"BED",?46,"MAS",?55,"BED",?66,"STAFF"
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: ?75,"PROF",?84,"UNIT",?94,"SERVICE",?104,"BUDG",?112,"SERVICE",?123,"BUDG"
  • Line Location: NHDR+6
Function Call: WRITE
  • Prompt: !,"NAME",?13,"STATUS",?24,"STATUS",?35,"SECTION",?46,"WARD",?55,"SECTION",?66,"FLAG"
  • Line Location: NHDR+7
Function Call: WRITE
  • Prompt: ?76," %",?84,"TYPE",?94,"CATEGORY",?104,"FTEE",?112,"POSITION",?123,"FTEE"
  • Line Location: NHDR+8
Function Call: WRITE
  • Prompt: !,?13,"PROF",?20,"UNIT",?34,"SERVICE",?45,"BUDGETED",?58,"SERVICE",?70,"BUDGETED"
  • Line Location: NHDR+10
Function Call: WRITE
  • Prompt: !,"NAME",?13," %",?20,"TYPE",?34,"CATEGORY",?45,"FTEE",?58,"POSITION",?70,"FTEE"
  • Line Location: NHDR+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",$S($G(NURS132):132,1:80))
  • Line Location: NHDR+13
Function Call: WRITE
  • Prompt: !!,?10,"FACILITY: ",NURFAC
  • Line Location: NHDR+14
Function Call: WRITE
  • Prompt: !?6,"PRODUCT LINE: ",$S($E(NURPROG,1)=" ":$E(NURPROG,2,99),1:$G(NURPROG)),!
  • Line Location: NHDR1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3
Routine Call
  • DIC
  • Line Location:
    • EN1+2
Routine Call
  • DIR
  • Line Location:
    • EN2+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN1+1, EN2+1
^DIC(42 - [#42] WRITE+5
^NURSF(211.3 - [#211.3] WRITE+12, WRITE+19
^NURSF(211.4 - [#211.4] START+3, WRITE+3, WRITE+4, WRITE+5, WRITE+6, WRITE+9, WRITE+10, WRITE+16, WRITE+17
^NURSF(211.5 - [#211.5] WRITE+9, WRITE+16
^NURSF(211.8 - [#211.8] WRITE+11, WRITE+12, WRITE+18, WRITE+19
^NURSF(212.7 - [#212.7] SORT+2
^NURSF(213.3 - [#213.3] WRITE+4, WRITE+5
^TMP($J START+1!, Q!, SORT+8*, NPRINT+2, NPRINT+3

Label References

Name Line Occurrences
ASK EN2+5
EN1 EN1+3
NHDR NPRINT+2, WRITE, WRITE+11, WRITE+18
NHDR1 NPRINT+2, WRITE, WRITE+11, WRITE+18
NPRINT START+4
Q EN2+4, EN2+5, EN2+6
SORT START+2, START+3
WRITE NPRINT+3

Naked Globals

Name Field # of Occurrence
^( START+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D1 WRITE+4*, WRITE+5*
>> DA START+2*, START+3*, SORT+2, SORT+3, SORT+8, NPRINT+3*, WRITE+3, WRITE+4, WRITE+5, WRITE+6
, WRITE+9, WRITE+10, WRITE+16, WRITE+17
DIC EN1+2*!
DIC("A" EN1+2*
DIC(0 EN1+2*, ASK+1*
DIR EN2+4!
DIR("A" EN2+3*, EN2+4*
DIR(0 EN2+4*
>> DIRUT EN2+4
IOF NHDR+2
IOSL WRITE, WRITE+11, WRITE+18
IOST SORT+1, NHDR, NHDR+2
>> NDATA WRITE+9*, WRITE+11*, WRITE+12*, WRITE+16*, WRITE+18*, WRITE+19*
>> NPWARD START+2*, SORT+3*, SORT+4, SORT+8, NPRINT+3*, WRITE+1
>> NURDT NHDR+3*, NHDR+4
>> NURFAC SORT+5, NPRINT+1*, NPRINT+2*, NPRINT+3, NHDR+14
>> NURFAC(1 SORT+5
>> NURHOSP START+2, START+3, SORT+3, SORT+4
>> NURMDSW NHDR+14, ASK+1, ASK+2
>> NUROUT EN2+2*, EN2+4*, EN2+5, NPRINT+2, NPRINT+3, WRITE, WRITE+11, WRITE+18, NHDR, ASK+1
, ASK+2, ASK+3
>> NURPAGE EN2+2*, NHDR+1*, NHDR+2, NHDR+4
NURPLSCR ASK+1*!, ASK+2*!
>> NURPLSW SORT+6, NHDR1, ASK+2
>> NURPOS WRITE+10*, WRITE+11, WRITE+17*, WRITE+18
>> NURPROG SORT+6, NPRINT+2*, NPRINT+3, NHDR1
>> NURPROG(1 SORT+6
>> NURQUEUE EN2+2*, NHDR
>> NURS132 EN2+2*, EN2+5*, WRITE+8, NHDR+4, NHDR+6, NHDR+8, NHDR+13
>> NURSEL EN2+5*, WRITE+2, WRITE+15, NHDR+5, NHDR+7, NHDR+9
>> NURSFAC SORT+2*, SORT+5, SORT+8
>> NURSNLOC( START+2, SORT+4
>> NURSPROG SORT+2*, SORT+6, SORT+7*, SORT+8
NURSREV EN1+2*!
>> NURSW1 EN2+2*, WRITE, NHDR, NHDR+1*
>> PD1 WRITE+12*, WRITE+19*
>> PDA WRITE+10*, WRITE+11*, WRITE+12, WRITE+17*, WRITE+18*, WRITE+19
>> POP EN2+6
U SORT+2, WRITE+3, WRITE+4, WRITE+5, WRITE+9, WRITE+11, WRITE+12, WRITE+16, WRITE+18, WRITE+19
>> X EN1+1*, EN2+1*, EN2+5, SORT+2*, WRITE+5*, NHDR+3*
>> Y EN1+2, WRITE+4*, WRITE+5*, WRITE+6*, NHDR+3
>> ZTRTN EN2+6*
>> ZTSK EN2+6
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