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 |  Marked Items  | All
Print Page as PDF
Routine: GMRVOREQ

Package: General Medical Record - Vitals

Routine: GMRVOREQ


Information

GMRVOREQ ;HIRMFO/MD,FT-QUICK ORDER PROTOCOL CREATION ;11/11/96 11:02

Source Information

Source file <GMRVOREQ.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 8 ^%DT  HELP^%DTC  %XY^%RCR  IX^DIC  (FILE,YN)^DICN  ^DIE  IX1^DIK  ^DIR  
General Medical Record - Vitals 1 ADS^GMRVORC0  
Kernel 1 ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - Vitals 1 GMRVORQUICK  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; ENTRY TO CREATE QUICK ORDER PROTOCOL
ASK
LOCK
YNWAIT
DEF
QUIT ;
SETUP ; ASK USERS WHETHER TO ASK QUESTION OR STUFF ANSWER
DATE ; MAKE SURE THE DEFAULT ANSWERS ARE FM DATES
SCH ;ADD SCHEDULE
ASKDEF ;
ASK1
TEXT ;
UPDATE ; update existing entry
IT0 ; item text
ADDNEW ; add new entry

External References

Name Field # of Occurrence
^%DT DATE+2, DATE+3
HELP^%DTC ASK1+1
%XY^%RCR ASK+1, ADDNEW+7
^%ZISC QUIT+2
IX^DIC EN1+3
FILE^DICN ADDNEW+7
YN^DICN ASK, YNWAIT
^DIE IT0+6
IX1^DIK ADDNEW+7
^DIR SETUP+9, IT0+2, ADDNEW+2
ADS^GMRVORC0 SCH+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"DO YOU WANT TO ADD "_X_" AS A QUICK ORDER PROTOCOL"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,$C(7),"SOMEONE ELSE IS ADDING QUICK ORDER PROTOCOLS,","WOULD YOU LIKE TO WAIT UNTIL THEY FINISH"
  • Line Location: YNWAIT+0
Function Call: WRITE
  • Prompt: !!,"These are the Vital Measurement Quick Order Questions:",!
  • Line Location: SETUP+7
Function Call: WRITE
  • Prompt: !,?3,Y_". ",$P($T(TEXT+Y),";",3)
  • Line Location: SETUP+7
Function Call: WRITE
  • Prompt: !!,$C(7),"An Admin. Schedule is required for Vital Measurement Quick Order Protocols!"
  • Line Location: SETUP+10
Function Call: WRITE
  • Prompt: !,"Choose one of the following:",!?5,"1. Ask "_GMRVQUES_"with a DEFAULT value",!,?5,"2. Automatically Enter "_GMRVQUES
  • Line Location: ASKDEF+1
Function Call: READ
  • Variable: GMRVX
  • Timeout: DTIME
  • Line Location: ASKDEF+2
Function Call: WRITE
  • Prompt: !,"Select 1 or 2: "
  • Line Location: ASKDEF+2
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Enter '1' to ask question with default value.",!?11,"'2' to not ask the question and automatically enter the default.",!
  • Line Location: ASK1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,"Enter default value: "_$S(ZX'="":$P(ZX,"~",ZX["~"+1)_"// ",1:"") R X:DTIME I '(Z>2),X["?"
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: *7,!,"Answer must be 3-100 characters in length"
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: !!,"You changed the Administration Schedule to ",GMRVAS,!,"You should edit the ITEM TEXT.",!
  • Line Location: UPDATE+4
Function Call: WRITE
  • Prompt: !!,$C(7),"A Quick Order Protocol with an ITEM TEXT of ",!,Y," already exists.",!,"Please edit the ITEM TEXT value to make it unique.",!!
  • Line Location: IT0+4
Function Call: WRITE
  • Prompt: !!,$C(7),"A Quick Order Protocol with an ITEM TEXT of ",!,GMRVPROT("QUICK TEXT")," already exists.",!,"Please edit the ITEM TEXT value to make it unique.",!!
  • Line Location: ADDNEW+5
Routine Call
  • DIC
  • Line Location:
    • EN1+3
Routine Call
  • DIE
  • Line Location:
    • IT0+6
Routine Call
  • DIR
  • Line Location:
    • SETUP+9
    • IT0+2
    • ADDNEW+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMRD(120.57 - [#120.57] LOCK, YNWAIT+1, DEF, DEF+3, ADDNEW+8*
^ORD(101 - [#101] EN1+4, ASK, YNWAIT+1, UPDATE+1, IT0+1, IT0+4, ADDNEW+5

Label References

Name Line Occurrences
ADDNEW DEF+1, ADDNEW+5
ASK ASK
ASK1 ASK1+2
ASKDEF SETUP+16, ASK1
DEF EN1+4
EN1 ASK
IT0 IT0+4
LOCK YNWAIT
QUIT EN1+3, ASK, YNWAIT, DEF, ADDNEW+7
SETUP DEF, SETUP+10
UPDATE DEF+2
YNWAIT YNWAIT

Naked Globals

Name Field # of Occurrence
^(0 EN1+4
^(20 EN1+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, YNWAIT*, QUIT+1!
%DT QUIT+1!, DATE+2*, DATE+3*, ASK1+1*
%DT(0 ASK1+1*
%X ASK+1*, QUIT+1!, ADDNEW+7*
%Y ASK+1*, QUIT+1!, ADDNEW+7*
D EN1+1*, QUIT+1!
DA QUIT+1!, IT0+6*, ADDNEW+7*
DD ADDNEW+7!
DIC EN1+1*, QUIT+1!, ADDNEW+7*
DIC("A" EN1+3*
DIC("S" EN1+2*
DIC(0 EN1+1*, ADDNEW+7*
DIE QUIT+1!, IT0+6*
DIK QUIT+1!, ADDNEW+7*
DIR QUIT+1!, IT0+1!, ADDNEW+2!
DIR("?" SETUP+9*
DIR("A" SETUP+9*
DIR("B" IT0+1*, ADDNEW+2*
DIR(0 SETUP+9*, IT0+1*, ADDNEW+2*
>> DIRUT SETUP+9, IT0+3, ADDNEW+3
DLAYGO QUIT+1!, ADDNEW+7*
DR QUIT+1!, IT0+6*
DTIME ASKDEF+2, ASK1+1
DUOUT QUIT+1!
DUZ ADDNEW+6
GMROUT DEF, QUIT+1!, SETUP+9*, SETUP+16, SETUP+17, ASKDEF+2*, ASK1+2*
GMRV QUIT+1!
GMRVANSR QUIT+1!, SETUP+8*, SETUP+16*, SETUP+17, DATE+2*, DATE+3*, SCH+1*, UPDATE+3, ADDNEW+1
GMRVAS QUIT+1!, SCH+1*, UPDATE+3*, UPDATE+4
GMRVCNT SETUP+13*, SETUP+14*, SETUP+15!
GMRVDA EN1+3*, ASK+1, QUIT+1!, UPDATE+1, IT0+1, IT0+6
GMRVDEF EN1+1*, EN1+4*, QUIT+1!, SETUP+8, SCH+1, ASK1+1
GMRVDEL QUIT+1!, SETUP+9*, SETUP+16, ASK1+4*
GMRVDF QUIT+1!
>> GMRVDIRB IT0+1*, IT0+4
GMRVLIST SETUP+11!, SETUP+15!
GMRVLIST( SETUP+12*, SETUP+14
GMRVOAS QUIT+1!, UPDATE+1*, UPDATE+2*, UPDATE+4
GMRVOLD EN1+1*, EN1+4*, DEF+1, DEF+2, QUIT+1!, SETUP+8, SETUP+10
GMRVORD QUIT+1!
GMRVPNAM YNWAIT+1*, QUIT+1!, ADDNEW+6, ADDNEW+7
GMRVPNUM YNWAIT+1*, QUIT+1!, ADDNEW+8
GMRVPROT EN1+3!, QUIT+1!
GMRVPROT("QUI CK TEXT" , IT0+5*, IT0+6, ADDNEW+1*, ADDNEW+2, ADDNEW+4*, ADDNEW+5, ADDNEW+6
GMRVPROT(0 ADDNEW+1, ADDNEW+6*
GMRVPROT(20 ADDNEW+6*
GMRVPROT(99 ADDNEW+6*
GMRVQUES QUIT+1!, ASKDEF+1*
GMRVSTRT QUIT+1!, SETUP+11*, SETUP+16*, ASK1+1
GMRVX QUIT+1!, SETUP+11*, SETUP+16!, ASKDEF+2*, ASK1
GMRVY QUIT+1!, SETUP+11*, SETUP+14*, SETUP+16
OREA QUIT+1!, SETUP+17*, ADDNEW+6
ORTX QUIT+1!
TEXT QUIT+1!
U EN1+4, DATE+2, DATE+3, SCH+1, ASK1+1, IT0+1
X ASK*, QUIT+1!, SETUP+16, DATE+2*, DATE+3*, ASK1+1*, ASK1+2, ASK1+3*, ASK1+4, ADDNEW+7*
Y EN1+3, EN1+4, ASK, QUIT+1!, SETUP+7*, SETUP+10, SETUP+12, SETUP+16, DATE+2, DATE+3
, IT0+4, IT0+5, ADDNEW+4, ADDNEW+7
Z QUIT+1!, SETUP+12*, SETUP+13*, SETUP+14*, SETUP+16*, DATE+2*, DATE+3*, ASK1+1
Z(0 SETUP+16*
ZX QUIT+1!, ASK1+1*, ASK1+2, ASK1+3
ZY QUIT+1!, SCH+1*

Marked Items

Name Field # of Occurrence
$T(TEXT+Y SETUP+7
$T(TEXT+Z SETUP+16, ASKDEF+1
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 |  Marked Items  | All