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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMVFIXHL

Package: General Medical Record - Vitals

Routine: GMVFIXHL


Information

GMVFIXHL ;HIOFO/FT - HOSPITAL LOCATION FIX ;10/20/09 11:42

Source Information

Source file <GMVFIXHL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ($$PWD,CLOSE,OPEN)^%ZISH  (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  INSTALDT^XPDUTL  
VA FileMan 2 EN^DDIOL  UPDATE^DIE  
MailMan 1 ^XMD  
Registration 1 ($$TESTPAT,INP,KVAR)^VADPT  
VDEF 1 ($$QUEUE,QUEUE)^VDEFQM  

Entry Points

Name Comments DBIA/ICR reference
EN ;
QUEUE ; The problem started when GMRV*5.0*3 was installed.
; a) Find date patch 3 was installed. Go back a little farther to be safe.
; b) Loop through FILE 120.5.
; c) Ignore if not inpatient.
; d) Check hospital location pointer of the Vitals record.
; e)Determine if pointer can/needs to be changed.
SETHL(NEWHL,IEN,OLDHL) ; Set hospital location pointer (.05) field in 120.5.
; Returns a line of text
; NEWHL = New File 44 pointer
; IEN = File 120.5 record ien
; OLDHL = Old File 44 pointer
INP ;get inpatient location
EMAIL(GMVTXT) ; Send a MailMan message
HDR(GMVX,GMVY) ; Send record to Health Data Repository (HDR)
; Input: GMVX - FILE 120.5 IEN
; GMVY - DFN
; Output: none

External References

Name Field # of Occurrence
$$PWD^%ZISH QUEUE+46
CLOSE^%ZISH QUEUE+90
OPEN^%ZISH QUEUE+48
^%ZTLOAD EN+5
$$S^%ZTLOAD QUEUE+68
EN^DDIOL EN+6
UPDATE^DIE SETHL+8
$$TESTPAT^VADPT HDR+8
INP^VADPT INP+3
KVAR^VADPT INP+5
$$QUEUE^VDEFQM HDR+10
QUEUE^VDEFQM HDR+9
$$FMADD^XLFDT QUEUE+57
$$FMTE^XLFDT QUEUE+10, QUEUE+84
$$NOW^XLFDT EN+4, QUEUE+10, QUEUE+84
^XMD EMAIL+5
INSTALDT^XPDUTL QUEUE+12, QUEUE+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Start Date/time: "_GMVBEG
  • Line Location: QUEUE+85
Function Call: WRITE
  • Prompt: !," Finish Date/time: "_GMVEND
  • Line Location: QUEUE+86
Function Call: WRITE
  • Prompt: !," Number of records checked: "_GMVTOTAL
  • Line Location: QUEUE+87
Function Call: WRITE
  • Prompt: !," Number of records changed: "_GMVTOT
  • Line Location: QUEUE+88
Function Call: WRITE
  • Prompt: !,"Number of records that could not be changed: "_GMVECNT
  • Line Location: QUEUE+89
Routine Call
  • DIE
  • Line Location:
    • SETHL+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] INP+7
^GMR(120.5 - [#120.5] QUEUE+59, QUEUE+62, QUEUE+72
^SC - [#44] QUEUE+79
^TMP($J QUEUE+9!

Label References

Name Line Occurrences
$$SETHL QUEUE+81
EMAIL QUEUE+17, QUEUE+25, QUEUE+34, QUEUE+42, QUEUE+53, QUEUE+100
HDR QUEUE+83
INP QUEUE+76

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN INP+1~, INP+2*
DIFROM EMAIL+1~
DUZ EMAIL+3
ERR HDR+4~, HDR+10
GMVAIN INP+1~
GMVAIN(4 INP+4
GMVBEG QUEUE+6~, QUEUE+10*, QUEUE+85, QUEUE+92
GMVCNT QUEUE+6~, QUEUE+58*, QUEUE+64*, QUEUE+65, QUEUE+66*
GMVDA SETHL+5~
GMVDATES QUEUE+12, QUEUE+28!, QUEUE+29
GMVDATES( QUEUE+20, QUEUE+37
GMVDATES(0 QUEUE+13, QUEUE+30
GMVDFN QUEUE+6~, QUEUE+74*, QUEUE+76, QUEUE+77, QUEUE+78, QUEUE+80, QUEUE+81, QUEUE+83, INP+2, INP+9
GMVECNT QUEUE+6~, QUEUE+58*, QUEUE+89, QUEUE+96, SETHL+11*
GMVEDT QUEUE+6~, QUEUE+36*, QUEUE+37*, QUEUE+38, QUEUE+59
GMVEND QUEUE+6~, QUEUE+84*, QUEUE+86, QUEUE+93
GMVERR SETHL+5~
GMVERR("DIERR" SETHL+9, SETHL+10, SETHL+12
GMVFDA SETHL+5~
GMVFDA( SETHL+7*
GMVFILE QUEUE+6~, QUEUE+45*, QUEUE+48, QUEUE+51, QUEUE+98
GMVFLAG HDR+4~, HDR+10*
GMVHL QUEUE+6~, QUEUE+74*, QUEUE+78, QUEUE+79, QUEUE+80, QUEUE+81
GMVHLPTR INP+1~, INP+7*, INP+8, INP+9
GMVIEN QUEUE+6~, QUEUE+60*, QUEUE+62*, QUEUE+72, QUEUE+81, QUEUE+83
GMVLINE SETHL+5~, SETHL+6*, SETHL+10*, SETHL+13*, SETHL+15
GMVLOC QUEUE+61!
GMVLOC( QUEUE+76, QUEUE+77, QUEUE+78, QUEUE+80, QUEUE+81, INP+2*, INP+9*
GMVMSG QUEUE+6~, QUEUE+81*, QUEUE+82
GMVNODE QUEUE+6~, QUEUE+72*, QUEUE+73, QUEUE+74
GMVODT QUEUE+6~, QUEUE+74*, QUEUE+76, QUEUE+77, QUEUE+78, QUEUE+80, QUEUE+81, INP+2, INP+9
GMVPATH QUEUE+6~, QUEUE+46*, QUEUE+48, QUEUE+51, QUEUE+98
GMVPIEN QUEUE+6~, QUEUE+58*, QUEUE+70, QUEUE+72*
GMVSDT QUEUE+6~, QUEUE+19*, QUEUE+20*, QUEUE+21, QUEUE+57*, QUEUE+59*, QUEUE+62
GMVTEXT QUEUE+14!, QUEUE+17, QUEUE+22!, QUEUE+25, QUEUE+31!, QUEUE+34, QUEUE+39!, QUEUE+42, QUEUE+50!, QUEUE+53
, QUEUE+91!, QUEUE+100
GMVTEXT(1 QUEUE+15*, QUEUE+23*, QUEUE+32*, QUEUE+40*, QUEUE+51*, QUEUE+92*
GMVTEXT(2 QUEUE+16*, QUEUE+24*, QUEUE+33*, QUEUE+41*, QUEUE+52*, QUEUE+93*
GMVTEXT(3 QUEUE+94*
GMVTEXT(4 QUEUE+95*
GMVTEXT(5 QUEUE+96*
GMVTEXT(6 QUEUE+97*
GMVTEXT(7 QUEUE+98*
GMVTEXT(8 QUEUE+99*
GMVTOT QUEUE+6~, QUEUE+58*, QUEUE+88, QUEUE+95, SETHL+14*
GMVTOTAL QUEUE+6~, QUEUE+58*, QUEUE+63*, QUEUE+87, QUEUE+94
GMVTXT EMAIL~
GMVWPTR INP+1~, INP+4*, INP+6, INP+7
GMVX HDR~, HDR+5*, HDR+6, HDR+10
GMVY HDR~, HDR+5*, HDR+7, HDR+8
IEN SETHL~, SETHL+7, SETHL+10, SETHL+13
IO QUEUE+55
NEWHL SETHL~, SETHL+7, SETHL+13
OLDHL SETHL~, SETHL+13
POP QUEUE+7~, QUEUE+49
U QUEUE+73, QUEUE+74, SETHL+9, SETHL+12, INP+4, INP+7
VAINDT INP+1~, INP+2*
VAROOT INP+1~, INP+2*
XMDUZ EMAIL+1~, EMAIL+3*
XMSUB EMAIL+1~, EMAIL+2*
XMTEXT EMAIL+1~, EMAIL+4*
XMY EMAIL+1~
XMY( EMAIL+3*
ZTDESC EN+1~, EN+2*
ZTDTH EN+1~, EN+4*
ZTIO EN+1~, EN+2*
>> ZTQUEUED QUEUE+8, QUEUE+67
ZTREQ QUEUE+8*, QUEUE+71!
ZTRTN EN+1~, EN+4*
ZTSAVE EN+1~
ZTSAVE("DUZ" EN+3*
ZTSK EN+1~, EN+6
ZTSTOP EN+1~, QUEUE+59, QUEUE+62, QUEUE+69*

Marked Items

Name Field # of Occurrence
$T(QUEUE^VDEFQM HDR+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All