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

Package: Nursing Service

Routine: NURSAGS0


Information

NURSAGS0 ;HIRMFO/RM,MD-SELECT MULTIPLE NURSING LOCATION UTILITY ;11/18/96

Source Information

Source file <NURSAGS0.m>

Entry Points

Name Comments DBIA/ICR reference
MDIC() ; FUNTION RETURNS NURSNLOC(NLOC,NLOCIEN)=""
; FUNCTION VALUE IS -1 IF USER ABORT, 0 IF NO LOCS PICKED, ELSE 1
; USERS WITH AN AMIS POSITION OF HEAD NURSE AND BELOW WILL ONLY
; BE ABLE TO SELECT LOCATIONS TO WHICH THEY HAVE BEEN ASSIGNED
; IF A SITE IS MULTI-DIVISIONAL AND A SPECIFIC FACILITY HAS BEEN
; SELECTED AS A SORT PARAMETER ONLY LOCATIONS ASSOCIATED WITH THAT
; FACILITY CAN BE SELECTED
DIC ;
RETURN
DIC1
HLP ; PRINT LOCATIONS SELECTED ALREADY

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DIC+7
Function Call: WRITE
  • Prompt: !,$S('$D(NURSNLOC):"Select",1:"Another")_" NURSING UNIT"_$S($D(NURSNLOC):"",NURSZAP'>7!('NURSZAP):" (Enter return for "_$S(NURSZAP'=7:"all units",1:"your ward(s)")_") ",1:"")_": "_$S(NURSZAP>7:DIC("B")_"//",1:"")
  • Line Location: DIC+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !?3,"YOU HAVE ALREADY SELECTED: "
  • Line Location: HLP+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !!?3,"You may deselect from the list by typing the - followed by location name.",!?4,"E.g. -3E would delete 3E from the list of locations already selected."
  • Line Location: HLP+4

FileMan Files Accessed Via FileMan Db Call

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