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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GECSEDIT

Package: Generic Code Sheet

Routine: GECSEDIT


Information

GECSEDIT ;WISC/RFJ/KLD-create and edit code sheets ;13 Oct 98

Source Information

Source file <GECSEDIT.m>

Entry Points

Name Comments DBIA/ICR reference
NEWCS ; get new code sheet number
; return gecs("csname"),gecs("csda")
CSEDIT() ; edit code sheet gecs(csda)
; return -1 if code sheet not edit (for fms docs)
; return 0 if ^ entered
EDIT ; edit selected code sheet
AMIS ; ask amis month-year if system id = AMS
KEY ; keypunch a code sheet
; set variable gecsfkp=[input template]

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GECSEDIT+7
Function Call: WRITE
  • Prompt: " << CODE SHEET DELETED >>"
  • Line Location: GECSEDIT+12
Function Call: WRITE
  • Prompt: !!,"This code sheet has been assigned IDENTIFICATION NUMBER: ",$P(Y(0),"^")
  • Line Location: NEWCS+13
Function Call: WRITE
  • Prompt: !,"UNABLE TO CREATE CODE SHEET!"
  • Line Location: NEWCS+17
Function Call: WRITE
  • Prompt: !
  • Line Location: CSEDIT+5
Function Call: WRITE
  • Prompt: !!?5,"-- FMS Control Segment Data --"
  • Line Location: CSEDIT+8
Function Call: WRITE
  • Prompt: !!?5,"-- FMS Document Data --"
  • Line Location: CSEDIT+10
Function Call: WRITE
  • Prompt: !?4
  • Line Location: CSEDIT+11
Function Call: WRITE
  • Prompt: $S(%#10=0:$E(%),%#5=0:"+",1:".")
  • Line Location: CSEDIT+11
Function Call: WRITE
  • Prompt: !!,"Current Status: Warning - "_$$GET1^DIQ(2100.1,GECS("TRANSFMSDA"),3,"E"),!
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2100 - [#2100] Classic Fileman Calls
^GECS(2100.1 - [#2100.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call