GMV WARD LOCATION (1269)    REMOTE PROCEDURE (8994)

This procedure extracts MAS ward locations from the Ward Location file
(#42).
 
Note: No other Input Parameters besides RESULT needed.

• DUMMY
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   1
  REQUIRED:   NO
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  When this input parameter is set to the letter "P", only wards that have 
  patients will be returned. Otherwise, all active wards will be returned.
  

Returns the global array name containing a list of MAS wards (i.e., 
 
Example:
 > S DUMMY="P" 
 > D WARDLOC^GMVGETD(.RESULT,DUMMY) ZW RESULT
 > RESULT="^TMP(540221719,"GWARD")"
 > D ^%G
 > Global ^TMP($J,"GWARD"
 > ^TMP(540221719,"GWARD",1)=2^1AS^2
                          2)=1^2-AS^1
                          3)=13^2-ASM^67
^TMP($J,"GWARD")).
                          4)=25^214-2 DOM^149
                          5)=3^3AS^128
                          6)=4^4AS-1^4
                          7)=22^4B^153
                          8)=23^4C^155
                          9)=24^4D^154
                          10)=12^5NM^63
                          11)=6^6AS^10
                          12)=7^7AS^11
                          13)=8^DOM^23
 
                          14)=10^MICU^36
                          15)=5^NHCU^5
^TMP($J,"GWARD",n)=piece1^piece2^piece3
 where:
  piece1 = ward IEN (FILE 42)
  piece2 = ward name (FILE 42, Field .01)
  piece3 = hospital location IEN (FILE 44)
  n is a sequential number starting at 1.