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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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