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
Print Page as PDF
Routine: GMVKPN1

Package: General Medical Record - Vitals

Routine: GMVKPN1


Information

GMVKPN1 ;HCIOFO/YH,FT-KYOCERA PAIN CHART MACRO-1 ;11/6/01 15:04

Source Information

Source file <GMVKPN1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1
BOX
VERT
FORM
DATE
TIME
RPG
RESP
PID
RS1
RS2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"!R! RES; DAM;"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !,"MCRO BOX;"
  • Line Location: BOX+0
Function Call: WRITE
  • Prompt: !,"UNIT C; SLM 3; STM 1; MAP 0,0; SPD 0.05; BOX 16,13;"
  • Line Location: BOX+1
Function Call: WRITE
  • Prompt: !,"FONT 40; MAP -2,0.5; TEXT 'Date/Time';"
  • Line Location: BOX+2
Function Call: WRITE
  • Prompt: !,"SPD 0.01; MAP -0.5,2; TEXT '10'; MAP 0,1; DAP 16,1;MAP 16,1; DAP 0,1;"
  • Line Location: BOX+3
Function Call: WRITE
  • Prompt: !,"MAP -0.5,3; TEXT '9'; MAP 0,2; DAP 16.2,2;"
  • Line Location: BOX+4
Function Call: WRITE
  • Prompt: !,"MAP -0.5,4; TEXT '8'; MAP 0,3; DAP 16,3;"
  • Line Location: BOX+5
Function Call: WRITE
  • Prompt: !,"MAP -0.5,5; TEXT '7'; MAP 0,4; DAP 16,4;"
  • Line Location: BOX+7
Function Call: WRITE
  • Prompt: !,"MAP -0.5,6; TEXT '6';MAP 0,5; DAP 16,5;"
  • Line Location: BOX+8
Function Call: WRITE
  • Prompt: !,"MAP -0.5,7; TEXT '5'; MAP 0,6; DAP 16,6;"
  • Line Location: BOX+9
Function Call: WRITE
  • Prompt: !,"MAP -0.5,8; TEXT '4'; MAP 0,7; DAP 16,7;"
  • Line Location: BOX+10
Function Call: WRITE
  • Prompt: !,"MAP -0.5,9; TEXT '3'; MAP 0,8; DAP 16,8;"
  • Line Location: BOX+11
Function Call: WRITE
  • Prompt: !,"MAP -0.5,10; TEXT '2'; MAP -0.5,11; TEXT '1'; MAP 0,9; DAP 16,9;"
  • Line Location: BOX+12
Function Call: WRITE
  • Prompt: !,"MAP 0,10; DAP 16,10;"
  • Line Location: BOX+13
Function Call: WRITE
  • Prompt: !,"MAP 0,11; DAP 16,11;"
  • Line Location: BOX+14
Function Call: WRITE
  • Prompt: !,"MAP -1,12.7; TEXT 'Pain';"
  • Line Location: BOX+15
Function Call: WRITE
  • Prompt: !,"SPD 0.05;"
  • Line Location: VERT+0
Function Call: WRITE
  • Prompt: !,I(1)
  • Line Location: VERT+1
Function Call: WRITE
  • Prompt: !,"MAP 16,12; DAP 0,12;"
  • Line Location: VERT+1
Function Call: WRITE
  • Prompt: !,"MAP 0,13.5; TEXT '0 - No pain 10 - Worst imaginable pain 99 - Unable to respond';"
  • Line Location: VERT+2
Function Call: WRITE
  • Prompt: !,"MAP 12,22.4; TEXT 'Medical Record'; MAP 12,22.8; TEXT 'Pain Chart'; MAP 12,23.2; TEXT 'SF 512';"
  • Line Location: FORM+0
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: FORM+1
Function Call: WRITE
  • Prompt: !,"MCRO DATE; FONT 56;"
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !,"MCRO TIME;"
  • Line Location: TIME+0
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: TIME+1
Function Call: WRITE
  • Prompt: !,"MCRO RPG; SPD 0.03; MAP %1, %2; DAP 2, %3; DAP 3.6, %4; DAP 5.2, %5; DAP 6.8, %6; DAP 8.4, %7; DAP 10, %8; DAP 11.6, %9;"
  • Line Location: RPG+0
Function Call: WRITE
  • Prompt: !,"DAP 13.2, %10; DAP 14.8, %11;"
  • Line Location: RPG+1
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: RPG+2
Function Call: WRITE
  • Prompt: !,"MCRO RSP;"
  • Line Location: RESP+0
Function Call: WRITE
  • Prompt: !,I(1)
  • Line Location: RESP+2
Function Call: WRITE
  • Prompt: !,I(1)
  • Line Location: RESP+4
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: RESP+5
Function Call: WRITE
  • Prompt: !,"MCRO PID; MAP -2,21.6; TEXT %1; MAP -2,22; TEXT %2; MAP 2.5,22; TEXT %3; MAP -2,22.4; TEXT %4; MAP 6,23.2; TEXT %5; MAP 6,22.8; TEXT %6; MAP -2,22.8; TEXT %7; MAP -2,23.2; TEXT %8;"
  • Line Location: PID+0
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: PID+1
Function Call: WRITE
  • Prompt: !,"MCRO RS1; MAP %1,%2; TEXT %3; MAP 2.0,%4; TEXT %5; MAP 3.6,%6; TEXT %7; MAP 5.2,%8; TEXT %9; MAP 6.8,%10; TEXT %11; MAP 8.4,%12; TEXT %13; MAP 10,%14; TEXT %15; MAP 11.6,%16; TEXT %17; MAP 13.2,%18; TEXT %19;"
  • Line Location: RS1+0
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: RS1+1
Function Call: WRITE
  • Prompt: !,"MCRO RS2; MAP 14.8,%1; TEXT %2;"
  • Line Location: RS2+0
Function Call: WRITE
  • Prompt: !,"ENDM;"
  • Line Location: RS2+1
Info |  Source |  Entry Points |  Interaction Calls