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

Package: Dietetics

Routine: FHORD4


Information

FHORD4 ; HISC/REL/NCA - Isolation/Precaution ;10/11/00 07:52

Source Information

Source file <FHORD4.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Dietetics 5 (SITE,TR)^FH  ^FHDPA  (CUR,STR)^FHORD7  ^FHORX  (CODE,ISO)^FHWOR61  
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  EN1^DIP  
Kernel 2 ^%ZIS  $$FMTHL7^XLFDT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Dietetics 4 FHORD4  FHORI1  FHORI2  FHWOR61  

Entry Points

Name Comments DBIA/ICR reference
F1
F2
S2 ;
S1
RSET
EN1 ; Enter/Edit Isolation/Precaution Types
EN2 ; List Isolation/Precaution Types
CAN ; Cancel Isolation
KIL
SETVAR ; Set Date in HL7 format
FIL ; File Isolation

External References

Name Field # of Occurrence
NOW^%DTC FHORD4+3
^%ZIS RSET
^DIC FHORD4+5, EN1+1
^DIE EN1+2
EN1^DIP EN2+2
SITE^FH SETVAR+2
TR^FH S1+1, F2
^FHDPA FHORD4+2
CUR^FHORD7 S1+2
STR^FHORD7 S1+3
^FHORX FIL+3, CAN+2
CODE^FHWOR61 F2+1
ISO^FHWOR61 FHORD4+6
$$FMTHL7^XLFDT SETVAR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHORD4+5
Function Call: READ
  • Prompt: "Patient is on CAFETERIA/DINING ROOM Service. Change to TRAY? YES// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: " ... done"
  • Line Location: S2+1
Function Call: WRITE
  • Prompt: !!,"Isolation/Precaution Type is: ",$P($G(^FH(119.4,X,0)),"^",1)
  • Line Location: F1+1
Function Call: READ
  • Prompt: "Do you wish to remove? (Y/N) "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: F2+0
Function Call: WRITE
  • Prompt: " ...removed"
  • Line Location: F2+1
Function Call: WRITE
  • Prompt: " ... no change made"
  • Line Location: F2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+1
Routine Call
  • DIE
  • Line Location:
    • EN1+2
Routine Call
  • DIC
  • Line Location:
    • FHORD4+5
    • EN1+1
Routine Call
  • %ZIS
  • Line Location:
    • RSET

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.4 - [#119.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(119.4 - [#119.4] F1+1, FIL+1
^FHPT - [#115] FHORD4+4, FHORD4+7, S1+2*, F1, F2+1, FIL+1*, CAN+1
^FHPT("AIS" FIL+2*, CAN+1!
^XUSEC("FHMGR" EN1+2

Label References

Name Line Occurrences
CAN F2+1
EN1 EN1+1, EN1+2
F1 FHORD4+4
F2 F2
FIL FHORD4+6
KIL FHORD4+2, FHORD4+5, S1, S2+1, F2, F2+1, F2+2, EN1+1, EN2+2
RSET EN2+2
S1 S1+1
S2 FHORD4+7, S1+2

Naked Globals

Name Field # of Occurrence
^(0 CAN+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FHORD4+3!
%DT KIL!
%H FHORD4+3!
%I FHORD4+3!
%ZIS RSET!
ADM FHORD4+4, FHORD4+7, S1+2, F1, F2+1, FIL+1, FIL+2, CAN+1, KIL!, SETVAR+2
ALL FHORD4+2*, KIL!
BY KIL!, EN2+1*, RSET!
C KIL!
COM S1+3*, KIL!
D1 S1+3*, KIL!
D2 S1+3*, KIL!
D3 S1+3*, KIL!
D4 S1+3*, KIL!
DA KIL!, EN1+2*!, RSET!
DFN FHORD4+2, KIL!
DHD KIL!, EN2+2*, RSET!
DIC FHORD4+5!*, KIL!, EN1+1!*, EN2+1*, RSET!
DIC("DR" EN1+1*
DIC(0 FHORD4+5*, EN1+1*
DIDEL EN1+2*!
DIE KIL!, EN1+1*, EN1+2!, RSET!
DLAYGO EN1+1*!
DR KIL!, EN1+2*!, RSET!
DT S1+3*
DTIME S1, F2
>> DTOUT EN1+1
DUZ EN1+2
>> EVT FIL+3*, CAN+2*
FHDFN FHORD4+2, FHORD4+4, FHORD4+7, S1+2, F1, F2+1, FIL+1, FIL+2, CAN+1, KIL!
FHDR KIL!
FHDU KIL!
>> FHIDT SETVAR+1*
FHLD KIL!
>> FHNOW FHORD4+6*
FHOR S1+2, KIL!
FHORD KIL!
FHORN F2+1*, KIL!
FHPV KIL!
FHWF KIL!
>> FILL SETVAR+2*
FLDS KIL!, EN2+1*, RSET!
FR KIL!, EN2+2*, RSET!
I KIL!
IOP RSET*!
IS FHORD4+5*, FIL+1, FIL+3, CAN+1*, CAN+2, KIL!, SETVAR+2
L KIL!, EN2+1*, RSET!
NOW FHORD4+3*, FHORD4+6*, S1+3, KIL!, SETVAR+1
POP KIL!
TO KIL!, EN2+2*, RSET!
TYP FHORD4+7*, S1+3*, KIL!
WARD KIL!
X S1*, S1+1*, S1+2, S1+3, F1*, F1+1, F2*, F2+1, FIL+1*, KIL!
, EN1+1, RSET!
X1 KIL!
Y FHORD4+5, KIL!, EN1+1, EN1+2, RSET!
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